VBA宏开发需求：将多工作簿数据批量复制到主工作簿

以下是实现自动打开多个文件→复制「Macro」工作表数据→粘贴到主工作簿「Output」→关闭文件全流程的VBA代码，替代原有的单文件处理逻辑：

Sub BatchCopyMacroData()
    Dim fd As FileDialog
    Dim selectedFiles As Variant
    Dim wbSource As Workbook
    Dim wsCopy As Worksheet
    Dim wsDest As Worksheet
    Dim lCopyLastRow As Long
    Dim lDestLastRow As Long
    
    ' 关闭屏幕刷新，提升运行速度
    Application.ScreenUpdating = False
    
    ' 设定目标工作表（主工作簿的Output表）
    Set wsDest = ThisWorkbook.Worksheets("Output")
    
    ' 打开文件选择对话框，允许多选
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .Title = "请选择需要处理的文件"
        .Filters.Add "Excel文件", "*.xlsx;*.xls"
        .AllowMultiSelect = True
        If .Show = -1 Then
            selectedFiles = .SelectedItems
        Else
            Exit Sub ' 用户取消选择
        End If
    End With
    
    ' 循环处理每个选中的文件
    For Each filePath In selectedFiles
        ' 打开源文件
        Set wbSource = Workbooks.Open(filePath)
        ' 定位源文件的Macro工作表
        On Error Resume Next ' 处理无Macro表的情况
        Set wsCopy = wbSource.Worksheets("Macro")
        On Error GoTo 0
        
        If Not wsCopy Is Nothing Then
            ' 获取源表最后一行（A列）
            lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row
            ' 获取目标表下一个空白行（A列）
            lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row
            
            ' 复制源表A到E列的有效数据，粘贴值和格式
            wsCopy.Range("A1:E" & lCopyLastRow).Copy
            wsDest.Range("A" & lDestLastRow).PasteSpecial Paste:=xlPasteValues
            wsDest.Range("A" & lDestLastRow).PasteSpecial Paste:=xlPasteFormats
        End If
        
        ' 关闭源文件，不保存更改
        wbSource.Close SaveChanges:=False
        Set wsCopy = Nothing ' 释放对象
    Next filePath
    
    ' 恢复屏幕刷新，清除剪贴板
    Application.ScreenUpdating = True
    Application.CutCopyMode = False
    MsgBox "批量数据复制完成！"
End Sub

关键改进说明 #

• 批量选择文件：通过FileDialog让用户一次性选择所有需要处理的Excel文件，无需手动逐个打开
• 动态数据范围：不再固定复制A1:E5，而是根据A列最后一行自动获取有效数据区域
• 错误处理：加入对缺失「Macro」工作表的判断，避免宏运行报错
• 性能优化：关闭屏幕刷新减少闪烁，提升运行效率
• 自动关闭文件：处理完每个文件后自动关闭，且不保存（避免误改源文件）

使用方法 #

1. 打开你的主工作簿（包含「Output」工作表的那个）
2. 按Alt+F11打开VBA编辑器
3. 插入新的模块，将上述代码粘贴进去
4. 运行BatchCopyMacroData宏，按提示选择需要处理的文件即可

内容的提问来源于stack exchange，提问作者Opg21