Gruppe
Datei
Bereich
Verzeichnis
Thema
xlSaveAs-Dialog in einem bestimmten Verzeichnis aufrufen
Problem
Wie kann ich den xlSaveAs-Dialog so aufrufen, daß er die Dateien eines bestimmten Verzeichnisses zeigt? Danach muß das Ursprungsverzeichnis wieder das aktuelle sein.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub Speichern()
Dim sDirOld As String, sDirNew As String
On Error GoTo ERRORHANDLER
sDirOld = CurDir
sDirNew = Range("B1").Value
ChDrive Left(sDirNew, 1)
ChDir sDirNew
Application.Dialogs(xlDialogSaveAs).Show
ChDrive Left(sDirOld, 1)
ChDir sDirOld
Exit Sub
ERRORHANDLER:
MsgBox "Verzeichnis wurde nicht gefunden!"
End Sub