| VBA-Beispiel 056 | |
|
|
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 |
|
relevante Links:
|
|
| |