ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

   
EH云课堂-专业的职场技能充电站 限时送,魔方网表将Excel变在线系统 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
楼主: opiona

[原创] 工作簿汇总,工作表汇总合并,多文件汇总合并 通用代码 支持多层子文件夹

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2018-6-12 12:39 | 显示全部楼层
有人和我一样,一下载,宏自动remove了么

TA的精华主题

TA的得分主题

发表于 2018-6-15 11:32 | 显示全部楼层
厉害啊,先顶再看

TA的精华主题

TA的得分主题

发表于 2018-6-16 17:19 | 显示全部楼层
十分感谢,有个小问题,我的工作簿都包含链接,每次打开都会弹出是否更新链接,一个一个点“不更新”或者关闭弹窗很麻烦,您可不可以添加一些代码,自动关闭弹窗或者选择“不更新”,谢谢

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-6-16 18:15 | 显示全部楼层
zqxhuaxin 发表于 2018-6-16 17:19
十分感谢,有个小问题,我的工作簿都包含链接,每次打开都会弹出是否更新链接,一个一个点“不更新”或者关 ...
  1. Sub Opiona()
  2.    
  3.      Rem 禁止系统刷屏?触发其他事件等
  4.     'On Error Resume Next    '// 发生错误,自动执行下一句,就是忽略错误
  5.     Application.ScreenUpdating = False '//关闭屏幕刷新
  6.     Application.DisplayAlerts = False '//关闭系统提示
  7.     Application.EnableEvents = False  '//禁止触发其他事件
  8.     Application.StatusBar = True   '关闭系统状态条
  9.     Application.Calculation = xlManual     '//xlCalculationManual  用户请求时进行计算


  10.     Dim T
  11.     T = Timer   '//开始时间

  12.     Rem  提示信息,在状态栏显示
  13.     Rem Application.StatusBar = "文件总数:" & ICINT & " 当前是第:" & I + 1 & " 当前提取的文件是:" & GetPathFromFileName(FileArr(I), True)  '
  14.     Rem  DoEvents

  15.     Application.Calculation = xlAutomatic  '//xlCalculationAutomaticExcel 控制重新计算。
  16.     Application.StatusBar = False   '恢复系统状态条
  17.     Application.EnableEvents = True  '//  '//恢复触发其他事件
  18.     Application.ScreenUpdating = True '//恢复屏幕刷新
  19.     Application.DisplayAlerts = True '//恢复系统提示
  20.     MsgBox "一共用时:" & Format(Timer - T, "#0.0000") & " 秒", , "北极狐提示!!"  '//提示所用时间
复制代码

评分

参与人数 1鲜花 +2 收起 理由
zqxhuaxin + 2 感谢帮助

查看全部评分

TA的精华主题

TA的得分主题

发表于 2018-6-16 19:30 | 显示全部楼层

谢谢老师,我的意思是我需要汇总的每个工作簿点开的时候都会弹出是否更新链接,您上面的没能解决这个问题。我用的是您   “2_多工作簿指定工作表,指定几个位置的数据汇总”  这个代码。

还有就是有没有方法做指定某几行的汇总,按照您之前的只能一个单元格一个单元格的统计,统计好多行的时候有点困难。谢谢老师!

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-6-16 19:59 | 显示全部楼层
Sub 打开含有链接的文件() '先屏蔽更新对话框/文件打开后要恢复(以避免影响其他文件的链接提示)
   Application.AskToUpdateLinks = False  '//先屏蔽更新对话框
         Workbooks.Open ("有链接的文件.xls")
   Application.AskToUpdateLinks = True   '//先屏蔽恢复更新对话框
End Sub

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-6-16 20:03 | 显示全部楼层
统计好多行的 请参考:第5个

红色部分是指定区域,含标题,
更深层次,需要些SQL知识

QQ图片20180616200201.png

TA的精华主题

TA的得分主题

发表于 2018-6-17 11:37 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-6-20 23:06 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-6-20 23:12 | 显示全部楼层
!!!!!!!!!!!!!!!!工作薄,工作表合并
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

关注官方微信,高效办公专列,每天发车

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

GMT+8, 2019-4-23 06:23 , Processed in 0.113786 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

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

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

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