我对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