vbacode meerdere werkbladen samenvoegen werkt niet in een ander bestand

[Manon22]

Hoi,

Ik heb ooit eerder gevraagd naar een samenvoegcode. Die werkt perfect.
Nu wil ik deze code voor iets anders gebruiken en nu werkt ie niet.

Ik heb een leeg bronbestand geopend en deze code er in geplakt met uiteraard het pad en bestandsnaam waaruit de gegevens gehaald moeten worden veranderd:
Sub samenvoeg()
Application.ScreenUpdating = False
For Each fl In CreateObject("scripting.filesystemobject").getfolder("T:\Samenwerking\EA_projectadmin\Afgesloten projecten").Files
With GetObject(fl)
sq = .Sheets("Totaaloverzicht").UsedRange
.Close False
End With
ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(sq), UBound(sq, 2)) = sq
Next
Application.ScreenUpdating = True
End Sub

Ik krijg de foutmelding: kan een bestandsnaam of klassennaam niet vinden tijdens een automatiseringsbewerking.

Aangezien ik geen VBA specialist ben wil ik hier om hulpvragen.
Weet iemand een oplossing voor mijn probleem

 

[HSV]

Probeer het zo eens.

Sub samenvoeg()
Dim fl, sq
Application.ScreenUpdating = False
 For Each fl In CreateObject("scripting.filesystemobject").getfolder([COLOR=#3E3E3E]"T:\Samenwerking\EA_projectadmin\Afgesloten projecten").Files[/COLOR]
   With GetObject(fl)
    sq = [COLOR=#3E3E3E] .Sheets("Totaaloverzicht")[/COLOR].UsedRange
    ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(UBound(sq), UBound(sq, 2)) = sq
   .Close
  End With
 Next fl
End Sub

 

[Manon22]

ik ga het uit proberen.
bedankt.:thumb:

gr Manon

 

[Manon22]

Sorry voor late reactie. Druk bezig geweest met jaarafsluiten waar ik de vbacode bij heb gebruikt.
gelukt dus. bedankt.

grtjs Manon