VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

xlSaveAs-Dialog in einem bestimmten Verzeichnis aufrufen

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

    


Beiträge aus dem Excel-Forum zu den Themen Datei und Verzeichnis