Solidworks 2016 SaveAs Access VBA运行时错误438

Question

我有一个以不同方式配置 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，埃米尔。

Answer 1

试试：

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

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