用SQL汇总或合并工作表、工作簿和跨文件夹和工作表汇总

opiona

1.     Set SHX = Worksheets("汇总")
   
2.     SHX.Range("A5:HZ1048576").ClearContents
   
3.    
   
4.     Rem  获取各个分表清单
   
5.     FileArr = FileAllArr(ThisWorkbook.Path, "*.xls?", ThisWorkbook.Name, True, False)
   
6.     ICINT = UBound(FileArr) + 1
   
7.     For I = 0 To UBound(FileArr)
   
8.         Rem  提示信息，在状态栏显示
   
9.         Application.StatusBar = "文件总数：" & ICINT & " 当前是第：" & I + 1 & " 当前提取的文件是：" & GetPathFromFileName(FileArr(I), True)  '
   
10.         DoEvents
    
11.         
    
12.         Rem 打开分表
    
13.         Set WB = Workbooks.Open(FileArr(I))
    
14.         Rem 找到对应表格
    
15.         For Each SH In WB.Worksheets
    
16.             If SH.Name = SHX.Range("B1").Value Then
    
17.                 Rem 写入文件名
    
18.                 SHX.Cells(I + 5, 1).Value = GetPathFromFileName(FileArr(I))
    
19.                 Rem 找到需要的单元格位置
    
20.                 For ICOL = 2 To SHX.Range("HZ4").End(xlToLeft).Column
    
21.                     If Len(SHX.Cells(3, ICOL).Value) > 0 Then
    
22.                         SHX.Cells(I + 5, ICOL).Value = SH.Range(SHX.Cells(3, ICOL).Value).Value
    
23.                     End If
    
24.                 Next
    
25.                 Exit For
    
26.             End If
    
27.         Next SH
    
28.         WB.Close False
    
29.         Set WB = Nothing
    
30.     Next I
    
31.    

复制代码

opiona

shibin1126 发表于 2018-4-18 13:24
请问老师，像我附件中第一页和第三页中（黄色单元格）内容，代码该怎么改啊？位置什么都是固定的。麻烦 ...

黄色位置 B1 指明数据在哪个工作表中第3行 单元格位置：填写 数据都在哪些单元格中，可填写多个


气体检测改.rar (148.72 KB, 下载次数: 76)

2018-4-18 15:42 上传

点击文件名下载附件

opiona

可以增加多个汇总内容


气体检测改.rar (148.72 KB, 下载次数: 86)

2018-4-18 15:47 上传

点击文件名下载附件

teshia

非常棒

麻烦 兄弟帮我看下这个帖子 怎么汇总
我原来的方法可以汇总，但是 每个月 人员都会有变动，不是固定到127行，要改数字，不灵活

http://club.excelhome.net/forum. ... p;page=1#pid9480266

opiona

teshia 发表于 2018-4-19 22:40
非常棒

麻烦 兄弟帮我看下这个帖子 怎么汇总

多分表汇总通用代码-opiona14885553.rar (452.95 KB, 下载次数: 264)

2018-4-20 10:24 上传

点击文件名下载附件

qihang15

谢谢分享，学习一下。

huazai688

做个记号学习一下

liu1913

大师，能帮忙回复下62楼不

juekasry

收益匪浅~！  谢谢分享！

烦请大神看看我这个， 一调试就出问题， 不知道那个地方出错咯

opiona

5_多工作簿指定工作表，全部数据汇总
http://club.excelhome.net/thread-1409141-1-1.html

改一下设置，如图：