Ich habe Szenario: Workbook1, Workbook2, Workbook3 und Workbook4. Jede dieser Arbeitsmappen hat einen Blattnamen wsheet_a. Ich lege mein Makro in die Master-Arbeitsmappe mit dem Namen master_file und wollte die wsheet_a-Arbeitsblätter in jeder Arbeitsmappe zu mf_wsheet in der master_file-Arbeitsmappe ab einer bestimmten Zeile (d. H. Row 2) konsolidieren. Und wenn ich das Makro erneut ausführe, ersetze es die vorhandenen Daten in mf_wsheet. Jede Hilfe wird sehr geschätzt.Makro Excel konsolidieren viele Arbeitsmappen mit demselben Arbeitsblatt-Name
0
A
Antwort
0
Try this ... (Sie müssen das Makro mit dem Pfad zu Ihrer Arbeitsmappe aktualisieren)
Option Explicit
Sub Compile_Workbook_Data()
Dim master_wkbk As Workbook: Set master_wkbk = ThisWorkbook
Dim master_sht As Worksheet: Set master_sht = ThisWorkbook.Worksheets("mf_wsheet")
Dim current_wkbk As Workbook
Dim current_sht As Worksheet
Dim wkbk_list(1 To 4) As String
Dim x As Integer
Dim last_row As Integer
Dim last_col As Integer
wkbk_list(1) = "Workbook1.xlsx"
wkbk_list(2) = "Workbook2.xlsx"
wkbk_list(3) = "Workbook3.xlsx"
wkbk_list(4) = "Workbook4.xlsx"
For x = 1 To UBound(wkbk_list)
Set current_wkbk = Workbooks.Open("Full Path to File" & wkbk_list(x))
Set current_sht = current_wkbk.Worksheets("wsheet_a")
last_row = current_sht.Cells.Find("*", searchorder:=xlByRows, SearchDirection:=xlPrevious).Row
last_col = current_sht.Cells.Find("*", searchorder:=xlByColumns, SearchDirection:=xlPrevious).Column
current_sht.Range(Cells(1, 1), Cells(last_row, last_col)).Copy
last_row = master_sht.Cells.Find("*", searchorder:=xlByRows, SearchDirection:=xlPrevious).Row
master_sht.Range("A" & last_row + 1).PasteSpecial Paste:=xlPasteValues
current_wkbk.Close False
Next x
End Sub
Verwandte Themen
- 1. Excel-Makro alle geöffneten Arbeitsmappen schließen
- 2. Text in Spalte viele Excel-Arbeitsmappen
- 3. Amortisationszeitplan für viele Zeilen mit Excel-Makro
- 4. Kopieren und Einfügen von Makro-Arbeitsmappe in mehrere Arbeitsmappen Excel
- 5. VBA zum Konsolidieren mehrerer Arbeitsmappen mit unterschiedlichen Spalten
- 6. Excel-Makro funktioniert nicht
- 7. Excel Solver mit Makro
- 8. Excel-Arbeitsmappen-Update
- 9. Excel VBA Makro zum Erstellen mehrerer Arbeitsmappen, die Makro frei sind
- 10. Konsolidieren mehrerer Tabellen aus verschiedenen Arbeitsmappen mit denselben Feldern in einer Tabelle mit PowerPivot
- 11. Excel mit Makro
- 12. Excel-Makro mit Bedingungen
- 13. Excel-Makro Workbook_BeforeClose Spezifische Arbeitsmappe
- 14. VBA-Makro für alle Arbeitsmappen im Ordner
- 15. Excel Freeze Panels Makro Probleme
- 16. Excel VBA Laufzeitfehler, wenn mit mehreren Arbeitsmappen
- 17. Einfügen zwischen Arbeitsmappen Excel VBA
- 18. Stand Alone Excel Makro
- 19. Count in Excel Makro
- 20. Konsolidieren Excel-Formel zu COUNTIF alle Tabs
- 21. Excel Erträge falsche Liste eindeutiger Werte konsolidieren
- 22. Wieder mit einem VBA-Makro mit „Worksheet_Change“ Ereignis in allen geöffneten Arbeitsmappen in einer einzigen Datei
- 23. So kopieren Sie Informationen über Excel-Arbeitsmappen
- 24. Viele-zu-viele auf demselben Tisch
- 25. Excel Email Makro Größenbeschränkungen
- 26. Excel 2013 - Makro zum automatischen Teilen von Daten in verschiedene Arbeitsmappen
- 27. Excel-Makro, das alle geöffneten Arbeitsmappen speichert, wenn sie bestimmte Kriterien erfüllen
- 28. Redbean, mehrere Viele-zu-Viele mit demselben Objekt
- 29. Laravel 5.3 Viele zu viele Beziehung mit demselben Modell
- 30. Schienen hat viele durch mit demselben Modell
haben Sie einen Code noch geschrieben? Sie werden damit beginnen, alle Arbeitsmappen durchzublättern, um das Blatt zu finden. etwas wie. 'Dim wb Als Arbeitsmappe, ws Wie Arbeitsblatt For Each wb in Application.Workbooks For Each ws in wb.Worksheets Wenn ws.name = "wsheet_a" ‚Dann tun, was Sie End If Next ws tun müssen Nächste wb ' – excelledsoftware