如何合并多个excel文件！急急急！高分！

来源：百度知道 编辑：UC知道 时间：2024/05/15 10:52:44
有一个文件夹下有很多个excel文件，每个excel里面只有一个表。怎么将这些表合并到一个EXCEL文件中

常见问题,执行下面的宏
Sub huizhong()

Dim fd As FileDialog
Dim Wbook As Workbook
Dim rowindex As Integer
Set fd = Application.FileDialog(msoFileDialogFilePicker)

Dim vrtSelectedItem As Variant

With fd
.Filters.Add "EXCEL 文件", "*.xls", 1 '过滤
If .Show = -1 Then
rowindex = 1

For Each vrtSelectedItem In .SelectedItems
Set Wbook = Workbooks.Open(vrtSelectedItem)
subrowindex = 1 '每个表从第一行开始
Do While Wbook.Worksheets("Sheet1").Cells(subrowindex, 1) <> ""
'假设被汇总的excel文件名为 "综合表",表名为sheet1.
Workbooks("综合表.xls").Worksheets("Sheet1").Cells(rowindex, 1) = Wbook.Worksheets("Sheet1").Cells(subrowindex, 1).Value '以下是对每一行进行赋值
Workbooks("综合表.xls").Worksheets("Sheet1").Cells(rowindex, 2) = Wbook.Worksheets("Sheet1").Cells(subrowindex, 2).Value
subrowindex = subrowindex +