ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 EH云课堂直播课程免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
楼主: opiona

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

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2016-6-1 13:21 | 显示全部楼层
合并测试 - 副本.rar (136.34 KB, 下载次数: 18)

TA的精华主题

TA的得分主题

发表于 2016-6-1 13:25 | 显示全部楼层
opiona 发表于 2016-6-1 11:52
上面的代码,工作簿名就在最后!

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-6-1 14:51 | 显示全部楼层
yunkongming 发表于 2016-6-1 13:21
大师:

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

  1. '*********************************
  2. '*******  北极狐工作室出品  ******
  3. '*******  QQ:14885553      ******
  4. '*********************************

  5. Sub Opiona()

  6. 'On Error Resume Next    '// 发生错误,自动执行下一句,就是忽略错误
  7. Application.ScreenUpdating = False '//关闭屏幕刷新
  8. Application.DisplayAlerts = False '//关闭系统提示
  9. t = Timer   '//开始时间

  10.     Set SH0 = Sheets("合并表外")
  11.     SH0.Range("A5:H65536").ClearContents
  12.    
  13.     FileArr = FileAllArr(ThisWorkbook.Path, "*.xls?", ThisWorkbook.Name, True, False)
  14.     For I = 0 To UBound(FileArr)
  15.         If InStr(FileArr(I), "数据有效性") = 0 Then  '//排除不需要的工作簿
  16.         
  17.             Str_coon = "HDR=yes';Data Source =" & FileArr(I)    '//OFFICE2003,2007 通用
  18.             NameArr = GET_NameSheets(Str_coon)
  19.             
  20.             For N = 0 To UBound(NameArr)   '//循环所有工作表
  21.             
  22.                 StrSQL = "SELECT 序号,项目名称,规格型号,单位,合计,备注,详细"
  23.                 StrSQL = StrSQL & ",'" & GetPathFromFileName(FileArr(I)) & "_" & NameArr(N) & "' AS  来源"
  24.                 StrSQL = StrSQL & " FROM [" & NameArr(N) & "$A:G]"
  25.                 StrSQL = StrSQL & " WHERE LEN(项目名称)>0"
  26.    
  27.                 IROW = SH0.Range("B65536").End(3).Row + 1
  28.                 SQLARR = GET_SQL_To_Arr(StrSQL, Str_coon, False)
  29.                 SH0.Range("A" & IROW).Resize(UBound(SQLARR, 1) + 1, UBound(SQLARR, 2) + 1) = SQLARR
  30.                
  31.             Next N
  32.         End If
  33.     Next I

  34. Application.ScreenUpdating = True '//恢复屏幕刷新
  35. Application.DisplayAlerts = True '//恢复系统提示
  36. MsgBox "一共用时:" & Format(Timer - t, "#0.0000") & " 秒", , "北极狐提示!!"  '//提示所用时间
  37. End Sub
复制代码

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-6-1 14:52 | 显示全部楼层
合并测试 - 副本.rar (147.87 KB, 下载次数: 165)

评分

参与人数 1鲜花 +2 收起 理由
yunkongming + 2 值得肯定

查看全部评分

TA的精华主题

TA的得分主题

发表于 2016-6-1 17:04 | 显示全部楼层
本帖最后由 yunkongming 于 2016-6-1 17:05 编辑

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

TA的精华主题

TA的得分主题

发表于 2016-6-3 01:58 | 显示全部楼层
opiona 发表于 2016-4-29 07:31
除了:汇总和分析表的其他全部表格:分类汇总求和!

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2016-6-3 08:23 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2016-6-3 10:50 | 显示全部楼层

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

TA的精华主题

TA的得分主题

发表于 2016-6-22 11:53 | 显示全部楼层

TA的精华主题

TA的得分主题

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

只用VBA恐怕还得一 一 打开取数、关闭循环操作吧?
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-10-21 18:43 , Processed in 0.089828 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表