VBA-Beispiel 056
mail schreiben
mail schreiben

mit VBA Verzeichnis wechseln und Dialog "Datei öffnen" zeigen

Wechselt das aktuelle Verzeichnis innerhalb eines Laufwerks und ruft mit dem neuen Pfad den Datei-öffnen-Dialog auf.

Anschließend wird wieder der ursprüngliche Pfad eingestellt.
Sub Verzeichnis_wechseln()
Dim alterPfad As String
Dim Datei As String

On Error GoTo Fehler

'den alten Pfad merken
alterPfad = CurDir
MsgBox CurDir, , "der alte Pfad"

'neuen Pfad setzen ( geht aber nur innerhalb des Laufwerks )
ChDir "C:\Eigene Dateien"
MsgBox CurDir, , "der neue Pfad"

   'mach jetzt irgendwas mit dem neuen Pfad
    Datei = Application.GetOpenFilename("Excel-Dateien(*.xls),*xls")  
   'der Dialog liefert nur Dateiname und Pfadangabe zurück
   'öffnet aber nicht die Datei
    MsgBox Datei, , "ausgewählte Datei:"
   'Application.Workbooks.Open Datei

'alten Pfad wiederherstellen
ChDir alterPfad
MsgBox CurDir, , "jetzt wieder der alte Pfad"

Exit Sub  

Fehler:

    MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
    & "Beschreibung: " & Err.Description _
    , vbCritical, "Fehler"
End Sub  

Download:   vba056.zip