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：\テスト-part.SLDPRT" である場合は

それは私が実行時エラー '438' を得るSwApp.SaveAs4

で停止します。 "オブジェクトはこのプロパティまたはメソッドをサポートしていません"。

私はSave、SaveAs2などを試みましたが、同じエラーです。

これについてはまだわかりません。

提案がありますか？

BR、Emil。

Answer 1

試してみてください。

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

あなたは一部ではなく、アプリケーションを保存する必要があります。