很简单的一个应用，求助大家一下。小菜很菜的问题。

ryouss

做個 "宏按鈕" 執行如下 main 程式


' **********************************
' macro recorded on 01/29/19
' 1.開組件
' 2.選取欲打開的零件
' 3.執行 main 宏
' **********************************
Dim swApp As Object
Dim Part As Object
Sub main()
Set swApp = Application.SldWorks
Set TopDoc = swApp.ActiveDoc '總裝對象
If TopDoc.GetType <> 2 Then Exit Sub '不是裝配就退出
Part.OpenCompFile '開點選零件的文件
End Sub

ryouss

KEMIRWU 发表于 2019-2-15 09:08
Part.OpenCompFile '開點選零件的文件   此条报错。帮忙看是什么情况。谢谢

4#宏在SW2012,2017測試正常,附SW2017引用項目參考.