samenvoegen verschillende excel bestanden met Macro

[Raijmakers]

Wie kan mij helpen?

Ik wil graag verschillende excel bestanden samenvoegen in een bestand. De verschillende bestanden hebben allemaal een andere naar maar zijn wel allemaal .xls

Het volgende heb ik geprobeerd maar ik krijg in de tweede regel [ c0=Dir(E:\apart\*.xls") ] de foutmelding: verwacht: lijstschdingsteken of )

Sub Afwijkingen()
c0=Dir(E:\apart\*.xls")
Do
With Workbooks.Add("E:\apart\" & c0)
sq = .Sheets(1).UsedRange
.Close False
End With
ActiveWorkbook.Sheet(1).Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(sq), UBound(sq, 2)) = sq
c0 = Dir
Loop Until c0 = ""
ActiveWorkbook.SaveAs "E:\samengevat.xls"
ActiveWorkbook.Close False
End Sub

Alvast bedankt!!

Raijmakers

 

[Warme bakkertje]

c0=Dir([COLOR="#FF0000"]"[/COLOR]E:\apart\*.xls")