如何通过UIA直接设置Chrome控件值实现当前标签URL导航？

问题背景 #

现有VBA代码通过UIA定位Chrome窗口，使用剪贴板粘贴+SendKeys的方式在当前标签页导航到指定URL，但该方案存在两个明显缺陷：

• 需要恢复剪贴板原有内容，操作繁琐且易干扰用户剪贴板
• 操作过程中需要将焦点切回Excel，影响工作流连续性

核心疑问：UIA中是否存在直接为控件设置值的方法？ 同时欢迎提供其他可行实现方案（已排除Shell（速度慢且必须打开新标签页）、Selenium（需调试模式启动Chrome，中断工作流）两种方案）。

现有代码 #

Function GetChrome(ByRef uia As CUIAutomation) As IUIAutomationElement
    
    Dim el_Desktop As IUIAutomationElement
    Set el_Desktop = uia.GetRootElement
    
    Dim el_ChromeWins As IUIAutomationElementArray
    Dim el_ChromeWin As IUIAutomationElement
    Dim cnd_ChromeWin As IUIAutomationCondition

    ' 定位Chrome窗口类名
    Set cnd_ChromeWin = uia.CreatePropertyCondition(UIA_ClassNamePropertyId, "Chrome_WidgetWin_1")
    Set el_ChromeWins = el_Desktop.FindAll(TreeScope_Children, cnd_ChromeWin)
    Set el_ChromeWin = Nothing
    
    If el_ChromeWins.Length = 0 Then
        Debug.Print """Chrome_WidgetWin_1"" not found"
        Exit Function
    End If
    
    Dim count_ChromeWins As Integer
    For count_ChromeWins = 0 To el_ChromeWins.Length - 1
        CurWinTitle = el_ChromeWins.GetElement(count_ChromeWins).CurrentName
        If (InStr(1, CurWinTitle, "Chrome")) Then
            Set el_ChromeWin = el_ChromeWins.GetElement(count_ChromeWins)
            Exit For
        End If
    Next
    If el_ChromeWin Is Nothing Then
        Debug.Print "No Chrome Window Found"
        Exit Function
    End If
    Set GetChrome = el_ChromeWin
End Function


Sub Chrome_NavigateTo()

    Dim strURL As String
    strURL = "https://google.com/"
    Clipboard strURL
    
    Dim uia As New CUIAutomation
    Dim el_ChromeWin As IUIAutomationElement
    Set el_ChromeWin = GetChrome(uia)
    Debug.Print "1-" & el_ChromeWin.CurrentName
    
    If el_ChromeWin Is Nothing Then
        Debug.Print "Chrome doe NOT exist"
        Exit Sub
    End If
    
    Dim cnd As IUIAutomationCondition
    Set cnd = uia.CreatePropertyCondition(UIA_NamePropertyId, "地址和搜索栏")
    
    Dim AddressBar As IUIAutomationElement
    Set AddressBar = el_ChromeWin.FindFirst(TreeScope_Subtree, cnd)
    Debug.Print AddressBar.CurrentName
    Debug.Print AddressBar.GetCurrentPropertyValue(UIA_ValueValuePropertyId)
    AddressBar.SetFocus
    SendKeys "^a"
    SendKeys "{DEL}"
    SendKeys "^V"
    SendKeys "{ENTER}"
End Sub


Function Clipboard$(Optional s$)
    Dim v: v = s  '适配64位VBA
    With CreateObject("htmlfile")
    With .parentWindow.clipboardData
        Select Case True
            Case Len(s): .setData "text", v
            Case Else:   Clipboard = .GetData("text")
        End Select
    End With
    End With
End Function

解决方案 #

1. UIA直接设置控件值（推荐） #

UIA提供了IUIAutomationValuePattern接口，可直接对支持编辑的控件设置值，完全替代剪贴板和SendKeys操作，解决原有方案的两个缺陷。

修改后的Chrome_NavigateTo子过程如下：

Sub Chrome_NavigateTo()
    Dim strURL As String
    strURL = "https://google.com/"
    
    Dim uia As New CUIAutomation
    Dim el_ChromeWin As IUIAutomationElement
    Set el_ChromeWin = GetChrome(uia)
    Debug.Print "1-" & el_ChromeWin.CurrentName
    
    If el_ChromeWin Is Nothing Then
        Debug.Print "Chrome does NOT exist"
        Exit Sub
    End If
    
    Dim cnd As IUIAutomationCondition
    Set cnd = uia.CreatePropertyCondition(UIA_NamePropertyId, "地址和搜索栏")
    
    Dim AddressBar As IUIAutomationElement
    Set AddressBar = el_ChromeWin.FindFirst(TreeScope_Subtree, cnd)
    
    If Not AddressBar Is Nothing Then
        ' 获取ValuePattern接口
        Dim valuePattern As IUIAutomationValuePattern
        Set valuePattern = AddressBar.GetCurrentPattern(UIA_ValuePatternId)
        
        ' 直接设置地址栏值
        valuePattern.SetValue strURL
        
        ' 模拟回车键导航（也可通过UIA的InvokePattern触发导航，回车键兼容性更稳定）
        SendKeys "{ENTER}"
        ' 可选：操作后切回Excel焦点
        ' AppActivate Application.Caption
    End If
End Sub

关键说明：

• 通过GetCurrentPattern(UIA_ValuePatternId)获取地址栏的ValuePattern接口，无需操作剪贴板
• 调用SetValue方法直接写入URL，避免剪贴板干扰
• 仅需最后一次SendKeys "{ENTER}"触发导航，也可尝试通过IUIAutomationInvokePattern触发地址栏的导航按钮，但回车键兼容性更强
• 可通过AppActivate在操作后主动切回Excel焦点，完全避免焦点切换的干扰

2. 其他备选方案 #

• Windows API消息发送：通过SendMessage向Chrome地址栏控件发送WM_SETTEXT消息设置URL，再发送WM_KEYDOWN模拟回车键。该方案需结合UIA定位获取控件句柄，复杂度略高，但性能更优。

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