Specifieke tabbladen uit meerdere files in nieuwe excel file plakken

[nikos84]

Beste,


Dankzij onderstaande macro ben ik een hoop werk bespaard. Maar ik zou nog een stap verder willen gaan en alleen willen dat de macro het tabblad "Data" importeert in mijn file en niet alle tabladen uit alle files.

Sub CombineFiles()

Dim Path As String
Dim FileName As String
Dim Wkb As Workbook
Dim WS As Worksheet

Application.EnableEvents = False
Application.ScreenUpdating = False
Path = "V:\Received forms" 'Change as needed
FileName = Dir(Path & "\*.xls", vbNormal)
Do Until FileName = ""
Set Wkb = Workbooks.Open(FileName:=Path & "" & FileName)
For Each WS In Wkb.Worksheets
WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Next WS
Wkb.Close False
FileName = Dir()
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

 

[Wigi]

Sub CombineFiles()

Dim Path As String
Dim FileName As String
Dim Wkb As Workbook

Application.EnableEvents = False
Application.ScreenUpdating = False
Path = "V:\Received forms" 'Change as needed
FileName = Dir(Path & "\*.xls", vbNormal)
Do Until FileName = ""
Set Wkb = Workbooks.Open(FileName:=Path & "" & FileName)
Wkb.Worksheets("Data").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Wkb.Close 0
FileName = Dir()
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

 

[nikos84]

Bedankt voor de snelle oplossing!

 

[nikos84]

Ik zou ook nog graag de sheets welke gekopieerd worden in de nieuwe sheet, willen hernoemen naar op één volgende numbering. Kan dat ?

gr