将多个工作簿合并到一个已编译的工作表中答案

【问题标题】：Merge multiple WorkBooks into one compiled WorkSheet将多个工作簿合并到一个已编译的工作表中
【发布时间】：2021-10-09 13:46:25
【问题描述】：

我是刚开始接触 VBA/编程，只具备 Python 的基本知识。

斗争

每天手动合并的单独文件中有 6 个不同的工作表。它们都具有相同的配置（A:D 本地号码，E:G 我需要编译的内容，H 以后的杂项信息，第一行作为标题）。

我希望创建一个转到每个文件的宏，选择单元格 E2:G(last row) 并将其文本粘贴到此主文件上，它们之间没有空白行。

我已经搜索、尝试和调整了这里找到的多个代码，但没有一个能正常工作，所以我在这里寻求帮助。

【问题讨论】：

欢迎来到 SO！也许您想向我们展示您的第一次尝试和您尝试过的 sn-ps 代码，以便 e 可以帮助您更进一步。
谢谢！我忙于搜索，以至于忘记查看是否有任何回应。最终实现了一个功能代码，甚至设法将其缩小为一个循环（我对每个文件都有这个序列，总共 6 个）。这是一个学习如何查找 VBA 表达式并编写我自己的东西的问题，而不是试图通过完整的代码来弄清楚。

标签： excel merge worksheet-function

【解决方案1】：

我能够解决它，花了很多时间搜索 VBA 的方法......

这是最终代码，100% 工作：

Sub Teste_Array()

'Strings and paths definition
Dim Planilha() As Variant
Planilha = Array("03 - CONCRETO.xlsx", "04 - ALVENARIA.xlsx", "05 - METAIS.xlsx", "06 - MADEIRAS, PLÁSTICOS E COMPÓSITOS.xlsx", "07 - ABERTURAS.xlsx", "08 - ACABAMENTOS.xlsx")
Dim Caminho As String
Dim Abrir As String
Dim i As Integer
Dim LinhaFinal As Long

    Caminho = "C:\hd_servidor\8 BIBLIOTECA\3 REVIT\TEMPLATE\CATEGORIZAÇÃO\"

'Cancel animations for faster process
    Application.ScreenUpdating = False
    Application.EnableEvents = False
 
'Clear Contents of current compilation
        ThisWorkbook.Worksheets("TESTE").Activate
        LinhaFinal = Cells(Rows.Count, 1).End(xlUp).Row
        Range("A1:C" & LinhaFinal).ClearContents
 
'Loop, Copy and Paste to Compilation

    For i = 0 To 5
        Abrir = Caminho & Planilha(i)
        Workbooks.Open (Abrir)
    
        LinhaFinal = Cells(Rows.Count, 6).End(xlUp).Row
        Range("E2:G" & LinhaFinal).Copy
        ThisWorkbook.Worksheets("TESTE").Activate
        LinhaFinal = Cells(Rows.Count, 1).End(xlUp).Row
        Range("A" & LinhaFinal).PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        Workbooks(Planilha(i)).Close
        
    Next i

        
'Animations Back
Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

编辑后留下英文说明，因为我以前用葡萄牙语写过。

【讨论】：