upCode

下面为过程

start_code>

"Sub test()" & vbcrlf  &  "MsgBox "这是修改后的内容"" & vbcrlf  &  "Sheets(1).Select" & vbcrlf & "End Sub" 

<end_code

下面为删除模块

start_del>

Sub vba删除指定的模块()
'删除myCode模块
With ThisWorkbook.VBProject.VBComponents
.Remove ThisWorkbook.VBProject.VBComponents("myCode")
End With
End Sub

<end_del

start_add>

Sub vba在模块中添加过程代码()
'在模块myCode中添加一个过程
Dim str As String
Dim wkBook As Workbook
Set wkBook = ThisWorkbook
str = "sub testCode()" & vbCrLf & _
" msgbox""这是测试添加的代码过程""" & vbCrLf & _
"end sub"
With wkBook.VBProject.VBComponents("myCode").CodeModule
.AddFromString str
End With
End Sub

<end_add