Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
xlSaveAs-Dialog in einem bestimmten Verzeichnis aufrufen
Gruppe
Verzeichnis
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