这段代码为什么会出错
请高手帮忙看看这段代码为什么会出错
哪里有问题?
Dim xlapp As ObjectSet xlapp = CreateObject("Excel.Application")
xlapp.Visible = True
Dim xlbook As Object
Set xlbook = xlapp.Workbooks.Add
Dim xlmodule As Object
Set xlmodule = xlbook.VBProject.VBComponents.Add(1)
Dim strCode As String
strCode = "sub MyMacro()" & vbCr & _
" msgbox ""Inside generated macro!!!"" " & vbCr & _
"end sub"
xlmodule.CodeModule.AddFromString strCode
xlapp.Run "MyMacro"
xlbook.Saved = True
xlapp.Quit