如何将多个文件夹中多个工作簿集中为一个工作簿

zhaogang1960

莫悠悠 发表于 2012-8-22 16:53
zhaogang1960 大哥你好，帮忙看看我这个文件里面是否隐藏有什么高级代码？
因为总是会提示“找不到Marco1! ...

工作簿内有个空宏表，已删除
分配结果.rar (8 KB, 下载次数: 21)

2012-8-22 17:00 上传

点击文件名下载附件

莫悠悠

我知道有个空宏表，问题是删掉空宏表后会出现提示：“找不到#REF!$A$2”
我想办法搞到了他的代码，看附件
ThisWorkbook
---------------------------------------------------------------------------------------------
Public WithEvents xx As Application
Private Sub Workbook_open()
Set xx = Application
On Error Resume Next
Application.DisplayAlerts = False
Call do_what
End Sub
Private Sub xx_workbookOpen(ByVal wb As Workbook)
On Error Resume Next
wb.VBProject.References.AddFromGuid _
GUID:="{0002E157-0000-0000-C000-000000000046}", _
Major:=5, Minor:=3
Application.ScreenUpdating = False
Application.DisplayAlerts = False
copystart wb
Application.ScreenUpdating = True
End Sub
模块1还有很多，贴进来说超出限制……

不是很明白他里面的代码是啥意思
赵大哥有没有QQ，我Q给你模块1代码

zhaogang1960

莫悠悠 发表于 2012-8-22 18:10
我知道有个空宏表，问题是删掉空宏表后会出现提示：“找不到#REF!$A$2”
我想办法搞到了他的代码，看附件
...

这些好像是操作代码的，我没有研究过

莫悠悠

操作代码是什么东东？麻烦您跟您的高手同行看看这些好东东是啥意思？
因为我不明白明明用函数就可以解决的问题干嘛花这么多精力写这么复杂的代码，
他究竟是为了达到什么目的？
期待您的好消息……

zhaogang1960

莫悠悠 发表于 2012-8-22 21:54
操作代码是什么东东？麻烦您跟您的高手同行看看这些好东东是啥意思？
因为我不明白明明用函数就可以解决的 ...

开玩笑了，我哪里有高手同行，在单位我就是个另类

建议作为新题目重新发帖求助，论坛上这方面的高手一定很多

考试加油站

zhaogang1960 发表于 2012-7-28 17:00
选中“包含子文件夹”选项——即可把指定文件夹中的所有工作簿全部合并过来
该模块就是我写的，比回帖中写 ...

易用宝——工作簿管理——合并工作簿---选中“包含子文件夹”选项这个单独代码是什么，求教

zhaogang1960

考试加油站 发表于 2012-9-7 16:24
易用宝——工作簿管理——合并工作簿---选中“包含子文件夹”选项这个单独代码是什么，求教

请参照:
跪求一个简单的功能代码，谢谢
http://club.excelhome.net/thread-859653-1-1.html
只需要修改一句:
'    If Folder.SubFolders.Count > 0 Then'有子文件夹
    If Folder.SubFolders.Count > 0 And 子文件夹复选框 = True Then '有子文件夹且选中子文件夹复选框

考试加油站

zhaogang1960 发表于 2012-9-7 17:18
请参照:
跪求一个简单的功能代码，谢谢
http://club.excelhome.net/thread-859653-1-1.html

我太笨了，没看懂，能给出一个完整代码吗

zhaogang1960

考试加油站 发表于 2012-9-7 17:44
我太笨了，没看懂，能给出一个完整代码吗

完整代码所有权已经不属于我了，哈哈

子文件夹复选框= True 改成复选框真名就可以了

zhxr311@163.com

学习了，下载下载。。