wie kann ich mit vba aus einer datei sämtliche dateien aus einem bestimmten verzeichnis öffnen?
vielen dank,
matthes
Sub alle_Dateien_Verzeichnis()
strPath = "C:\Test_3\" 'Pfad des Verzeichnisses ggf. anpassen
strExt = "*.xls" 'Dateiextension ggf. anpassen
Dim strFile As String
If strPath = "" Then
Exit Sub
Else
strFile = Dir(strPath & strExt)
Do While Len(strFile) > 0
Workbooks.Open Filename:=strPath & strFile
'mach was damit
'Workbooks(strFile).Close 'und danach schließen
strFile = Dir() ' nächste Datei
Loop
End If
End Sub