ich such mir 'nen Wolf und finde keine passende Lösung im Archiv.
Ich möchte mit Excel2010 mehrere Dateien öffnen, komme aber nur bis zu dem Öffnen-Fenster und müsste dann jedesmal einzeln 1 Datei auswählen.
Wie muss ich folgenden Code anpassen, sodaß sich die Dateien nacheinander alle öffnen?
Sub test()
Dim strDatei As Variant, i
strDatei = Application.GetOpenFilename("Excel-Dateien(*.xlsx), *.xlsx", True)
If strDatei = False Then
strDatei = MsgBox("Abbruch", 48)
End
End If
Workbooks.Open Filename:=strDatei
End Sub
Vielen Dank vorab schonmal!!
Rene