ms-access - 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”。 “对象不支持此属性或方法”。

我尝试过“保存”、“SaveAs2”等，但出现同样的错误。

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

有什么建议吗？

BR，埃米尔。

Answer 1

尝试:

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

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