Hai Leute, kann mir jemand bei folgendem Problem helfen?
Ich möchte ALLE Excel Dateien eines bestimmten Ordners ausdrucken (jeweils die gesamte Arbeitsmappe)(zur Info: im Ordner sind ausschließlich *.xls enthalten)
Danke viele Grüsse volker
Ciao Volker
Habe dir hier mal ein Ansatz: Sub alleoeffnen() Dim i As Long Const verz = "c:\Eigene Dateien\" ChDir verz With Application.FileSearch .NewSearch .LookIn = verz .SearchSubFolders = False .Filename = "*.xls" .Execute End With For i = 1 To Application.FileSearch.FoundFiles.Count Set quelle = Workbooks.Open(Application.FileSearch.FoundFiles(i))
'hier muss der Code zum Ausdrucken rein
Next i