⾃动化错误mysqlvba,c-运⾏时错误-214767259（80004005）
⾃动化错。。。
我对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)mysql下载32位
invokePattern.Invoke
该按钮实际上被点击了。 但由于最后⼀⾏的错误，执⾏没有向前推进。 我也尝试过如下。
On Error Resume Next

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。