将多个工作簿文件作为工作表批量放到一个Excel工作簿中
Excel情报局
Excel职场联盟
01
问题描述
Excel情报局
今天小编给大家分享一下：
如何将多个Excel工作簿文件作为工作表放到一个工作簿中。
一般产生这种诉求的情景非常常见，比如多个部门将自己的数据报给财务总管后，财务总管需要快速的放到一个工作簿中发送给总公司领导。
如下图所示，在同一个文件夹中有3个Excel工作簿文件，分别为“销售部”、“财务部”、“生产部”。每个工作簿中有各自的工作表表格信息。
现在我们想要将这3个Excel工作簿文件作为工作表放到一个工作簿中。如下图所示：
02
合并流程
Excel情报局
首先我们需要在该文件夹内新建一个Excel文件，作为合并后存放数据的工作簿，我们可以将这个工作簿命名为“Excel情报局”。
接下来我们打开这个新建的工作簿，然后随意找到里面一个空白的工作表，右击工作表名称标签，点击“查看代码”，将一段VBA代码复制粘贴到弹出的VBA代码编辑窗口中。
然后点击上方的“运行”-“运行子过程/用户窗体”。
代码如下：
Sub 工作薄间工作表合并()Dim FileOpenDim X As IntegerApplication.ScreenUpdating = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")X = 1While X <= UBound(FileOpen)Workbooks.Open Filename:=FileOpen(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Suberrhadler:MsgBox Err.DescriptionEnd Sub这时候会自动弹出一个文件路径选择窗口，我们找到“销售部”、“财务部”、“生产部”这3个工作簿所在的文件夹，点击进入文件夹，选中这3个工作簿文件，点击“打开”按钮，退出即可。
然后会自动进行合并，最后关闭VBA代码编辑窗口。如下图所示：
这里需要注意的是：
最好让我们的工作簿文件的后缀格式保持一致，并且与代码中的文件格式代码保持一致，如下图红色圈内的部分所示，根据自己的工作簿格式灵活更改，否则会检测不到我们的工作簿所在的路径。
赞 (0)