Microsoft Excel

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