DannyGeysen
Gebruiker
- Lid geworden
- 23 dec 2002
- Berichten
- 57
Ik wil gewoon werkblad 1 van alle .xls files uit een directory samenvoegen.
In een eerdere thread vond ik volgende oplossing, maar om de één of andere reden gaat het toch fout. Hij maakt steeds bijkomende files aan in die directory en voegt die dan ook weer toe. Wie weet waar de fout zit?
Sub samenvoegen()
Workbooks.Add
c0 = Dir("G:\apart\*.xls")
Do
With Workbooks.Add("g:\apart\" & c0)
sq = .Sheets(1).UsedRange
.Close False
End With
ActiveWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(sq), UBound(sq, 2)) = sq
c0 = Dir
Loop Until c0 = ""
ActiveWorkbook.SaveAs "g:\samengevat.xls"
ActiveWorkbook.Close False
End Sub
In een eerdere thread vond ik volgende oplossing, maar om de één of andere reden gaat het toch fout. Hij maakt steeds bijkomende files aan in die directory en voegt die dan ook weer toe. Wie weet waar de fout zit?
Sub samenvoegen()
Workbooks.Add
c0 = Dir("G:\apart\*.xls")
Do
With Workbooks.Add("g:\apart\" & c0)
sq = .Sheets(1).UsedRange
.Close False
End With
ActiveWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(sq), UBound(sq, 2)) = sq
c0 = Dir
Loop Until c0 = ""
ActiveWorkbook.SaveAs "g:\samengevat.xls"
ActiveWorkbook.Close False
End Sub
