VBA合并多个excel表
来源:互联网 发布:如何利用淘宝赚钱 编辑:程序博客网 时间:2024/05/27 14:14
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, "提示"
阅读全文
0 0
- VBA合并多个excel表
- VBA 合并多个excel
- EXCEL VBA 跨表合并多个文件
- 使用VBA合并多个Excel文件
- 使用VBA合并多个Excel工作簿
- 使用VBA合并多个Excel工作簿
- 利用VBA实现多个EXCEL表格合并
- excel中利用vba合并多个sheet页和合并多个excel文档
- 使用VBA合并多个EXCEL文件到一个EXCEL文件
- 用VBA实现把多个Excel文件合并到一个Excel文件的多个工作表(Sheet)里
- 通过VBA宏合并Excel工作表
- VBA EXCEL 文件合并
- excel 合并文件 vba
- VBA excel文件合并
- 批处理之合并多个Excel表
- VBA合并EXCEL的单元格
- excel VBA合并工作簿
- 合并多个Excel文件
- google play billing library 文档备查
- Android Studio 编译时提示error please select android sdk
- jdbc连接数据库操作
- Spring3.2—— BeanPostProcessor、BeanFactoryPostProcessor
- bootstrap dataTable 合并单元格(前端)
- VBA合并多个excel表
- Java数据结构与算法之学习
- 蓝桥杯 数组排序
- MyBatis学习总结(一)——MyBatis快速入门
- freemarker自定义方法(六)
- dumpsys
- 基于OpenCV的简易特征提取代码
- bootstrap-table分页跳到指定页面下拉框
- wpf ScrollViewer样式