Files (alle Tabellen) eines Verzeichnisses drucken
13.05.2008 17:51:00
Peter
Ich habe einen Ordner mit verschiedenen Files; diese wiederum mit mehreren Tabellen.
Ich möchte aus allen Files alle Tabellen ausdrucken. Dazu habe ich nachstehenden Code gefunden.
Allerdings erscheint Fehlermeldung "Laufzeitfehler '1004' und dann wird die erste ("Test"-) Datei aufgeführt mit folgendem Hinweis "'nana.xls' wurde nicht gefunden" - die ist aber dort.
Meine Fragen:
- was ist hier wohl das Problem?
- werden mit "PrintOut" alle Tabellen jeweils ausgedruckt (wenn nein: wie müsste der Code ergänzt werden)?
Vielen Dank für jeden Hinweis.
Peter
Sub AlleDrucken()
Dim WB As Workbook
Dim strFName As String
strFName = Dir("c:\neu\*.xls")
While strFName ""
Set WB = Workbooks.Open(Filename:=strFName)
WB.PrintOut
WB.Close
strFName = Dir()
Wend
End Sub
Anzeige