将一个excel多个文件合并成一个文件的多个sheet

将一个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.运行代码后，弹出文档选择界面，找到你想要合并的文档路径，然后选择你想要合并的全部文档，此时点击确定，代码开始运行

扫描二维码关注公众号，回复： 17273507 查看本文章

7.在代码运行结束之后，会出现已经合并好的excel文档页面，找到它的位置即可使用

最后特别感谢：https://blog.csdn.net/yswKnight/article/details/112861212