怎么把100多个EXCEL文件合并成一个
2013-04-24 10:22
387 查看
转自:http://zhidao.baidu.com/question/96195372.html
新建一个工作表,命名后保存到和与合并的100个文件同一个文件文件夹,摁 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).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) 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
相关文章推荐
- c#(Asp.net)多个Excel文件合并到一个新的excel中
- POI 复制多个excel文件 合并为一个总excel文件
- ant打jar包时, 怎么把所依赖的jar包与从源码中编译过来class文件合并成最终的一个jar?
- 利用Python将多个excel文件合并为一个文件
- 当使用dbeaver导出多个sql文件,怎么快速的把它合并成一个文件,可以针对多种不同的类型
- ant打jar包时, 怎么把所依赖的jar包与从源码中编译过来class文件合并成最终的一个jar?
- python读写excel(附上将一个文件夹下所有excel文件合并成一个文件的代码)
- 用VBA实现把多个Excel文件合并到一个Excel文件的多个工作表(Sheet)里
- 多个excel文件如何快速合并到一个excel中
- 把多个excel文件的sheet1数据合并到一个excel文件的sheet1中
- linux shell怎么将多个文件(行数相同)合并为同一个文件,相同行数据还是写相同行
- 怎么将多个pdf文件合并成一个pdf文档
- 怎么把几个PDF文件合并成一个PDF
- 使用VBA合并多个EXCEL文件到一个EXCEL文件
- [置顶] 【python Excel 合并】python合并同一个文件夹下所有excel文件
- vbs宏:excel读取多个文件并合并为一个文件
- Winform合并多个Excel文件到一个文件中(源文件.xls,实际是.xml)
- 将多个Excel文件合并成一个有多个sheet的Excel文件
- 利用NPOI合并多个Excel文件到一个新的Excel
- 多个Excel文件的第一个工作表(Sheet)合并到一个Excel文件的多个工作表里