[已解决]这段代码有何问题，请帮忙修改。

1091126096 · 发表于 2013-4-28 15:50

本帖最后由 1091126096 于 2013-4-28 15:57 编辑

这段代码有何问题，请帮忙修改。

Dim SHT As Object, vbc '定义变量 SHT 为对象,vbc
For Each vbc In ActiveWorkbook.VBProject.VBComponents '用变量vbc逐次代表所面向对象的每个VB工程元素
Select Case vbc.Type '按元素的类型值选择执行命令
Case 0, 1, 2, 3, 4, 5
vbc.Remove '移除VB工程元素vbc
Case Else
vbc.CodeModule.DeleteLines 1, vbc.CodeModule.CountOfLines ' 删除vbc（工作表或Thisworkbook）的代码区代码
End Select
Next

复制代码

最佳答案

hwc2ycy

2013-4-28 16:39

10的设置
(, 下载次数: 0)

hwc2ycy · 发表于 2013-4-28 15:57

内置的模块是不能删除的。

hwc2ycy · 发表于 2013-4-28 16:03

Sub test()
For Each vbc In ActiveWorkbook.VBProject.VBComponents '用变量vbc逐次代表所面向对象的每个VB工程元素
Select Case vbc.Type '按元素的类型值选择执行命令
Case 0, 2, 3, 4, 5
vbc.Remove '移除VB工程元素vbc
Case Else
vbc.CodeModule.DeleteLines 1, vbc.CodeModule.CountOfLines ' 删除vbc（工作表或Thisworkbook）的代码区代码
End Select
Next
End Sub

复制代码

hwc2ycy · 发表于 2013-4-28 16:11

本帖最后由 hwc2ycy 于 2013-4-28 16:13 编辑

删除模块时注意方法，另外，对于标准模块，是不能删除的。

Dim vbc As Object, vbcs As Object
Set vbcs = ActiveWorkbook.VBProject.VBComponents
For Each vbc In vbcs '用变量vbc逐次代表所面向对象的每个VB工程元素
Select Case vbc.Type '按元素的类型值选择执行命令
Case 0, 2, 3, 4, 5
Debug.Print vbc.Name
vbcs.Remove vbc '移除VB工程元素vbc
Case Else
Debug.Print vbc.Name
vbc.CodeModule.DeleteLines 1, vbc.CodeModule.CountOfLines ' 删除vbc（工作表或Thisworkbook）的代码区代码
End Select
Next

复制代码

1091126096 · 发表于 2013-4-28 16:14

运行时出错的是 For Each vbc In ActiveWorkbook.VBProject.VBComponents

1091126096 · 发表于 2013-4-28 16:14

hwc2ycy 发表于 2013-4-28 16:03

运行时出错的是 For Each vbc In ActiveWorkbook.VBProject.VBComponents

hwc2ycy · 发表于 2013-4-28 16:25

都是按你的改的，我这运行都不报错了。

1091126096 · 发表于 2013-4-28 16:33

hwc2ycy 发表于 2013-4-28 16:25
都是按你的改的，我这运行都不报错了。

没有报错，运行到这1行就终止了。

hwc2ycy · 发表于 2013-4-28 16:38

测试删除代码和窗体.rar (14.19 KB, 下载次数: 2)

hwc2ycy · 发表于 2013-4-28 16:38

本帖最后由 hwc2ycy 于 2013-4-28 16:39 编辑

对了，想到一个事了，你的VBA信任了没？

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