求大佬帮忙，现需要把所有单独Excel文件统一汇总到一个文件内

Jaspersss

现需要把所有单独Excel文件统一汇总到一个文件内

例如汇总.xlsx，把甲乙丙丁精的文件名和固定内容统一复制粘贴到汇总表里

liulang0808

http://club.excelhome.net/thread-1258425-1-1.html
遍历文件的资料供参考。。。。。。

abc123281

汇总计数123.rar (47.31 KB, 下载次数: 6)

2018-10-18 18:05 上传

点击文件名下载附件

不知道为什么

参考

1. Sub 汇总()
   
2.     Dim Wbk As Workbook, Arr, Brr()
   
3.     Dim MyPath$, Fn, i&,x&
   
4.     Application.ScreenUpdating = False
   
5.     Application.DisplayAlerts = False
   
6.     MyPath = ThisWorkbook.Path & ""
   
7.     Fn = Dir(MyPath & "*.xl*")
   
8.     ReDim Brr(1 To 9999, 1 To 3)
   
9.     Do While Fn <> ""
   
10.         If Fn <> ThisWorkbook.Name Then
    
11.             Set Wbk = Workbooks.Open(MyPath & Fn)
    
12.             With Wbk
    
13.                 ms = Left(.Name, 1)
    
14.                 Arr = .Sheets(1).Range("a1").CurrentRegion
    
15.                 .Close
    
16.             End With
    
17.             For i = 2 To UBound(Arr)
    
18.                 x = x + 1
    
19.                 Brr(x, 1) = ms
    
20.                 Brr(x, 2) = Arr(i, 1)
    
21.                 Brr(x, 3) = Arr(i, 2)
    
22.             Next i
    
23.         End If
    
24.         Fn = Dir
    
25.     Loop
    
26.     With ActiveSheet
    
27.         .Cells.ClearContents
    
28.         .[a1].Resize(1, 3) = Array("姓名", "日期", "数量")
    
29.         .[a2].Resize(x, 3) = Brr
    
30.     End With
    
31.     Erase Brr
    
32.     Application.DisplayAlerts = True
    
33.     Application.ScreenUpdating = True
    
34. End Sub
    

复制代码

Jaspersss

不知道为什么 发表于 2018-10-18 18:13
参考

谢谢，现在就去试着做一下

Jaspersss

abc123281 发表于 2018-10-18 18:05

谢谢大神回复~~~~~~万分感激~~~~~~~~~

Jaspersss

liulang0808 发表于 2018-10-18 17:58
http://club.excelhome.net/thread-1258425-1-1.html
遍历文件的资料供参考。。。。。。

谢谢您的回复~~~

不知道为什么

Jaspersss 发表于 2018-10-18 18:17
谢谢，现在就去试着做一下

附件供测试

汇总.zip (17.2 KB, 下载次数: 5)

2018-10-18 18:30 上传

点击文件名下载附件

minren118

不想写代码的话，直接用插件就好了，Excel催化剂是我开发的一个插件，多工作薄合并的功能算是目前插件界做得最好的一个功能