如何将在vb中编写的一段宏写入一个excel文件呢？

Question

引用EXCEL
引用Microsoft Visual Basic for Applications Extensibility
Private Sub Command1_Click()
Dim xl As Excel.Application
Dim bk As Workbook
Dim xlcomp As VBComponent
Set xl = New Excel.Application
Set bk = xl.Workbooks.Add
On Error Resume Next
Set xlcomp = xl.VBE.VBProjects(1).VBComponents.Add(vbext_ct_StdModule)
If Err.Number <> 0 Then MsgBox Err.Description & Chr(10) & "请设置EXCEL中的宏安全性---可靠来源": Exit Sub
xlcomp.CodeModule.AddFromString "sub gg()" & Chr(10) _
                  & "msgbox " & """" & "OK" & """" & Chr(10) _
                  & "end sub"
xl.Visible = True
xl.Run "gg"
End Sub