Forumthread: Arbeitsmappen eines Ordners ausdrucken
Arbeitsmappen eines Ordners ausdrucken
junny
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