将一个excel多个文件合并成一个文件的多个sheet
1.在新建文件夹目录下,将需要合并的excel文档放到该目录下
2.新建一个空白文档,将鼠标移动到sheet工作表上,单击右键,选择“查看代码”
3.在进入后点击“插入”菜单,选择模块选项,进入编辑页面
4.在编辑框中复制如下代码
特别注意:要求在英文状态下复制
'功能:把多个excel工作簿的第一个sheet工作表合并到一个excel工作簿的多个sheet工作表,新工作表的名称等于原工作簿的名称
Sub Books2Sheets()
'定义对话框变量
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
'新建一个工作簿
Dim newwb As Workbook
Set newwb = Workbooks.Add
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 = Workbooks.Open(vrtSelectedItem)
'复制工作表
tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)
'把新工作簿的工作表名字改成被复制工作簿文件名,这儿应用于xls文件,即Excel97-2003的文件,如果是Excel2007,需要改成xlsx
newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xlsx", "")
'关闭被合并工作簿
tempwb.Close SaveChanges:=False
i = i + 1
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Sub
5.代码粘贴后,选择菜单栏中的“运行”选项,再选择“运行子过程”
6.运行代码后,弹出文档选择界面,找到你想要合并的文档路径,然后选择你想要合并的全部文档,此时点击确定,代码开始运行
7.在代码运行结束之后,会出现已经合并好的excel文档页面,找到它的位置即可使用
最后特别感谢:https://blog.csdn.net/yswKnight/article/details/112861212