Excel VBA系列之汇总多个Excel文件

如何通过VBA快速汇总多个Excel文件至一个Excel文件中？

1. 在Excel VBA中可以通过Dir函数获取在文件夹下的文件名称。

Excel VBA系列之批量汇总多个文件名称 -

2. 通过Dir函数也可以把多个Excel文件汇总到一个Excel工作簿中。

打开一个新建Excel文件。

3. 打开Visual Basic，添加模块和过程，称之为“汇总文件”。

4. 将汇总文件名的代码复制到以上的过程中，再定义一个变量wb为工作簿类型。

5. 添加打开和关闭文件夹下各Excel文件的代码。

6. 将各个文件中的第一张工作表复制到当前的工作簿中最后一张工作表的后面。

7. 执行以上的代码后，即可在当前的工作簿中汇总各个Excel文件的工作表。

8. 如果要将复制过来的工作表以各个Excel文件名称来命名，可以再加上一段代码。

完整代码如下：

Sub 汇总文件()

Dim str As String

Dim i As Integer

Dim wb As Workbook

str = Dir("D:\test\*.xls*")

For i = 1 To 100

  Set wb = Workbooks.Open("D:\test\" & str)

  wb.Sheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

  ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name=Split(wb.Name, ".")(0)

  wb.Close

  str = Dir

  If str = "" Then

      Exit For

  End If

Next

End Sub

希望以上的分享对大家有帮助！