如何循环遍历目录中的工作簿并将数据复制到Excel中的主工作表？

假设您有一个文件夹中包含多个Excel工作簿，需要遍历所有这些文件，从一个固定的工作表（例如Sheet1）中的特定区域复制数据到主工作表。本指南提供了一个详细的VBA解决方案，以简化在Excel中的这一过程。

使用VBA代码循环遍历目录中的工作簿并将数据复制到主工作表

使用VBA代码循环遍历目录中的文件并将数据复制到主工作表

如果要从特定文件夹中所有工作簿的Sheet1工作表的A1:D4区域复制数据并粘贴到主工作表，请按照以下步骤操作。

1. 在您将创建主工作表的工作簿中，按 Alt + F11 键打开Microsoft Visual Basic for Applications窗口。

2. 在Microsoft Visual Basic for Applications窗口中，点击 插入 > 模块。然后将以下VBA代码复制到代码窗口中。

VBA代码：循环遍历文件夹中的文件并将数据复制到主工作表

Sub Merge2MultiSheets()
    Dim xRg As Range
    Dim xSelItem As Variant
    Dim xFileDlg As FileDialog
    Dim xFileName, xSheetName, xRgStr As String
    Dim xBook, xWorkBook As Workbook
    Dim xSheet As Worksheet
    On Error Resume Next
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    xSheetName = "Sheet1"
    xRgStr = "A1:D4"
    Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    With xFileDlg
        If .Show = -1 Then
            xSelItem = .SelectedItems.Item(1)
            Set xWorkBook = ThisWorkbook
            Set xSheet = xWorkBook.Sheets("New Sheet")
            If xSheet Is Nothing Then
                xWorkBook.Sheets.Add(after:=xWorkBook.Worksheets(xWorkBook.Worksheets.Count)).Name = "New Sheet"
                Set xSheet = xWorkBook.Sheets("New Sheet")
            End If
            xFileName = Dir(xSelItem & "\*.xlsx", vbNormal)
            If xFileName = "" Then Exit Sub
            Do Until xFileName = ""
               Set xBook = Workbooks.Open(xSelItem & "\" & xFileName)
                Set xRg = xBook.Worksheets(xSheetName).Range(xRgStr)
                xRg.Copy xSheet.Range("A65536").End(xlUp).Offset(1, 0)
                xFileName = Dir()
                xBook.Close
            Loop
        End If
    End With
    Application.DisplayAlerts = True
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

注意：

3. 按 F5 键运行代码。

4. 在弹出的 浏览 窗口中，请选择包含要循环遍历的文件的文件夹，然后点击 确定 按钮。参见截图：

随后会在当前工作簿末尾创建一个名为“New Sheet”的主工作表，并且所选文件夹中所有Sheet1的A1:D4区域的数据会列在该工作表内。

相关文章：

• 如何在Excel中复制单元格数据同时保留行高和列宽？