VBA 和 UI 自动化组合框展开折叠模式

如何解决VBA 和 UI 自动化组合框展开折叠模式

错误无法展开组合框。 我正在尝试从组合框中获取特定值。

变量

Dim MyElement1 As UIAutomationClient.iuiAutomationElement
Dim oExpandpattern As UIAutomationClient.iuiAutomationExpandCollapsePattern

Set MyElement1 = AppObj.FindFirst(TreeScope_Children,PropCondition(oAutomation,eUIA_NamePropertyId,"Invoice No"))

Set oExpandpattern = MyElement1.GetCurrentPattern(UIA_ExpandCollapsePatternId)
oExpandpattern.Expand