Hallo Excelperten,
kurz vor dem Wochenende stehe ich mal wieder vor einem VBA-Problem. Hoffe ihr könnt mir weiterhelfen. Und zwar möchte ich alle Dateien eines Ordners öffnen, den ein User beliebig auswählen können soll. Folgenden Code habe ich schon hinbekommen, allerdings ist hier die Pfadangabe vordefiniert. Und hier ist genau das Problem. Wie bekomme ich es hin, dass ein Nutzer den Ordner beliebig wählen kann und dann alle enthaltenen dateien geöffnet werden?
Vielen Dank für eure Hilfe. Und schon mal schönes Wochenende an alle. Grüße Sebastian.
Dim Datei As String
Dim Arbeitsmappe As String
Dim PFAD As String
PFAD = "G:\Test\" 'Ordner soll flexibel auswählbar sein'
Datei = Dir(PFAD & "*.xls")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Do While Datei ""
Application.Workbooks.Open Datei
'ActiveWorkbook.Close True
Datei = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True