我对EXcel VBA有一些了解，我是UI Automation的新手。 我正在尝试使用Excel VBA在客户端环境中进行UI自动化。 我参考了UIAutomationCore.dll。 当我尝试单击应用程序上的按钮时，我收到“运行时错误-2147467256(80004005)自动化错误未指定错误”。

以下是我的代码。 在最后一行，当我尝试调用该功能时，我收到错误。

我使用的是Window 7 32位计算机和32位版本的Excel 2010。

Dim oUIA As UIAutomationClient.CUIAutomation

Dim deskEle As UIAutomationClient.IUIAutomationElement

Dim ele As UIAutomationClient.IUIAutomationElement

Dim invokePattern As UIAutomationClient.IUIAutomationInvokePattern

Dim legacyPattern As UIAutomationClient.IUIAutomationLegacyIAccessiblePattern

Dim cnd As UIAutomationClient.IUIAutomationCondition

Dim walker As UIAutomationClient.IUIAutomationTreeWalker

Set oUIA = New UIAutomationClient.CUIAutomation

Set walker = oUIA.RawViewWalker

Set deskEle = oUIA.GetRootElement

Set ele = walker.GetFirstChildElement(deskEle)

Do While Not ele Is Nothing

If InStr(ele.CurrentName, "Title of the window") Then

Set myWindow = ele

Exit Do

End If

Set ele = walker.GetNextSiblingElement(ele)

Loop

Set cnd = oUIA.CreatePropertyCondition(UIA_NamePropertyId, "Go")

Set ele = myWindow.FindFirst(TreeScope_Subtree, cnd)

Set legacyPattern = ele.GetCurrentPattern(UIA_LegacyIAccessiblePatternId)

legacyPattern.DoDefaultAction

我也尝试过使用UIA_InvokePatternId。 我仍然得到同样的错误。

Set invokePattern = ele.GetCurrentPattern(UIA_InvokePatternId)

invokePattern.Invoke

该按钮实际上被点击了。 但由于最后一行的错误，执行没有向前推进。 我也尝试过如下。

On Error Resume Next

invokePattern.Invoke

On Error GoTo 0

然后在invokePattern.Invoke之后的下一行被执行但问题是，点击该按钮后会打开另一个小窗口。 我无法使用UIAutomation读取第二个窗口中的元素。 但是当我手动单击按钮时，我能够读取并访问第二个窗口上的元素。 我希望能够以编程方式单击按钮访问第二个窗口的元素。 我无法在任何地方找到解决方案。任何人都可以帮助我。 先感谢您。