Excel 2003另存为新工作簿时，去除模块里的宏，其实只需这一句。

shenghua8

香川群子 发表于 2013-11-21 12:48
Sheets.Copy 这一句代码就可以去掉模块和窗体，确实是很牛逼的一句代码。

说实话，我真的是通过录制宏，整理出来这一句。
没想到竟然有大侠研究这个。

您让我有点飘飘的感觉。
我一定好好研究一下您给的代码。
您真细心，每一条都加了备注。

老谭酸菜

shenghua8 发表于 2013-11-22 13:38
谭老师这是一个好特别的主意。
按你这么说，清除得好干净，找机会我也试试看。

这样啊？
其实好简单哦。
用宏新建一个工作簿，把需要的工作表数据复制到新建的工作簿里，一切都K啦！
几行代码的事，哪用得着这么搞。浪费大侠们的脑细胞了！{:soso_e113:}

shenghua8

老谭酸菜 发表于 2013-11-22 13:54
这样啊？
其实好简单哦。
用宏新建一个工作簿，把需要的工作表数据复制到新建的工作簿里，一切都K啦！
...

就是呀，
我第一楼说的就是 Sheets.Copy 噻。
前提是我用的2003，宏都在模块里，不用删除按钮等，新工作簿文件名自取。
本来我用的就简单。
大侠们用大侠的思维，整复杂了。

不过，大侠们的脑细胞没有白费，考虑了通用性。
除了那种只说理论不付诸实际的。

老谭酸菜

{:soso_e128:}

老谭酸菜

直接复制单元格数据就是最通用最保险的啦！根本不用去考虑什么工作表代码区，什么工作表按钮之类的问题。
我也碰到过了几次，高手们都爱走复杂路线。结果几行代码的问题被搞成几十行，还弄上一堆对象定义之类的。{:soso_e113:}

jbjbzjb

一个老掉牙的烂帖子！
至目前止，除了少数帖子点明了去除代码没那么简单外，其他跟帖都是狗屁。当初看着这“原创”的帖子为“去除模块里的宏，只须这一句”就觉得俗不可耐！此论坛至今已不知有多少帖子在研究如何去除宏代码，最终因“信任“Visual Basic 项目的访问”而不得不望洋兴叹！岂是你一句代码能解决得了的？看着这些狗屁帖子就来气！

结论：不知天高地厚的“原创”帖，不知“班门弄斧”的瞎跟帖！

shenghua8

老谭酸菜 发表于 2013-11-22 14:24
直接复制单元格数据就是最通用最保险的啦！根本不用去考虑什么工作表代码区，什么工作表按钮之类的问题。
...

我得再重新品味一下你说的新建工作簿再粘贴的事儿。
我有点担心的是：
1、粘贴的单元格格式不对，手工操作时遇到过从第2行起格式变了。
2、跨簿操作，我怕弄错了ActiveWorkbook 和 ThisWorkbook 。
3、目的还要：几十个工作表要一起复制过去，新工作簿的空白表不需要。

貌似 Sheets.Copy 不用考虑这些问题。

香川群子

楼主提到的问题，其实现阶段还是很有实际意义的。

首先，为了提高工作效率，在Excel工作簿中使用宏代码是很合理的。
而有时候为了在工作表中使用事件触发的自动化操作，也是需要写入一定量的代码的。

工作完成以后，需要把数据发给相关部门、其他人……
那么很多时候，Excel文件中是不允许附带任何代码的。

那么，把自己常用的工作簿文件，自动转换为不带任何代码的文件传输给别人，这个要求是很有价值的。


至于仍然使用2003版，是考虑到毕竟2007、2010的普及还没有达到100%。
因此肯定是使用低级的2003版更合理。


…………
即使这个技术马上就要过时了，至少作为阶段性的宏代码学习教材，也还是有些意义的。

所以我帮助楼主整理、完善了代码，也因此做了详细的注释……不是为了让大家都来用这个代码，
而是让新手可以多一个学习的机会。呵呵。


…………
高手熟知各种高端技术，但不必因此而贬低楼主发现的较为低级的手段。

jbjbzjb

香川群子 发表于 2013-11-22 14:46
楼主提到的问题，其实现阶段还是很有实际意义的。

首先，为了提高工作效率，在Excel工作簿中使用宏代码是 ...

笑死，都什么年代了，这时才发现所谓的表格Copy可去除宏代码（却始终去不了ThisWorkbook或Sheet模块中的代码）并当作原创来发表哪！

shenghua8

香川群子 发表于 2013-11-22 14:46
楼主提到的问题，其实现阶段还是很有实际意义的。

首先，为了提高工作效率，在Excel工作簿中使用宏代码是 ...

太感谢 香川群子 大侠了！
有您这段话，我关于此贴的一切不愉快将会很快过去。