VBA合并多个excel表
2017-12-22 10:55
141 查看
Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String flag = 0 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 For G = 1 To Sheets.Count If flag = 0 Then Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row , 1) flag = 1 Else Wb.Sheets(G).Range("a2", Wb.Sheets(G).Cells.SpecialCells(xlCellTypeLastCell)).Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) End If Next WbN = WbN & Chr(13) & Wb.Name Wb.Close False End With End If MyName = Dir Loop Range("A1").Select Application.ScreenUpdating = True MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示" End Sub
相关文章推荐
- VBA合并多个EXCEL表代码
- 将两个Excel表中的数据合并
- Word插入文件 VBA 合并 文件
- 如何快速把多个excel表合并成一个excel表
- 批处理之合并多个Excel表
- 利用VBA实现多个EXCEL表格合并
- 使用VBA合并多个Excel工作簿
- 用VBA在excel表中自动化生成测试用例数据(异常)
- VBA:单元格合并时内容也进行合并
- 在Excel里用vba给合并的单元格添加注释
- VBA 合并当前目录下的工作表
- 如何快速把多个excel表合并成一个excel表
- EXCEL VBA 跨表合并多个文件
- Excel多文件合并(VBA方案)
- 【一步一步学习VBA】WORD 创建表格并合并表格
- 怎么合并EXCEL表中的相同行,并对数量相加
- 用VBA实现把多个Excel文件合并到一个Excel文件的多个工作表(Sheet)里
- [VBA, Excel] 设置行合并表格的边框
- vba 删除、移动、合并数据
- excel中利用vba合并多个sheet页和合并多个excel文档