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

• #16492 poffsoft veterán Vladek83 #16491

  Új Válasz 2013-01-25 20:00:49 #16492

  Ú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

  

  poffsoft

  veterán

  válasz Vladek83 #16491 üzenetére

  Próbáld ezt a módosítást.
  "Sheet1" a munkalap neve, amit menteni akarsz.

  ....
  'mentünk ha még nincs ilyen névvel fájl
  If Dir(BackupLocation & "\" & inputFileName & FileExt) = "" Then
  'mentünk
  Sheets("Sheet1").Copy
  ActiveWorkbook.SaveAs BackupLocation & "\" & inputFileName & FileExt
  Call MsgBox("Fájl elmentve " & inputFileName & " névvel.", vbOKOnly, "Mentés")
  Else
  ...

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