Inventor插件导出对话框VBA自动填文件名并回车实现求助

我正在为Inventor编写VBA宏，用于触发一款导出插件（可将文件转为其他程序专属格式）。目前已通过代码成功触发插件按钮，但插件弹出的类标准“另存为”对话框无法自动填写文件名/路径，也无法实现回车确认，尝试SendKeys等方法均无效，且该插件几乎没有提供Inventor VBA交互接口。

现有触发代码：

Dim OpenXMLExporter As CommandManager
Set OpenXMLExporter = ThisApplication.CommandManager

Dim OpenXMLExporterForReals As ControlDefinition
Set OpenXMLExporterForReals = OpenXMLExporter.ControlDefinitions.Item("Autodesk:InventorFlat:ExportCmdBtn")

Call OpenXMLExporterForReals.Execute

由于插件无VBA交互接口，且SendKeys对模态对话框兼容性极差，可通过Windows API结合VBA定位并操作对话框，具体步骤如下：

1. 声明Windows API函数 #

在VBA标准模块顶部添加以下API声明（不可放在类模块中）：

Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr
Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr
Declare PtrSafe Function SetForegroundWindow Lib "user32" (ByVal hWnd As LongPtr) As Long

Const WM_SETTEXT = &HC
Const BM_CLICK = &HF5

2. 编写对话框操作逻辑 #

添加函数用于等待并操控“另存为”对话框，需根据实际对话框信息替换标题参数（可通过Spy++工具获取控件信息）：

Sub HandleSaveAsDialog(targetPath As String)
    Dim dialogHWnd As LongPtr
    Dim editHWnd As LongPtr
    Dim saveBtnHWnd As LongPtr
    Dim startTime As Double
    
    ' 等待对话框弹出，最多等待5秒
    startTime = Timer
    Do While Timer < startTime + 5
        ' 替换为你的"另存为"对话框标题，比如"另存为"或"Save As"
        dialogHWnd = FindWindow("#32770", "另存为")
        If dialogHWnd <> 0 Then Exit Do
        DoEvents
    Loop
    
    If dialogHWnd = 0 Then Exit Sub
    
    ' 将对话框置为前台
    SetForegroundWindow dialogHWnd
    
    ' 定位文件名输入框（标准对话框类名为"Edit"）
    editHWnd = FindWindowEx(dialogHWnd, 0, "Edit", vbNullString)
    If editHWnd <> 0 Then
        ' 写入目标路径与文件名
        SendMessage editHWnd, WM_SETTEXT, 0, ByVal targetPath
    End If
    
    ' 定位"保存"按钮（标准对话框标题为"保存"或"Save"）
    saveBtnHWnd = FindWindowEx(dialogHWnd, 0, "Button", "保存")
    If saveBtnHWnd <> 0 Then
        ' 模拟点击保存按钮
        SendMessage saveBtnHWnd, BM_CLICK, 0, 0
    End If
End Sub

3. 修改触发代码为异步执行 #

原Execute方法会阻塞代码直到对话框关闭，需改用Execute2异步执行，再调用对话框操作函数：

Sub TriggerExportAndAutoSave()
    Dim OpenXMLExporter As CommandManager
    Set OpenXMLExporter = ThisApplication.CommandManager

    Dim OpenXMLExporterForReals As ControlDefinition
    Set OpenXMLExporterForReals = OpenXMLExporter.ControlDefinitions.Item("Autodesk:InventorFlat:ExportCmdBtn")
    
    ' 异步执行插件命令，避免代码阻塞
    OpenXMLExporterForReals.Execute2 True
    
    ' 调用对话框处理函数，替换为你的目标路径和文件名
    HandleSaveAsDialog "C:\Your\Target\Path\FileName.ext"
End Sub

关键注意事项 #

• 使用**Spy++**工具（Visual Studio自带或单独下载）获取对话框的标题、输入框及按钮的类名/标题，确保FindWindow和FindWindowEx参数准确。
• 若插件对话框为非标准Windows控件，需调整控件定位逻辑（比如按控件层级递归查找）。
• 确保VBA工程已启用“信任对VBA工程对象模型的访问”（Inventor选项→信任中心→信任中心设置→宏设置）。

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