将多个excel文件合并到一个excel的多个sheet中.docVIP

VBA方法 - 将多个 excel 文件合并到一个 excel 的多个 sheet 中 由上级的要求，同事需要将以前做的所有 excel 文件（手机话费清单表），都合并到一个 excel 中，并且每个 excel 文件为一个 sheet 。她开始是用复制粘贴的方法，很麻烦。所有她就问我，有没有什么方法可以快点做完。 网上搜索，方法如下： 将需合并的 excel 文件放在同一个文件中， 并这个文件中新建一个 excel 文件 2. 打开新建的 excel 文件，按 alt + f11 建，打开宏，新建一个模组，将 下面的代码拷贝进去，并保存。 Sub Books2Sheets() 定义对话框变量 Dim fd As FileDialog Set fd = (msoFileDialogFilePicker) 新建一个工作簿 Dim newwb As Workbook Set newwb = With fd If .Show = -1 Then 定义单个文件变量 Dim vrtSelectedItem As Variant 定义循环变量 Dim i As Integer i = 1 开始文件检索 For Each vrtSelectedItem In .SelectedItems 打开被合并工作簿 Dim tempwb As Workbook Set tempwb = (vrtSelectedItem) 复制工作表 (1).Copy Before:=(i) 把新工作簿的工作表名字改成被复制 工作簿文件名，这儿应用于 xls 文件，即 Excel97-2003 的文件，如果是 Excel2007 ，需要改成 xlsx (i).Name = , .xls, ) 关闭被合并工作簿 SaveChanges:=False i = i + 1 Next vrtSelectedItem End If End With Set fd = Nothing End Sub 运行程序，弹出对话框，批量选择要合并的 excel 名，确定即可。注意：完成后，所需表格为 book1, 而不是那个新建 excel 。