Hallo lola,
das geht dann aber nur mit einem Makro - kennst Du Dich etwas mit VBA aus?
Ich hatte gestern schon mal eine Antwort in einem anderen Thread geschrieben, die einen ersten Ansatz liefert:
http://www.clever-excel-forum.de/thread-6676.html
Dabei geht es erst mal um die Verarbeitung aller txt-Dateien von Unterordnern eines Ordners. Wenn man hier den Ordner ändert (C:\Test) und aus TXT pdf macht, würde das schon mal alle pdf Dateien betreffen, die in den Unterverzeichnissen des Ordners ... liegen.
Code:
Sub ImportFiles()
'Importiert Dateien von Unterordnern - eine Ebene
'Variablendeklarationen
'Objekte
Dim objSourceFolder As Object, objSubFolder As Object
'String
Dim strTextFile$
'Quellordner setzen
Set objSourceFolder = CreateObject("Scripting.FileSystemObject").GetFolder("C:\Test")
'Schleife ueber alle Unterordner (eine Ebene)
For Each objSubFolder In objSourceFolder.SubFolders
'Textdatei mit Dir feststellen
strTextfile = Dir(SubFolder.Path & "\*.TXT")
'Schleife, solange Dir etwas zurueckgibt
Do While strTextfile <> ""
'Hier kommt Dein Import rein
'...
'Naechste Textdatei ermitteln
strTextFile = Dir()
'Ende Schleife, solange Dir etwas zurueckgibt
Loop
'Ende Schleife ueber alle Unterordner (eine Ebene)
Next
End Sub
Angepasst würde der code z.B. so aussehen - und gibt Dir erst mal alle pdf-Dateinamen in Spalte A ab A1 aus:
Code:
Sub ImportFiles()
'Importiert Dateien von Unterordnern - eine Ebene
'Variablendeklarationen
'Objekte
Dim objSourceFolder As Object, objSubFolder As Object
'String
Dim strTextFile$
'Integer
Dim iCnt%
'Quellordner setzen
Set objSourceFolder = CreateObject("Scripting.FileSystemObject").GetFolder("C:\Test")
'pdf-datei mit Dir feststellen
strTextfile = Dir(objSourceFolder.Path & "\*.pdf")
'Schleife, solange Dir etwas zurueckgibt
Do While strTextfile <> ""
'Hier kommt Dein Import rein
'...
'mal die Ausgabe der Dateinamen
'Zeilenzaehler setzen
iCnt = iCnt + 1
'Dateiname in Zeile eintragen
Cells(iCnt, 1) = strTextFile
'Naechste pdf-datei ermitteln
strTextFile = Dir()
'Ende Schleife, solange Dir etwas zurueckgibt
Loop
End Sub
Schaue mal, ob das passt. Wenn Du nicht weißt, wie und wo Du das verwenden kannst, einfach weiter fragen ...