VB编译solidworks宏命令遇到的问题

1171729494

命令流如下：
Private Sub CommandButton1_Click()
Set swApp = CreateObject(" SldWorks.Application")
Set Part = swApp.ActiveDoc
swApp.loadFILE2 " D:solidworksSolidWorks", ""
Set Part = swApp.ActiveDoc
Set Part = swApp.NewDocument("C:ProgramDataSolidWorksSolidWorks 2010templates零件.prtdot", 0, 0, 0)
swApp.ActivateDoc2 "零件0", False, longstatus
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
' ******************************************************************************
' C:UsersAdministratorAppDataLocalTempswx5744Macro1.swb - macro recorded on 05/06/14 by Administrator
' ******************************************************************************
R1 = Val(Text1.Text)
R2 = Val(Text2.Text)
L1 = Val(Text3.Text)
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
执行过后，弹出

点击调试，弹出

宏命令本身操作没有问题
请问各位大神，这该怎么处理？小弟急要，谢谢了！

大官人001

求大神帮助啊···

abc索克

在这方面，你是我们的大神。

brucelin

应该是没有添加引用的缘故