这段VBA宏代码用于将多个Excel文件中的工作表逐一合并到一个已打开的工作簿中，每个源工作表将作为新工作簿的一个独立工作表。通过GetOpenFilename函数让用户选择要合并的文件，然后遍历每个文件并复制其所有工作表到目标工作簿。宏关闭源工作簿并保留目标工作簿的更新设置。
命令从下面第一个Sub开始：
Sub 合并不同工作簿的工作表到一个工作簿的不同工作表()
Excel.Application.ScreenUpdating = False
Dim ARR()
Dim WB As Workbook
Dim N As String
Dim SHT As Worksheet
Dim I As Integer
N = ActiveWorkbook.Name
On Error Resume Next
ARR = Application.GetOpenFilename(“Excel文件,.xls”, , “选择文件”, , True)
For I = LBound(ARR) To UBound(ARR)
Set WB = Workbooks.Open(ARR(I))
For Each SHT In WB.Sheets
With Workbooks(N)
SHT.Copy AFTER:=.Sheets(.Sheets.Count)
.Sheets(.Sheets.Count).Name = SHT.Name
End With
Next
WB.Close
Next
Sheets(1).Select
Excel.Application.ScreenUpdating = True
End Sub
扫一扫
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
