新建一个工作表，命名后保存到和与合并的多个个文件同一个文件文件夹，摁 alt +
f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "" &
"*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & ""
& MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName,
Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G)
最后
以上就是妩媚往事最近收集整理的关于vb整合多个excel表格到一张_多个excel文件合并到一个文件中 VB的全部内容，更多相关vb整合多个excel表格到一张_多个excel文件合并到一个文件中 VB内容请搜索靠谱客的其他文章。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复