SolidWorks*Excel+VBA-中期优化

On Error Resume Next

Public swApp As SldWorks.SldWorksSub myftn(Control As IRibbonControl) '回调Dim PrgID As String, PrgArr As VariantOn Error GoTo AppNoOpen        PrgID = Control.ID: PrgArr = Split(PrgID, "_")        If InStr(PrgID, "SWapp") <> 0 Then            Set swApp = GetObject(, "SldWorks.Application")AppNoOpen:  If swApp Is Nothing Then                MsgBox "请先打开SolidWorks!", vbExclamation, "不正经的机械仙人"                Err.Clear                Exit Sub            End If        End IfOn Error GoTo PrgEnd        If UBound(PrgArr) > 1 Then            Application.Run PrgArr(1), PrgArr(2)        Else            Application.Run PrgArr(1)        End If        If Not swApp Is Nothing Then Set swApp = Nothing        Exit SubPrgEnd: MsgBox "遇到错误，已中止!", vbExclamation, "不正经的机械仙人"        Err.ClearEnd Sub