iCAx开思工具箱

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 21451|回复: 4
打印 上一主题 下一主题

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

[复制链接]
跳转到指定楼层
楼主
发表于 2014-4-15 20:29:41 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册登录,享用更多网站功能!

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
在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

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 支持支持
沙发
发表于 2014-4-16 17:16:01 | 只看该作者

马上注册登录,享用更多网站功能!

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
板凳
 楼主| 发表于 2014-4-16 19:10:19 | 只看该作者

马上注册登录,享用更多网站功能!

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
地板
发表于 2014-5-16 18:40:11 | 只看该作者

马上注册登录,享用更多网站功能!

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
5
发表于 2014-9-10 12:19:45 | 只看该作者

马上注册登录,享用更多网站功能!

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手板模型制作,在线3D打印服务

QQ|小黑屋|手机版|开思工具箱 CAD工具箱_CAM工具箱  

GMT+8, 2024-11-1 08:34 , Processed in 0.021543 second(s), 7 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

快速回复 返回顶部 返回列表