背景:
阅读内容

如何将多个Excel文件合并为一个Excel

[日期:2017-10-03] 来源:  作者: [字体: ]

经验可实现将多个excel文件都合并到一个excel中,前提是每个excel文件为一个sheet

工具/原料

excel表格

方法/步骤

将需合并的excel文件放在同一个文件夹中,并这个文件中新建一个excel文件


如何将多个excel文件合并为一个excel

打开新建的excel文件,按alt + f11建,打开宏,选择视图——代码窗口


如何将多个excel文件合并为一个excel
如何将多个excel文件合并为一个excel

将下面分割线内的的代码拷贝进去,并保存。

======我是分割线======

Sub sheets2one()

    '定义对话框变量

    Dim cc As FileDialog

    Set cc = Application.FileDialog(msoFileDialogFilePicker)

    Dim newwork As Workbook

    Set newwork = Workbooks.Add

    With cc

        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:=newwork.Worksheets(i)

                newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")

                tempwb.Close SaveChanges:=False

                i = i + 1

            Next vrtSelectedItem

        End If

    End With

    Set cc = Nothing

End Sub

======我是分割线======


如何将多个excel文件合并为一个excel

点击运行,弹出对话框可,点击运行选项运行程序,


如何将多个excel文件合并为一个excel
如何将多个excel文件合并为一个excel

再次弹出选择对话框,选择要批量合并的excel名,确定即可


如何将多个excel文件合并为一个excel

程序运行完毕后,会自动生成一个工作簿,工作簿内包含所有需合并的excel文件,将工作簿另外即可


如何将多个excel文件合并为一个excel
如何将多个excel文件合并为一个excel

注意事项

每个需合并的excel文件内为单独一个sheet
收藏 推荐 打印 | 阅读:
相关新闻       excel 
本文评论   [发表评论]   全部评论 (0)
热门评论