Schleife durch Excel-Dateien im Ordner und an Makro-Arbeitsmappe

Question

Ich muss alle XLSX-Dateien in einem Ordner öffnen und kopieren Sie ihren Inhalt in die Arbeitsmappe, die das Makro ausführt. Ich bin so weit gekommen, dass ich alle Excel-Dateien in einem Ordner dank this Blog-Post mit einer Änderung im Code von bis myExtension = "*.xlsx" durchlaufen konnte. Ich kann jedoch nicht herausfinden, wie Sie den Inhalt von Arbeitsblatt 1 jeder Arbeitsmappe kopieren und in einfügen, auf dem das Makro ausgeführt wird.

Zum Beispiel in der Do While Schleife, der Code in der Blog-Post oben tut dies:

'Change First Worksheet's Background Fill Blue 
    wb.Worksheets(1).Range("A1:Z1").Interior.Color = RGB(51, 98, 174) 

Aber ich will, so etwas tun:

'Copy all the cells that have data in them and paste/append to VBA workbook 
    wb.Worksheets(1).UsedRange.Copy ' this hasn't been working for me 
    ThisWorkbook.Worksheets(1). (somehow get to the first empty row) . Paste 

Irgendwelche Ideen?

Übrigens, die Excel-Dateien, die ich kopiere, haben alle ihre Daten im ersten Blatt und sie werden keine Kopfzeilen haben.

Answer 1

iRow_Target = 0 
(For Each Workbook in your directory) 
Set Wb = Workbooks.Open(Wb_File_Name) 
For Each Ws in Wb.Sheets 
    For iRow = 1 to Ws.UsedRange.Rows.Count 'This gives you rows count 
     Ws.Rows(iRow).Copy 
     iRow_Target = iRow_Target + 1 'This will have the last row saved 
     Thisworkbook.Sheets("Target").Range("A" & iRow_Target).xlPasteAll 'You can use other xlPaste<options> based on your needs 
    Next 
Next 

Answer 2

with thisworkbook.worksheets(1) 
    wb.worksheets(1).usedrange.copy .cells(.rows.count,1).end(xlup).offset(1) 
end with