Inventor 2022 VBA调用SaveAs保存零件文件报错问题求助

原代码错误原因 #

第一处报错（Invalid character _） #

1. VBA的换行续行符_必须放在上一行的末尾，且前面必须有空格，你将下划线写在对象名前属于语法错误
2. VBA中给对象类型变量赋值必须使用Set关键字，缺省该关键字会触发赋值错误

第二处报错（Expected: =） #

VBA中调用无返回值的方法时，如果用括号包裹参数，必须搭配Call关键字，否则括号会被识别为表达式求值符号，触发语法错误

错误的FileSaveAs写法说明 #

你尝试的FileSaveAs.AddFileToSave是批量保存场景专用API，不适合单个文件直接保存的需求，无需使用该接口。 #

可运行完整代码 #

首先确认你要保存的目标路径（如C:\Temp\）已提前创建，避免路径不存在导致的IO错误。

Sub 自定义零件保存宏()
    ' 声明零件文档对象
    Dim oDoc As PartDocument
    
    ' 场景1：新建零件后保存
    Set oDoc = ThisApplication.Documents.Add(DocumentTypeEnum.kPartDocumentObject)
    ' 保存写法1：无Call关键字时去掉参数括号
    oDoc.SaveAs "C:\Temp\SaveTest.ipt", False
    
    ' 场景2：保存当前已打开的激活零件，替换上面两行即可
    ' Set oDoc = ThisApplication.ActiveDocument
    ' 保存写法2：搭配Call关键字可保留括号
    ' Call oDoc.SaveAs("C:\myTemp\t.ipt", False)
    
    ' 若无需另存为新路径，仅保存当前文件修改直接调用Save方法即可
    ' oDoc.Save
End Sub

内容的提问来源于stack exchange，提问作者vasek 9876