Solidworks 2016 SaveAs Access VBA 运行-时间错误438

Question

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

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

我的代码是：

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

保存名是"C:\test-part.SLDPRT"

停在SwApp.SaveAs4

我收到运行时间错误“438”。 "Object does not support this property or method".

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

我还找不到任何相关信息。

有什么建议吗？

BR，埃米尔。

Answer 1

尝试：

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

您需要保存部分，而不是应用程序。

Solidworks 2016 SaveAs Access VBA 运行-时间错误438

Solidworks 2016 SaveAs Access VBA Run-time error 438

ms-access

reference

solidworks