iCAx开思工具箱

标题: 关于catia应用vba保存文件的问题 [打印本页]

作者: az025672 时间: 2014-4-15 20:29
标题: 关于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

作者: cww1234 时间: 2014-4-16 17:16
CommonDialog1控件不存在

作者: az025672 时间: 2014-4-16 19:10

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

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

作者: cww1234 时间: 2014-5-16 18:40
你好，，引用后还必须添加该部件到窗体中才可以使用

作者: watersp 时间: 2014-9-10 12:19
调试时最好屏蔽掉On Error Resume Next好检查错误，Microsoft Common Dialog Control 6.0在工具-控件中添加，系统正常都有，没有就去下一个comdlg32.ocx文件

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)