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

在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

CommonDialog1控件不存在

cww1234 发表于 2014-4-16 17:16
CommonDialog1控件不存在

您好，谢谢你的回答。但是我在Excel vba工程引用中没有Microsoft Common Dialog Control 6.0这一项啊，该怎么解决，或者说还有什么语句可以实现catia的另存为功能

你好，，引用后还必须添加该部件到窗体中才可以使用