合并当前目录下所有工作簿的全部工作表
2017-02-09 15:55
281 查看
合并当前目录下所有工作簿的全部工作表
以2003Excel版本为例：
1. 在当前目录下新建一个空的Excel：如2017-1-2
2. 打开2017-1-2Excel文件，alt+F11 进入VB代码编辑器
3. 例：将以下代码粘贴到编辑器thisworkbook中
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("B65536").End(xlUp).Row + 2, 1)= Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy.Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下："& Chr(13) & WbN, vbInformation, "提示"
End Sub
4. 关闭vb编辑器 alt+F8 调出宏工具，选中刚才创建的，点击“执行”
5. 完美：2017-1,2017-2就合并好了
以2003Excel版本为例：
1. 在当前目录下新建一个空的Excel：如2017-1-2
2. 打开2017-1-2Excel文件，alt+F11 进入VB代码编辑器
3. 例：将以下代码粘贴到编辑器thisworkbook中
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("B65536").End(xlUp).Row + 2, 1)= Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy.Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下："& Chr(13) & WbN, vbInformation, "提示"
End Sub
4. 关闭vb编辑器 alt+F8 调出宏工具，选中刚才创建的，点击“执行”
5. 完美：2017-1,2017-2就合并好了
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 合并当前目录下所有工作簿的全部工作表宏代码
- 合并当前工作簿下的所有工作表
- 将当前目录下所有.bz2的文件解压并合并成一个文件的Shell script
- 转换小写: 将当前目录下的所有文件名全部转换为小写
- 【集中工作薄】 当前文件夹中所有Excel文件中 多个工作簿的第一个工作表 复制到工作簿中
- 列出zip文件内全部内容 当前目录下的所有文件压缩成zip格式的文件(file.zip)
- VBA 合并当前目录下的工作表
- 合并当前工作簿下的所有工作表
- Excel学习笔记002-004:如何合并工作表或工作簿?
- windows 批处理 获取当前目录及子目录的所有文件路径
- linux查找当前目录下包含某一单词的所有文件并进行替换
- 将一个目录中所有PDF文件合并到一个新的PDF文件中
- 自动按时间备份当前目录的所有文件到上级目录
- 列出当前目录所有包含指定字符串的文件
- java遍历一个目录中不包括当前目录的其他所有父级目录
- linux命令删除当前目录即其子目录下的所有文件夹
- 将目录中的所有文件全部复制到上一层目录中（git bash）
- Linux中查看当前目录下所有子目录空间占用情况的命令
- 删除当前目录下所有符合某些patterns的文件
- 遍历所有当前及下级目录，并记录为XML文件