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

• #10198 Oly őstag

  Új Válasz 2011-04-29 16:04:38 #10198

  Ú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

  Sziasztok

  Ebbe a kódba szeretnék egy olyan részt beszúrni, ami ellenörzi, hogy létezik-e a megadott könyvtár és, ha nem, akkor szól.
  Továbbá kellene egy ellenörzés arra is, hogy a megadott filenév létezik-e, mert most kérdés nélkül felülírja.
  Ha kiveszem a Application.DisplayAlerts = False sort, akkor pedig mindig rákérdez... még ha nem létezik akkkor is!

  Dim Answer As String
  Dim MyNote As String
  MyNote = "Biztos, hogy létrehozod a CSV file-t?"
  Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "Mentés")
  If Answer = vbNo Then
  Else
  Dim FNV$
  Dim FN$
  FNV$ = InputBox("Kérem a fájl nevét!", "Fájl neve")
  FN$ = "Z:\Bulk\" & Format(Now(), "mmdd") & FNV$ & ".csv"
  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
  MsgBox "A file lértehozva: " & FN$
  End If

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