Új hozzászólás Aktív témák

• #10201 Oly őstag perfag #10199

  Új Válasz 2011-04-29 19:48:30 #10201

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Oly

  őstag

  válasz perfag #10199 üzenetére

  Köszi

  Meg is csináltam:

  Dim biztos As String
  biztos = MsgBox("Létrehozzuk a CSV file-t?", vbQuestion + vbYesNo, "Megerősítés")
  If biztos = vbNo Then GoTo vege
  If Len(Dir(Cells(7, 26))) = 0 Then GoTo dirmakego
  GoTo csvmakego
  dirmakego:
  Dim dirmake As String
  dirmake = MsgBox("A megadott elérési útvonal (" & Cells(7, 26) & ") nem létezik. Létrehozzuk most?", vbQuestion + vbYesNo, "Hiba")
  If dirmake = vbNo Then GoTo vege
  MkDir Cells(7, 26)
  MsgBox "A " & Cells(7, 26) & " mappa létrehozva."
  csvmakego:
  Dim FNV$
  Dim FN$
  filego:
  FNV$ = InputBox("Kérem a fájl nevét!", "Fájl neve")
  FN$ = Cells(7, 26) & Format(Now(), "mmdd") & FNV$ & ".csv"
  If Len(Dir(FN$)) = 0 Then GoTo nincsilyen
  Dim felulir As String
  felulir = MsgBox("A file (" & FN$ & ") már létezik! Felülírjuk?", vbQuestion + vbYesNo, "Megerősítés")
  If felulir = vbNo Then GoTo filego
  nincsilyen:
  Application.DisplayAlerts = False
  Sheets("table").Select
  Sheets("table").Copy
  ActiveWorkbook.SaveAs Filename:=FN$, FileFormat:=xlCSV, _
  CreateBackup:=False, Local:=True
  ActiveWindow.Close
  Sheets("make").Select
  Range("A11").Select
  If Err.Number <> 0 Then
  MsgBox "Akkor fuss neki újra! :)"
  Else
  MsgBox "A file lértehozva: " & FN$, vbInformation, "Sikeresen létrehozva"
  
  End If
  vege:
  End Sub

Új hozzászólás Aktív témák