[已解决]利用代码删除某文档中的代码

1261181315a

问题描述：先在F盘里创建一个文件夹，名为work；再执行20160309文件中的按钮，将在F盘work文件中生成一个文件201603xx.xls（文件名为当天日期）。work中新生成的201603xx.xls文档存在代码。
目标：请问如何在运行20160309后使新生成的文档中不含宏代码。

最佳答案

月排行榜 / 总排行榜

Zipall

2016-3-10 16:07

Set w = Workbooks.Open(n & filname & ".xls")
      w.VBProject.VBComponents.Remove w.VBProject.VBComponents("模块3")
      w.Close True

跳转到最佳答案楼层

Zipall

Set w = Workbooks.Open(n & filname & ".xls")
      w.VBProject.VBComponents.Remove w.VBProject.VBComponents("模块3")
      w.Close True

1261181315a

Zipall 发表于 2016-3-10 16:07
Set w = Workbooks.Open(n & filname & ".xls")
      w.VBProject.VBComponents.Remove w.VBProject.VBCo ...

老师，你好。我把你的代码加入后，不能运行出结果。我想是没理解到你的意思，帮忙看看。上传一个含有代码的文件吧。谢谢！

Zipall

1261181315a 发表于 2016-3-11 15:10
老师，你好。我把你的代码加入后，不能运行出结果。我想是没理解到你的意思，帮忙看看。上传一个含有代码 ...

代码位置正确.
我试了你上传的文件,运行正常.生成的0314文件中模块3已经被删除.
你说的"不能运行出结果"具体是什么意思?

1261181315a

Zipall 发表于 2016-3-14 08:52
代码位置正确.
我试了你上传的文件,运行正常.生成的0314文件中模块3已经被删除.
你说的"不能运行出结果 ...

这个是运行时出现的错误，确实在f盘的work文件夹里生成了新文件。我试着打开发现里面还是有宏代码存在。

Zipall

1261181315a 发表于 2016-3-14 12:07
这个是运行时出现的错误，确实在f盘的work文件夹里生成了新文件。我试着打开发现里面还是有宏代码存在。
...

在信任中心宏设置里,勾选"信任对vba工程对象模型的访问"