bat 合并execl数据

如果你想要批量合并多个 Excel 文件的数据，可以使用 VBA 宏来实现。下面是一个简单的示例代码：

Sub MergeExcelFiles()
    Dim FolderPath As String
    Dim SelectedFiles() As Variant
    Dim N As Integer
    Dim FileName As String
    Dim WorkBk As Workbook
    Dim SourceRange As Range
    Dim DestRange As Range

    '选择要合并的文件夹
    FolderPath = Application.GetOpenFilename("Excel files (*.xlsx), *.xlsx", , "Select folder with Excel files to merge", , True)
    If FolderPath = False Then Exit Sub

    '选择要合并的文件
    SelectedFiles = Application.GetOpenFilename("Excel files (*.xlsx), *.xlsx", , "Select Excel files to merge", , True)
    If IsEmpty(SelectedFiles) Then Exit Sub

    '创建新的工作簿
    Set WorkBk = Workbooks.Add(xlWBATWorksheet)

    '遍历所选文件并合并数据
    For N = LBound(SelectedFiles) To UBound(SelectedFiles)
        FileName = SelectedFiles(N)
        Set SourceRange = Workbooks.Open(FileName).Worksheets(1).UsedRange
        Set DestRange = WorkBk.Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1)

        SourceRange.Copy DestRange
        Workbooks(FileName).Close SaveChanges:=False
    Next N
End Sub

在执行宏之前，你需要将代码复制到 Excel 的 VBA 编辑器中。然后按下 Alt+F8 打开宏对话框，选择 MergeExcelFiles 并点击运行按钮即可。在弹出的文件选择对话框中，选择要合并的文件夹和文件，然后等待宏执行完成即可。