Hallo,
ich möchte über einen Makro automatisch den „Speichern Als“-Dialog öffnen und einen bestimmten Pfad vorgeben, der angezeigt werden soll.
Er soll einen bestimmten Pfad schauen, ob er existiert. Wenn dieser Pfad existiert, dann soll er ihn in dem „Speichern Als“-Dialog anzeigen. Wenn er nicht existiert, soll er in das nächst untere existierende Verzeichnis gehen.
Wie schaffe ich das?
Ich weiß, dass man über
Application.DefaultFilePath den Standard-Speicherpfad einstellen kann, aber er wird trotzdem nicht angezeigt. Was ist falsch?
Sub speichernDialog()
nummer = „11111“
Path = „D:\Test“
On Error GoTo anderesVerzeichnis
Application.DefaultFilePath = Path & „“ & nummer
On Error GoTo 0
Application.Dialogs.Item(xlDialogSaveAs).Show arg1:=nummer & „.xls“
Exit Sub
anderesVerzeichnis:
Application.DefaultFilePath = Path
Resume Next
End Sub
Vielen Dank im Voraus
Anka
Hi Anka,
probiers mal so:
Sub tt()
nummer = „11111“
Pfad = „D:\Test“
Vorhanden = Dir(Pfad & „/“ & nummer, vbDirectory)
If Vorhanden „“ Then Pfad = Pfad & „“ & nummer
ChDrive „d“
ChDir Pfad
Application.Dialogs(xlDialogSaveAs).Show arg1:=nummer & „.xls“
End Sub
Gruß
Reinhard
Er soll einen bestimmten Pfad schauen, ob er existiert. Wenn
dieser Pfad existiert, dann soll er ihn in dem „Speichern
Als“-Dialog anzeigen. Wenn er nicht existiert, soll er in das
nächst untere existierende Verzeichnis gehen.
Ich weiß, dass man über
Application.DefaultFilePath den Standard-Speicherpfad
einstellen kann, aber er wird trotzdem nicht angezeigt. Was
ist falsch?
Sub speichernDialog()
nummer = „11111“
Path = „D:\Test“
On Error GoTo anderesVerzeichnis
Application.DefaultFilePath = Path & „“ & nummer
On Error GoTo 0
Application.Dialogs.Item(xlDialogSaveAs).Show arg1:=nummer
& „.xls“
Exit Sub
anderesVerzeichnis:
Application.DefaultFilePath = Path
Resume Next
End Sub
Vielen Dank im Voraus
Anka
Hallo Reinhard,
danke für den Tipp. Es funktioniert jetzt. Man muss aber folgendes beachten:
Bei dem Dialog „Speichern Als“ ignoriert er den Standardpfad. Wenn man aber über den „Speichern“-Dialog geht, dann geht er in den Pfad, der in der Variable Pfad angegeben ist.
Danke nochmal
Anka
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]