关于catia应用vba保存文件的问题

az025672

在Excel vba 中引用catia后需要将文件另存为，以下是另存的代码，但是运行时无反应，请高手帮忙看看，谢谢
Private Sub CommandButton2_Click()
If MsgBox("要保存文件并关闭吗？", vbYesNo) = vbYes Then
        On Error Resume Next
        CommonDialog1.Filter = "零件文件|*.CATPart"
       CommonDialog1.ShowSave

        If oPartDoc.FullName = CommonDialog1.Filename Then
            oPartDoc.Save
        Else
            If Dir(CommonDialog1.Filename) <> "" Then
                Kill (CommonDialog1.Filename)
            End If
            oPartDoc.SaveAs CommonDialog1.Filename
        End If
        oPartDoc.Close
        On Error GoTo 0
   End If

End Sub

cww1234

az025672

cww1234

watersp