[Party]

Hi leute ich möchte ein Makro in Excel erstellen das alle Excel Dateien von einem Ordner ausliest und diese dann jeweils ausdruckt.
hab folgendes SCRIPT erstell:

Sub Makro1()

Dim i As Long
Dim Bereich As Range
Dim Zelle As Range

Const verz = "c:\test"
ChDir verz

With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Execute

For i = 1 To .FoundFiles.Count

Workbooks.Open Filename:=.FoundFiles(i)
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
FEHLER FEHLER: Workbooks(.FoundFiles(i) ).Close SaveChanges:=False

Next i

End Sub

Es funktioniert auch soweit nur ich bekomm einen Fehler bei Workbooks(FILENAME).CLOSE weil ich dort eine Variable verwenden wenn ich dort den fixen Namen z.b. Workbooks("test.xls").close eingebe dann funktionierts. Kann mir da mal jemand helfen das dort die Variable auch funktioniert?

Vielen Dank

[Nighthawk]

Sub Makro1()

Dim i As Long
Dim Bereich As Range
Dim Zelle As Range
Dim Wbk as Workbook

Const verz = "c:\test"
ChDir verz

With Application.FileSearch
   .NewSearch
   .LookIn = verz
   .SearchSubFolders = False
   .FileType = msoFileTypeAllFiles
   .Execute
   
   For i = 1 To .FoundFiles.Count
	  Set Wbk = Workbooks.Open Filename:=.FoundFiles(i)
	  Wbk.PrintOut Copies:=1, Collate:=True
	  Wbk.Close SaveChanges:=False
	  Set Wbk = Nothing
   Next i
End With
End Sub

Vielleicht so?