如何在VBA中通过UIA正确调用SetValue方法？

使用VBA通过UIAutomation操作Excel中的编辑控件（控件类型为UIA_EditControlTypeId (0xC354)）时，执行oPattern.SetValue ("自動機器")代码出现卡顿，已知该控件支持设置值，求正确的设置值方法。

原代码核心片段：

Set oPattern = EleTransSrc.GetCurrentPattern(UIAutomationClient.UIA_LegacyIAccessiblePatternId)
oPattern.SetValue ("自動機器")

对于UIA_EditControlTypeId类型的编辑控件，应使用ValuePattern而非LegacyIAccessiblePattern——后者是为兼容旧控件设计的，用于现代编辑控件易引发卡顿或异常。

修改后的核心代码 #

Sub UIADemo()
    On Error GoTo ErrorHandler
    Dim oValuePattern As UIAutomationClient.IUIAutomationValuePattern ' 替换模式类型
    
    Set WinElements = WalkEnabledElements(oAutomation.GetRootElement, "VBA_Translation.xlsm - Excel")
    Debug.Print WinElements.CurrentName
    Set EleTransSrc = WinElements.FindFirst(TreeScope_Subtree, PropCondition(oAutomation, 1, "translation-textfield-idsrc"))
    
    ' 获取ValuePattern而非LegacyIAccessiblePattern
    Set oValuePattern = EleTransSrc.GetCurrentPattern(UIAutomationClient.UIA_ValuePatternId)
    oValuePattern.SetValue "自動機器" ' VBA中调用无返回值方法无需额外括号

ErrorHandler:
    Debug.Print Err.Description ' 建议输出具体错误信息，方便排查
End Sub

关键说明 #

• UIA_ValuePatternId是编辑类控件的标准操作模式，专门用于读写文本内容，适配UIA_EditControlTypeId控件更稳定。
• VBA中调用无返回值的方法时，不需要加括号（加括号会被当作表达式求值，可能引发异常）。
• 若不确定控件是否支持ValuePattern，可以通过GetCurrentPattern的错误捕获，或使用GetSupportedPatterns方法提前验证。

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