SolidWorks宏移植到excel不能运行求助

moscow19870105

   经典图书

在excel里面搞了一个控件，点击控件SolidWorks会自动转出pdf文件，我将SolidWorks录制的宏复制到excel控件里面，适当把绿色部分做了修改，运行就报错，SolidWorks里面运行没有问题，恳请大神指点。

Private Sub CommandButton2_Click()


Set swApp = CreateObject("sldworks.application")
swApp.Visible = True

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("标准推车（FC-7010）.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
Set Part = swApp.OpenDoc6("D:\fc7010车车方程式\标准推车（FC-7010）.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 22
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "标准推车（FC-7010） - 框架-2", False, longstatus
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Part.ViewZoomtofit2
Part.ViewZoomtofit2
Part.ClearSelection2 True
Part.ViewZoomtofit2
Part.ViewZoomtofit2
Part.ViewZoomtofit2
longstatus = Part.SaveAs3("D:\fc7010车车方程式\标准推车（FC-7010）.PDF", 0, 0)
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "标准推车（FC-7010）.SLDASM", False, longstatus
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized



End Sub

moscow19870105

朋友们 我已经解决了：
如下：
代码如下：
Private Sub CommandButton2_Click()

Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Set swApp = CreateObject("sldworks.application")
swApp.Visible = True

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("标准推车（FC-7010）.SLDASM", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)
Set Part = swApp.OpenDoc6("D:\fc7010车车方程式\标准推车（FC-7010）.SLDDRW", 3, 0, "", longstatus, longwarnings)
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "标准推车（FC-7010） - 框架-2", False, longstatus
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Part.ViewZoomtofit2
Part.ViewZoomtofit2
Part.ViewZoomtofit2
Part.ViewZoomtofit2
Part.ViewZoomtofit2
longstatus = Part.SaveAs3("D:\fc7010车车方程式\标准推车（FC-7010）.PDF", 0, 0)
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
swApp.ActivateDoc2 "标准推车（FC-7010）.SLDASM", False, longstatus
Set Part = swApp.ActiveDoc
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized



End Sub

linxao

   经典图书

很不错，顶一下！