Datei-Explorer per Makro öffnen
02.04.2021 12:38:25
Ulrich
ich habe eine Frage.
Mit folgendem VBA-Code öffnet sich im aktuellen Verzeichnis der Dateiexplorer und ich kann eine EXCEL-Datei auswählen und öffnen.
Nun wäre es schön wenn auch andere Dateien angezeigt und geöffnet werden könnten. (Aktuelles Verzeichnis und Unterverzeichnisse.)
Kann mir hier jemand helfen?
Danke vorab.
Gruß Ulli
Sub Explorer()
' Explorer Makro
Dim Dateiauswahl As Variant
erneut:
ChDrive ThisWorkbook.Path
ChDir ThisWorkbook.Path
Dateiauswahl = Application.GetOpenFilename
' Application.Dialogs(xlDialogOpen).Show ActiveWorkbook.Path '(auch möglich)
If Dateiauswahl False Then
Workbooks.Open Filename:=Dateiauswahl
Else
If MsgBox("Es wurde keine Datei ausgewählt. Klicken Sie 'OK' um eine Datei auszuwählen, _
oder 'Abbrechen' um den Vorgang abzubrechen und das Makro zu beenden.", (vbOKCancel)) = vbOK Then
GoTo erneut
Else
Exit Sub
End If
End If
End Sub