工作簿汇总，工作表汇总合并，多文件汇总合并 通用代码 支持多层子文件夹

nerissaonly

有人和我一样，一下载，宏自动remove了么

sstjf

厉害啊，先顶再看

zqxhuaxin

十分感谢，有个小问题，我的工作簿都包含链接，每次打开都会弹出是否更新链接，一个一个点“不更新”或者关闭弹窗很麻烦，您可不可以添加一些代码，自动关闭弹窗或者选择“不更新”，谢谢

opiona

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. 
    
11. 
    
12.     Dim T
    
13.     T = Timer   '//开始时间
    
14. 
    
15.     Rem  提示信息，在状态栏显示
    
16.     Rem Application.StatusBar = "文件总数：" & ICINT & " 当前是第：" & I + 1 & " 当前提取的文件是：" & GetPathFromFileName(FileArr(I), True)  '
    
17.     Rem  DoEvents
    
18. 
    
19.     Application.Calculation = xlAutomatic  '//xlCalculationAutomaticExcel 控制重新计算。
    
20.     Application.StatusBar = False   '恢复系统状态条
    
21.     Application.EnableEvents = True  '//  '//恢复触发其他事件
    
22.     Application.ScreenUpdating = True '//恢复屏幕刷新
    
23.     Application.DisplayAlerts = True '//恢复系统提示
    
24.     MsgBox "一共用时：" & Format(Timer - T, "#0.0000") & " 秒", , "北极狐提示!!"  '//提示所用时间

复制代码

zqxhuaxin

opiona 发表于 2018-6-16 18:15

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

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

opiona

Sub 打开含有链接的文件() '先屏蔽更新对话框/文件打开后要恢复(以避免影响其他文件的链接提示)
   Application.AskToUpdateLinks = False  '//先屏蔽更新对话框
         Workbooks.Open ("有链接的文件.xls")
   Application.AskToUpdateLinks = True   '//先屏蔽恢复更新对话框
End Sub

opiona

统计好多行的 请参考：第5个

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

UNIMOG4000

谢谢楼主！辛苦了！

EXCEL-MMSD

save~~~~~~~~~~~~~~~~~~~

EXCEL-MMSD

！！！！！！！！！！！！！！！！工作薄，工作表合并