Solidworks 2016 SaveAs Access VBA运行时错误438

Posted

技术标签:

【中文标题】Solidworks 2016 SaveAs Access VBA运行时错误438【英文标题】:Solidworks 2016 SaveAs Access VBA Run-time error 438 【发布时间】:2016-08-10 15:28:01 【问题描述】:

我有一个以不同方式配置 SolidWorks 零件的 MS Access VBA 脚本。

升级到 Windows 10 和 SolidWorks 2016 后,它不再工作。

我的代码是:

Set swApp = CreateObject("SldWorks.Application")
Set part = swApp.activeDoc
bRet = swApp.SaveAs4(Savename, swSaveAsCurrentVersion, swSaveAsOptions_Copy, nErrors, nWarnings)

其中 Savename 是“C:\test-part.SLDPRT”

它停在SwApp.SaveAs4

我收到运行时错误“438”。 “对象不支持此属性或方法”。

我尝试过 Save、SaveAs2 等,但同样的错误。

我还没有找到任何关于此的信息。

有什么建议吗?

BR,埃米尔。

【问题讨论】:

【参考方案1】:

试试:

bRet = part.SaveAs4(Savename, swSaveAsCurrentVersion, swSaveAsOptions_Copy, nErrors, nWarnings)

您需要保存零件,而不是应用程序。

【讨论】:

以上是关于Solidworks 2016 SaveAs Access VBA运行时错误438的主要内容,如果未能解决你的问题,请参考以下文章

打开solidworks工程图时显示无法找到图纸格式

Solidworks 入门

SaveAs期间如何保留原始工作簿

Word VBA SaveAs 错误:文件类型和文件扩展名不兼容

多次使用 SaveAs 会冻结 Excel

VBA ActiveWorkbook.Saveas 运行时错误 1004