Dadurch erhalten Sie Ordner in einem Ordner. Fahren Sie einfach weiter, bis Sie Ihre Arbeitsmappen gefunden haben.
Sub DrillDown() Dim path As String path = "C:\path\to" Dim FileSystem As Object Set FileSystem = CreateObject("Scripting.FileSystemObject") Dim SubFolder For Each SubFolder In FileSystem.GetFolder(path).subfolders Debug.Print SubFolder Next End Sub
Durchsuchen nach Dateien suchen -
Sub LookForFiles() Dim filename As Variant filename = Dir("C:\path\to\" & "*.csv") Do While filename <> "" Debug.Print filename filename = Dir Loop End Sub
Sie können also die Verzeichnisse durchgehen, bis Sie den gewünschten Verzeichnisnamen finden, dann nach den CSV-Dateien suchen und tun, was Sie möchten.