Hallo!
Ik heb onderstaande code gevonden op Internet t.b.v. bovenstaande uitdaging, te weten:
- Ik heb 250 losse .xls mappen, elk met 3 tabs
- Ik heb alleen 'blad1' nodig van elk blad (ze heten ook allemaal blad 1)
- Ik wil vervolgens alle blad1 tabs in een groot bestand hebben (ipv 250 losse files)
- Onderstaande code - welke ik op Internet vond - werkt, alleen krijg ik dan alle drie de tabbladen
Ik hoop dat iemand een ontbrekend stukje code voor me heeft waarop ik nu alleen nog de eerste tab krijg?
Ik zou de leden van dit forum zeer erkentelijk zijn, waarvoor dank!
Ik heb onderstaande code gevonden op Internet t.b.v. bovenstaande uitdaging, te weten:
- Ik heb 250 losse .xls mappen, elk met 3 tabs
- Ik heb alleen 'blad1' nodig van elk blad (ze heten ook allemaal blad 1)
- Ik wil vervolgens alle blad1 tabs in een groot bestand hebben (ipv 250 losse files)
- Onderstaande code - welke ik op Internet vond - werkt, alleen krijg ik dan alle drie de tabbladen
Ik hoop dat iemand een ontbrekend stukje code voor me heeft waarop ik nu alleen nog de eerste tab krijg?
Code:
Sub GetSheets()
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub
Ik zou de leden van dit forum zeer erkentelijk zijn, waarvoor dank!
Laatst bewerkt: