·
4 months ago
hai sir i want know code for copying multiple sheets in one excel to multiple excels
如何在Excel中将多个工作簿合并为一个主工作簿？
当您必须将多个工作簿合并到Excel中的主工作簿时，您是否曾经被困住过？ 最可怕的是，您需要组合的工作簿包含多个工作表。 以及如何仅将多个工作簿的指定工作表合并到一个工作簿中？ 本教程演示了几种有用的方法来帮助您逐步解决问题。
通过移动或复制功能将多个工作簿合并为一个工作簿
如果只需要合并几个工作簿，则可以使用“移动”或“复制”命令将工作表从原始工作簿手动移动或复制到主工作簿。
1.打开工作簿，您将这些工作簿合并为主工作簿。
2.在原始工作簿中选择要移动或复制到主工作簿的工作表。
备注：
1）。 您可以选择多个不相邻的工作表，同时按住 按Ctrl 键并一一点击工作表标签。
2）。 要选择多个相邻的工作表，请单击第一个工作表标签，按住 转移 键，然后单击最后一个工作表标签以将其全部选中。
3）。 您可以右键单击任何工作表标签，然后单击 选择所有工作表 从上下文菜单中选择同时在工作簿中的所有工作表。
3.选择所需的工作表后，右键单击“工作表”选项卡，然后单击“确定”。 移动或复制 从上下文菜单中。 看截图：
4.然后 移动或复制 对话框弹出 预订 下拉菜单中，选择要移动或复制工作表的主工作簿。 选择移动以结束 前表 框，选中 建立副本 框，最后单击 OK 按钮。
然后，您可以将两个工作簿中的工作表合并为一个。 请重复上述步骤，将工作表从其他工作簿移至主工作簿。
使用VBA将多个工作簿或指定的工作簿表合并为主工作簿
如果需要将多个工作簿合并为一个，则可以应用以下VBA代码来快速实现它。 请执行以下操作。
1.将要合并的所有工作簿放在同一目录下。
2.启动一个Excel文件（此工作簿将成为主工作簿）。
3。 按 其他 + F11 键打开 适用于应用程序的Microsoft Visual Basic 窗口。 在里面 适用于应用程序的Microsoft Visual Basic 窗口中，单击 插页 > 模块，然后将以下VBA代码复制到“模块”窗口中。
VBA代码1：将多个Excel工作簿合并为一个
Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub
备注：
1.上面的VBA代码在合并后将保留原始工作簿的图纸名称。
2.如果要区分主工作簿中的哪些工作表是合并后来自何处，请应用下面的VBA代码2。
3.如果仅要将工作簿的指定工作表合并到主工作簿中，则下面的VBA代码3可以提供帮助。
在VBA代码中，“C：\ Users \ DT168 \ Desktop \ KTE \”是文件夹路径。 在VBA代码3中，Sheet1，Sheet3”是您将合并到主工作簿的工作簿的指定工作表。您可以根据需要进行更改。
VBA代码2：将工作簿合并为一个（每个工作表将以其原始文件名的前缀命名）：
Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
VBA代码3：将工作簿的指定工作表合并到主工作簿中：
Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next
xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"
xArr = Split(xStrName, ",")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
4。 按 F5 键来运行代码。 然后，将某个文件夹中工作簿的所有工作表或指定工作表立即合并到一个主工作簿中。
轻松将多个工作簿或指定的工作簿表合并为一个工作簿
幸运的是 结合 的工作簿实用程序 Kutools for Excel 使将多个工作簿合并为一个更加容易。 让我们看看如何在组合多个工作簿时使该功能发挥作用。
申请前 Kutools for Excel请 首先下载并安装.
1.创建一个新的工作簿，然后单击 Kutools Plus > 结合。 然后会弹出一个对话框，提醒您所有组合的工作簿都应保存，并且该功能不能应用于受保护的工作簿，请单击 OK 按钮。
2。 在里面 合并工作表 向导，选择 将工作簿中的多个工作表合并到一个工作簿中 选项，然后单击 下一页 按钮。 看截图：
3。 在里面 合并工作表-第2步，共3步 对话框中，单击 加入 > 文件 or 夹 要添加Excel文件，您将合并为一个。 添加Excel文件后，点击 完 按钮，然后选择一个文件夹来保存主工作簿。 看截图：
现在，所有工作簿都合并为一个。
与以上两种方法相比， Kutools for Excel 具有以下优点：
- 1）所有工作簿和工作表都在对话框中列出；
- 2）对于要从合并中排除的工作表，只需取消选中它；
- 3）空白工作表被自动排除；
- 4）合并后，原始文件名将作为工作表名称的前缀添加；
- 有关此功能的更多功能， 请访问这里.
如果您想免费试用该工具（30天）， 请点击下载，然后按照上述步骤进行操作。
Kutools for Excel- 帮助您始终提前完成工作，有更多时间享受生活
您是否经常发现自己正在赶上工作，缺乏时间为自己和家人度过？ Kutools for Excel 可以帮助您处理80％的Excel难题并提高80％的工作效率，让您有更多时间照顾家人并享受生活。
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment...
The comment will be refreshed after 00:00.