ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

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

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

  [复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-5-5 08:48 | 显示全部楼层
ansen__111 发表于 2018-5-4 17:03
总公司设计了一套excel工作表,在一个工作簿中,每个工作表的行是所有下属公司名称(比如a1是北京公司,a2 ...

14885553.rar (248.73 KB, 下载次数: 154)

评分

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

查看全部评分

TA的精华主题

TA的得分主题

发表于 2018-5-7 11:17 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-5-7 17:15 | 显示全部楼层
精华帖,占位置,谢谢大师分享!

TA的精华主题

TA的得分主题

发表于 2018-5-8 08:37 | 显示全部楼层
感谢分享,我的电脑WIN7 64位,office2016,只安装了excel ,word,ppt,未安装过AccessDatabaseEngine,使用未出现报错现象。
套表功能强大,速度快,如果在合并前自动将已有合并数据清空(合并条件除外),就更完善了。

TA的精华主题

TA的得分主题

发表于 2018-5-8 08:43 | 显示全部楼层
本帖最后由 djs5212720 于 2018-5-8 10:13 编辑

5_多工作簿指定工作表,全部数据汇总,运行时时发现越界报错-9
请问老师这会是什么引起的报错!
Dim T
    T = Timer  '//开始时间
   
    Dim SQLARR
    Dim I, X As Integer
    Dim Str_coon, StrSQL As String
    Dim SH1, SH0, SHW As Worksheet
   
    Set SH1 = Sheets("汇总")   这里报错
    SH1.Range("A4:HZ1048576").ClearContents
   
    Rem 组合查询标题
    StrBT = ""
    For ICOL = 3 To SH1.Range("HZ3").End(xlToLeft).Column
        StrBT = StrBT & ",[" & SH1.Cells(3, ICOL).Value & "]"
    Next
   

TA的精华主题

TA的得分主题

发表于 2018-5-8 09:40 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-5-8 13:29 | 显示全部楼层
djs5212720 发表于 2018-5-8 08:43
5_多工作簿指定工作表,全部数据汇总,运行时时发现越界报错-9
请问老师这会是什么引起的报错!
Dim T

Set SH1 = Sheets("汇总")   这里报错
改成:Set SH1 = workSheets("汇总")    '//试试

TA的精华主题

TA的得分主题

发表于 2018-5-8 16:51 | 显示全部楼层
opiona 发表于 2018-5-8 13:29
Set SH1 = Sheets("汇总")   这里报错
改成:Set SH1 = workSheets("汇总")    '//试试

问题依旧,还是会报错的!

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-5-9 09:36 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2018-5-15 11:15 | 显示全部楼层
opiona 发表于 2018-5-9 09:36
检查是否存在工作表:汇总

存在的!还会有什么问题会导致这样结果?/
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

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

GMT+8, 2019-2-20 07:15 , Processed in 0.097450 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 2001-2017 Wooffice Inc.

   

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

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

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