请求编写VBA代码：批量格式化Excel文件并合并至主工作表

核心功能说明 #

• 批量打开指定文件夹内所有Excel文件
• 对每个文件执行预设的tb_cleanup()格式化操作
• 将格式化后的数据合并到新建的主工作表中
• 整合所有步骤为单一可执行的主程序

完整整合代码 #

' 主程序：整合所有步骤
Sub BatchProcessAndMergeExcelFiles()
    Dim wbMaster As Workbook
    Dim wsMaster As Worksheet
    Dim wbSource As Workbook
    Dim wsSource As Worksheet
    Dim lastRowMaster As Long, lastRowSource As Long
    Dim folderPath As String
    
    ' 创建主工作簿用于合并数据
    Set wbMaster = Workbooks.Add
    Set wsMaster = wbMaster.Sheets(1)
    wsMaster.Name = "合并数据"
    
    ' 获取目标文件夹路径（可手动指定或用对话框选择）
    folderPath = GetFolderPath() ' 调用文件夹选择函数
    If folderPath = "" Then Exit Sub
    
    ' 批量打开文件夹内的Excel文件
    Open_Workbooks folderPath
    
    ' 遍历所有已打开的工作簿（排除主工作簿）
    For Each wbSource In Application.Workbooks
        If wbSource.Name <> wbMaster.Name Then
            ' 假设每个源文件只处理第一个工作表，可根据需求调整
            Set wsSource = wbSource.Sheets(1)
            
            ' 执行格式化操作
            tb_cleanup wsSource ' 传入需要格式化的工作表
            
            ' 复制格式化后的数据到主工作表（跳过表头，假设第一行是表头）
            lastRowSource = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
            lastRowMaster = wsMaster.Cells(wsMaster.Rows.Count, "A").End(xlUp).Row
            
            If lastRowMaster = 1 Then
                ' 主表为空，复制表头+数据
                wsSource.Range("A1:" & wsSource.Cells(lastRowSource, wsSource.Columns.Count).End(xlToLeft).Address).Copy _
                    Destination:=wsMaster.Range("A1")
            Else
                ' 主表已有数据，只复制数据行
                wsSource.Range("A2:" & wsSource.Cells(lastRowSource, wsSource.Columns.Count).End(xlToLeft).Address).Copy _
                    Destination:=wsMaster.Range("A" & lastRowMaster + 1)
            End If
            
            ' 关闭源文件，保存更改（根据需求选择是否保存）
            wbSource.Close SaveChanges:=True
        End If
    Next wbSource
    
    MsgBox "批量处理与合并完成！", vbInformation
End Sub

' 批量打开指定文件夹内的Excel文件（用户已实现，这里补充完整）
Sub Open_Workbooks(folderPath As String)
    Dim fileName As String
    fileName = Dir(folderPath & "*.xls*") ' 匹配所有Excel格式文件
    
    Do While fileName <> ""
        Workbooks.Open folderPath & fileName
        fileName = Dir
    Loop
End Sub

' 辅助函数：选择目标文件夹
Function GetFolderPath() As String
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    
    With fd
        .Title = "选择包含Excel文件的文件夹"
        If .Show = -1 Then
            GetFolderPath = .SelectedItems(1) & "\"
        Else
            GetFolderPath = ""
        End If
    End With
    Set fd = Nothing
End Function

' 以下为用户提供的tb_cleanup及依赖函数（用户需替换为自身实现的代码）
Sub tb_cleanup(ws As Worksheet)
    ' 在此插入用户已实现的格式化逻辑，例如调用myTable
    ' myTable ws
    ' 示例操作：删除空行、设置单元格格式等
End Sub

Sub myTable(ws As Worksheet)
    ' 在此插入用户已实现的依赖函数逻辑
End Sub

使用说明 #

1. 将上述代码复制到Excel的VBA编辑器中（按Alt+F11打开）
2. 确保tb_cleanup()和myTable()函数已替换为你实际的格式化代码
3. 运行BatchProcessAndMergeExcelFiles宏，按照提示选择目标文件夹
4. 程序会自动完成打开、格式化、合并所有步骤

注意事项 #

• 假设每个源文件的第一个工作表为需要处理的目标表，若需处理多个工作表，可修改遍历逻辑
• 代码默认保留主工作表的表头，仅复制后续数据行，若源文件表头不一致需额外处理
• 关闭源文件时默认保存更改，若不需要保存可将SaveChanges:=True改为False

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