[EXCEL VBA]请问如何用程序删除宏？如何删除宏中的某些变量及函数？

[junglesong]

比较难的问题，呵呵。

[junglesong]

自己解决了部分问题，程序如下：

Sub deleteMacro()
On Error Resume Next
Dim myVBComponent
Dim iCodeLines As Integer

// 对当前工作簿中的VBComponents集合进行遍历
For Each myVBComponent In ThisWorkbook.VBProject.VBComponents
If myVBComponent.CodeModule.Name = "Module2" Then
// 删除模块Module2中的所有代码
iCodeLines = myVBComponent.CodeModule.CountOfLines
myVBComponent.CodeModule.DeleteLines 1, iCodeLines
End If
Next
End Sub

[junglesong]

// 这个是往Module2中写代码的。

Sub appendMacro()
On Error Resume Next

Dim myVBComponent
Dim iCodeLines As Integer
For Each myVBComponent In ThisWorkbook.VBProject.VBComponents
If myVBComponent.CodeModule.Name = "Module2" Then
myVBComponent.CodeModule.AddFromString ("Public Const aaa as string=""" + Sheets(1).Cells(1, 1).Text + """")
End If
Next
End Sub