[原创]任意的拆分、合并工作薄和工作表(已升级了分类汇总功能)

yun_1980 · 发表于 2008-8-17 10:02

彭高人，在合并功能中，同路径工作簿合并成工作簿，假设引用的工作表和被引用的工作表都是保护状态，密码123，应该如何修改代码？

保护状态下合并，这行会提示错误。

Sheets(j).Cells.Copy Workbooks(nm).Sheets(Sheets(j).Name).Cells(1, 1)

知道您编写代码时主要侧重考虑适用于多数人的正常操作，不可能每一种状况都兼顾，但恰好想使用您的这段代码，如有时间，还想请您帮助指点一下，非常感谢！

lxp717 · 发表于 2008-8-24 23:04

打开工作薄时提示：对象库无效或包含对某个找不到其定义的对象的引用

无法运行是什么原因啊

ytchun · 发表于 2008-9-3 17:17

呵呵，以前下载过，后来丢了，找了好久终于有找到了。高兴的差点想哭！

好东西啊！！！！

editwork · 发表于 2008-10-27 09:11

我又来收宝了，楼主的好东西我收下也

键盘小子001 · 发表于 2008-10-27 13:40

支持原创，已经收藏了~~~

weiysh · 发表于 2008-11-6 09:00

太棒了，非常感谢！

luorjun · 发表于 2008-11-7 15:02

在我看来很羡慕

dxwch · 发表于 2008-11-26 11:45

用这个拆分工具拆分一个工作表生成的多个工作薄后。在EXCEL中打开这些工作薄时，会报错“文件格式与文件扩展名不符”，同时每个工作薄里还会生成两个空的工作表；这样就造成了合并这些工作薄时出错，谁能帮助解决这些问题，十分感谢！！！！

涧中石 · 发表于 2008-11-26 18:34

辛苦了，谢谢！

yvhk37 · 发表于 2009-3-14 17:08

fsfsfssdfdsdfdsf

		自动登录	找回密码
密码			免费注册

太棒了