Wie kann ich meinem Application.Dialogs(xlDialogSaveAs).Show einen vorgegebenen Dateinamen mitgeben?
Besten Dank für einen Tip und Gruss
TOM
Sub Test_SaveAs()
Testdatei = "NixDrinne.xls"
SavePathName = "C:\" & Testdatei
ActiveWorkbook.SaveAs Filename:=SavePathName
Range("a1").Select
End Sub
Gruß
Reinhard2
Sub Dialogstest()
Application.Dialogs(xlDialogSaveAs).Show "NochNeDatei.xls"
' oder mit Pfad:
Application.Dialogs(xlDialogSaveAs).Show "c:\TestOrdner\NochNeDatei.xls"
End Sub
gruß reinhard2
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen