怎么将多个Excel工作簿合并成一个新的工作簿

怎么将多个Excel工作簿合并成一个新的工作簿~

百度搜 易用宝 里面有工作薄管理

代码 好多地方 连到一起 ， 要加空格， 我帮你改好了， 已测试可用

Sub CombineFiles()
Dim path As String
Dim FileName As String
Dim LastCell As Range
Dim Wkb As Workbook
Dim WS As Worksheet
Dim ThisWB As String

Dim MyDir As String
MyDir = ThisWorkbook.path & "\"
'ChDriveLeft(MyDir, 1) 'find all the excel files
'ChDir MyDir
'Match =Dir$("")

ThisWB = ThisWorkbook.Name
Application.EnableEvents = False
Application.ScreenUpdating = False
path = MyDir
FileName = Dir(path & "\*.xls", vbNormal)
Do Until FileName = ""
If FileName ThisWB Then
Set Wkb = Workbooks.Open(FileName:=path & "\" & FileName)
For Each WS In Wkb.Worksheets
Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)
If LastCell.Value = "" And LastCell.Address = Range("$A$1").Address Then
Else
WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
End If
Next WS
Wkb.Close False
End If
FileName = Dir()
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True

Set Wkb = Nothing
Set LastCell = Nothing
End Sub

　　　已知有多个独立的excel工作簿文件，现在需要将这些文件合并到一个新的工作簿中。保留原来excel工作簿中各个excel工作表名称。如果量小，可以采用打开一个个复制的方法。在这里，我将向大家分享，怎么批量处理多个工作簿（ps：不是工作表）的合并。
　　工具/原料
　　microsoft office excel 2007
　　方法/步骤
　　将需要合并的excel工作簿文件放置在一个文件夹中。
每个文件夹中的工作簿都输入了简单的内容。
　　在该文件夹中，新建立一个新的excel工作簿文件。重命名为8.
　　打开新建立的excel工作簿文件8.按Alt+F11或者将鼠标移动到下方工作表名称sheet1上右键，选择查看代码。
　　在弹出的代码编辑窗口中，输入代码。注意：通过快捷键Alt+F11打开的窗口如下没有直接复制代码的面板，需要点击左上方的工程-VBA project模块，双击sheet1，即可打开代码窗口。而步骤3中的第二种方法可以直接打开代码输入窗口。
　　在代码窗口中，黏贴下列代码：
　　Sub CombineFiles()
　　Dimpath As String
DimFileName As String
DimLastCell As Range
DimWkb As Workbook
DimWS As Worksheet
DimThisWB As String

Dim MyDir AsString
MyDir =ThisWorkbook.path & "\"
'ChDriveLeft(MyDir, 1) 'find all the excel files
'ChDir MyDir
'Match =Dir$("")

ThisWB =ThisWorkbook.Name
Application.EnableEvents = False
Application.ScreenUpdating = False
path =MyDir
FileName =Dir(path & "\*.xls", vbNormal)
Do UntilFileName = ""
If FileName <> ThisWB Then
Set Wkb = Workbooks.Open(FileName:=path & "\"& FileName)
For Each WS In Wkb.Worksheets
Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)
If LastCell.Value = "" And LastCell.Address = Range("$A$1").AddressThen
Else
WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
End If
Next WS
Wkb.Close False
End If
FileName = Dir()
Loop
Application.EnableEvents = True
Application.ScreenUpdating = True

Set Wkb =Nothing
Set LastCell= Nothing
End Sub

　　点击菜单栏运行-运行子过程-用户窗体。关闭代码输入窗口。打开excel工作簿8.可以看到下方已经多了很多新的工作表——此时，我们已经将之前的工作簿中的工作表都复制到了这一新建的工作簿中。

---

林周县13472776468： 如何将多个excel文档合并到一个工作簿中 - ？
说饼头孢： 方法/步骤将需要合并的excel工作簿文件放置在一个文件夹中. 每个文件夹中的工作簿都输入了简单的内容.在该文件夹中,新建立一个新的excel工作簿文件.重命名为8.打开新建立的excel工作簿文件8.按Alt+F11或者将鼠标移动到下方工作...

林周县13472776468： 怎么将多个Excel工作簿合并成一个新的工作簿 - ？
说饼头孢： 根据数据格式的实际状况,可考虑选择以下方式之一: 1、直接设置函数公式. 2、设置控件(VBA). 3、编写宏代码(VBA). 4、编一个小程序.

林周县13472776468： 如何快速的合并多个 Excel 工作簿成为一个工作簿 - ？
说饼头孢： 1、分别打开待合并的两个工作薄2、在工作表名称处右击,然后点击选定全部工作表菜单全选工作表;或者按住Ctrl键的同时鼠标点击各个工作表名称;或者点击第一个工作表名称后,按住Shift键的同时点击最后一个工作表名称也能全选工作表.3、再次在工作表名称右击,然后点击移动或复制菜单4、在移动或复制窗口界面中选择待合并到的工作薄,然后确定;5、这时全选的那些工作表就会合并到选中的工作薄中,如果两个工作薄中有相同的工作表名称,Excel会自动将移动过来的工作表名称后加上“(数字)”,如果有需要可以自行修改工作表名称.

林周县13472776468： 如何将多个excel工作薄合并成一个 - ？
说饼头孢： 1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet1 2、选择查看代码(PS:excel有着一项,WPS没有) 3、将下列代码复制到文本框中: Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, ...

林周县13472776468： 如何将多个excel工作簿合并成一个 - ？
说饼头孢： 打开你的工作簿 新建一个工作表 在这个工作表的标签上右键 查看代码 你把下面的代码复制到里边去,然后 上面有个运行 运行子程序就可以了,代码如下,如果 出现问题你可以尝试工具 宏 宏安全性里把那个降低为中或者低再试试 sub 合并当...

林周县13472776468： 如何将多个excel工作簿合并为一个工作簿 - ？
说饼头孢： 1、新建一个工作薄,将其命名为你合并后的名字. 2、打开此工作薄. 3、在其下任一个工作表标签上点击右键,选择“查看代码”. 4、在打开的VBA编辑窗口中粘贴以下代码: Sub 工作薄间工作表合并()Dim FileOpen Dim X As Integer...

林周县13472776468： 如何将多个excel工作簿合并汇总 - ？
说饼头孢： 把 多个工作表 合并到到一张表, 最快捷的方法是用宏处理: 例如 将多个表合并到总计表:总计 表只留一个标题 右键点 汇总 工作表 标签 ,查看代码, 把如下代码复制进去, F5运行: Sub 工作表合并() For Each st In Worksheets If st....

林周县13472776468： Excel 怎样将多个工作簿里面的工作表合并到一个工作簿下 - ？
说饼头孢： 打开想要合并的2个或多个工作簿---选中下面所有工作表(可以按住ctrl进行多项),单击右键---移动或复制工作表---在弹出的对话框中选择想要复制到的工作簿路径即可合并到一起了.

林周县13472776468： 怎么把多个excel工作簿合成一个工作簿? - ？
说饼头孢： 直接选取所需要的工作表,然后右键选择移动或复制会弹出对话框,直接选择要合并的工作簿就可以了.注意是在工作表上右键,而不是在工作表内容里面全部选择再复制.

林周县13472776468： 一个工作薄怎么合并多个工作表? - ？
说饼头孢： 场景一:多个Excel文件需要合并为1个Excel文件(多个工作簿合并为1个工作簿) 场景二:1个Excel文件种有多个工作表,需要合并为1个工作表 Step1:单击 【数据】- 【新建查询】 - 【从文件】- 【从文件夹】Step2:单击 【浏览】,选择文件夹路径Step3:选择【合并并加载】数据列,最终可以很方便看到数据来自于哪个工作簿.