Gruppe
Datei
Problem
Wie kann ich in das Verzeichnis dieser Datei wechseln, den GetOpenFileName-Dialog aufrufen und wieder in das alte Verzeichnis zurückkehren?
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