Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Verzeichniswechsel über VBA

Gruppe

Verzeichnis

Problem

Wie kann ich in das Verzeichnis dieser Datei wechseln, den GetOpenFileName-Dialog aufrufen und wieder in das alte Verzeichnis zurückkehren?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub VerzeichnisWechsel()
   Dim vFile As Variant
   Dim sDirOld As String, sDirNew As String
   sDirOld = CurDir()
   sDirNew = ThisWorkbook.Path
   If sDirNew = "" Then
      MsgBox "Die Datei muß zuerst gespeichert werden!"
      Exit Sub
   End If
   MsgBox "Aktuelles Verzeichnis: " & CurDir
   ChDrive Left(sDirNew, 1)
   ChDir sDirNew
   vFile = Application.GetSaveAsFilename(, "Excel-Datei (*.xls),*.xls")
   If vFile = False Then
      MsgBox "Keine Datei ausgewählt!"
   Else
      MsgBox "Ausgewählte Datei: " & vFile
   End If
   MsgBox "Aktuelles Verzeichnis: " & CurDir
   ChDrive Left(sDirOld, 1)
   ChDir sDirOld
   MsgBox "Aktuelles Verzeichnis: " & CurDir
End Sub