Standard-Pfad beim SaveAs-Dialog
16.03.2006 13:24:10
Florian
in meinem Excel-Makro möchte ich dem User die Möglichkeit geben die Arbeitsmappe irgendwo zu speichern. Dazu verwende ich
Application.Dialogs(xlDialogSaveAs).show
Nun möchte ich aber das dieser Dialog standardmäßig in einem bestimmten Verzeichnes landet und zwar einem anderen als dem Excel-Standardpfad. Da man den Dialogs-Objekten scheinbar keine Parameter oder Ähnliches übergeben kann, versuchte ich es folgendermaßen zu umgehen:
Dim Pfad
Pfad = Application.DefaultFilePath
Application.DefaultFilePath = "MeinGewünschtesVerzeichnis"
Application.Dialogs(xlDialogSaveAs).show
Application.DefaultFilePath = Pfad
Trotzdem landet der SaveAs-Dialog immer in dem ursprünglichen Excel-Standard-Pfad (DefaultFilePath).
Wie kann ich denn nun kurzzeitig den Excel-Standardpfad so umändern, dass er im SaveAs-Dialog zum Tragen kommt? Oder wie löse ich das anders?
Grüße Florian Scheidler