用VBA另存指定工作表为新的工作簿文件时，如何删除新工作薄中的宏代码

ugyun · 发表于 2010-8-27 08:18

用VBA另存指定工作表为新的工作簿文件时，如何删除新工作薄中的宏代码？

dsmch · 发表于 2010-8-27 08:46

新建文件夹.rar (6.88 KB, 下载次数: 452)

wxhnr · 发表于 2010-8-27 08:49

'下面演示的为另存Sheet1表到新文件，并删除新文件里Sheet1的代码

Sub 另存工作表并删除其中代码()
Dim i As Integer
Dim codeLines As Integer
Dim shtName As String

shtName = "Sheet1"
ThisWorkbook.Worksheets(shtName).Copy
codeLines = ActiveWorkbook.VBProject.VBComponents(shtName).CodeModule.CountOfLines
ActiveWorkbook.VBProject.VBComponents(shtName).CodeModule.DeleteLines 1, codeLines

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\newFile.xls"
ActiveWorkbook.Close
End Sub

liuyan819 · 发表于 2010-8-27 08:52

请教一下，是不是只通过另存里面的数据部分来实现楼主的目的的？

dsmch · 发表于 2010-8-27 08:57

没有用另存方法，新建工作簿，另存为文件名，然后把数据通过数组赋值给新建文件。

lb_bn · 发表于 2010-8-27 09:07

Sub bbb()

Set vc = ActiveWorkbook.VBProject.VBComponents("sheet1").CodeModule
x = vc.CountOfLines
For i = x To 1 Step -1
vc.DeleteLines i
Next

End Sub

例子.

liuyan819 · 发表于 2010-8-27 09:20

got it ,thanks!

ugyun · 发表于 2010-8-27 10:43

原帖由 lb_bn 于 2010-8-27 09:07 发表
Sub bbb()

Set vc = ActiveWorkbook.VBProject.VBComponents("sheet1").CodeModule
x = vc.CountOfLines
For i = x To 1 Step -1
vc.DeleteLines i
Next
End Sub

还是lb_bn老师的代码简单，谢谢了！

曲终人散 · 发表于 2010-10-13 17:11

跟着学习，非常感谢

Martinzhuchao · 发表于 2010-11-2 13:55

原帖由 ugyun 于 2010-8-27 10:43 发表

还是lb_bn老师的代码简单，谢谢了！

我试了一下，但不行啊，说"Programmatic access to Visual Basic Project is not trusted"

是不是信任中心设置出了问题呢？

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

[求助] 用VBA另存指定工作表为新的工作簿文件时，如何删除新工作薄中的宏代码

回复 2楼 dsmch 的帖子

回复 5楼 dsmch 的帖子