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

yunkongming

合并测试 - 副本.rar (136.34 KB, 下载次数: 52)

2016-6-1 13:09 上传

点击文件名下载附件

大师:

  我搞不定,请帮忙!   我想把文件夹内所有excl表合并在汇总薄内
表名格式为"薄名_表名"
其实我只需要合并 序号 , 项目名称, 规格型号, 单位, 合计, 备, 详细,的数值
加来源表名,只为以后分类汇总
做准备
     辛苦了

yunkongming

opiona 发表于 2016-6-1 11:52
上面的代码，工作簿名就在最后！

http://club.excelhome.net/forum. ... mp;authorid=1884062
大师:  
          我太弱了,搞不定,帮看一下?
      

opiona

yunkongming 发表于 2016-6-1 13:21
大师:

  我搞不定,请帮忙!   我想把文件夹内所有excl表合并在汇总薄内

1. 
   
2. '*********************************
   
3. '*******  北极狐工作室出品  ******
   
4. '*******  QQ：14885553      ******
   
5. '*********************************
   
6. 
   
7. Sub Opiona()
   
8. 
   
9. 'On Error Resume Next    '// 发生错误，自动执行下一句，就是忽略错误
   
10. Application.ScreenUpdating = False '//关闭屏幕刷新
    
11. Application.DisplayAlerts = False '//关闭系统提示
    
12. t = Timer   '//开始时间
    
13. 
    
14.     Set SH0 = Sheets("合并表外")
    
15.     SH0.Range("A5:H65536").ClearContents
    
16.    
    
17.     FileArr = FileAllArr(ThisWorkbook.Path, "*.xls?", ThisWorkbook.Name, True, False)
    
18.     For I = 0 To UBound(FileArr)
    
19.         If InStr(FileArr(I), "数据有效性") = 0 Then  '//排除不需要的工作簿
    
20.         
    
21.             Str_coon = "HDR=yes';Data Source =" & FileArr(I)    '//OFFICE2003，2007 通用
    
22.             NameArr = GET_NameSheets(Str_coon)
    
23.             
    
24.             For N = 0 To UBound(NameArr)   '//循环所有工作表
    
25.             
    
26.                 StrSQL = "SELECT 序号,项目名称,规格型号,单位,合计,备注,详细"
    
27.                 StrSQL = StrSQL & ",'" & GetPathFromFileName(FileArr(I)) & "_" & NameArr(N) & "' AS  来源"
    
28.                 StrSQL = StrSQL & " FROM [" & NameArr(N) & "$A:G]"
    
29.                 StrSQL = StrSQL & " WHERE LEN(项目名称)>0"
    
30.    
    
31.                 IROW = SH0.Range("B65536").End(3).Row + 1
    
32.                 SQLARR = GET_SQL_To_Arr(StrSQL, Str_coon, False)
    
33.                 SH0.Range("A" & IROW).Resize(UBound(SQLARR, 1) + 1, UBound(SQLARR, 2) + 1) = SQLARR
    
34.                
    
35.             Next N
    
36.         End If
    
37.     Next I
    
38. 
    
39. Application.ScreenUpdating = True '//恢复屏幕刷新
    
40. Application.DisplayAlerts = True '//恢复系统提示
    
41. MsgBox "一共用时：" & Format(Timer - t, "#0.0000") & " 秒", , "北极狐提示!!"  '//提示所用时间
    
42. End Sub

复制代码

opiona

合并测试 - 副本.rar (147.87 KB, 下载次数: 394)

2016-6-1 14:52 上传

点击文件名下载附件

yunkongming

opiona 发表于 2016-6-1 14:52

大师
      谢谢!
测试很成功!
能注释下就更完美!

yunkongming

opiona 发表于 2016-4-29 07:31
除了：汇总和分析表的其他全部表格：分类汇总求和！

大侠:
       我想把子文件夹内分类汇总到
分类表中
  粗略效果如分类表
我想用你的代码用于合并,不分类,放在合并表中;
可是,合并的数据有的不对一样
请帮忙,把我调整下! 合并测试 -救助.rar (102.36 KB, 下载次数: 19)

2016-6-3 01:58 上传

点击文件名下载附件

opiona

合并测试 - 副本.rar (109.46 KB, 下载次数: 219)

2016-6-3 08:23 上传

点击文件名下载附件

yunkongming

opiona 发表于 2016-6-3 08:23

大师
    请问为什么备注不能不重复
是不是改变了表头次序?
为了便于查询
是不是可以添加序号?

鄂龙蒙

http://club.excelhome.net/thread-1285027-1-1.html
请教：界面是用的什么控件？

万木青

百度不到去谷歌 发表于 2014-12-4 08:10
sql语句做通用的怕是总是容易出错  如果是对sql很了解的用是可以的
单列稀疏数据 单列文本数字混合 合并单 ...

只用VBA恐怕还得一 一 打开取数、关闭循环操作吧？