EXCEL VBA HTML Нажмите кнопку, затем нажмите раскрывающуюся опцию

Question

Первоначально я задал вопрос здесь Кнопка Excel VBA HTML Нажмите / Гиперссылки , но отредактировали и изменили, и вроде как потерялись. После долгих часов дальнейших исследований и просмотра моей веб-страницы я нашел другой способдоберись до желаемого результата.

Так как нажатие гиперссылки не работает, есть еще одна кнопка, которую я могу нажать, с опцией раскрывающегося списка, которую мне затем нужно нажать, чтобы перейти к той же точке (что и оригинальный метод гиперссылки).

Кнопка «Проверка элементов» и раскрывающийся список находятся ниже.Также следует мой обновленный код.

Результат - нажмите кнопку «Перейти», затем выберите выпадающий список «Детали» ..

Также, пожалуйста, игнорируйте sendkeys, я знаю, что они являются последним средствомно на данный момент это работает.

Проверка элемента "Перейти к":

<a title="Go To - Menu button - To open the menu press spacebar" class="urTbarBtnStd" id="SRES2_BUT_GOTO" onkeypress="sapUrMapi_ToolbarButton_openMenu('SRES2_BUT_GOTO',event);return false;" onclick="sapUrMapi_ToolbarButton_openMenu('SRES2_BUT_GOTO',event);return false;" href="javascript:void(0);" ct="ToolbarButton"><span style="white-space: nowrap;">Go To&nbsp;&nbsp;<img align="baseline" class="urTbarBtnMnuIco" src="1x1"></span></a>

Проверка элемента "Подробности":

<tr class="urMnuRowOn" id="EDIT_DETAILS" onclick="me.htmlbSL(this,78,'SRES2_GOTO:onSelectPopupMenuItem','','EDIT_DETAILS','Details');;me.sapUrMapi_PopupMenu_hideAll();return false;" Idx="0"><td width="17" class="urMnuChk" style="width: 17px;">&nbsp;</td><td width="4" style="width: 4px;">&nbsp;</td><td width="40" class="urMnuTxt" nowrap="" style="width: 40px;"><span style="white-space: nowrap;">Details</span></td><td width="15" class="urMnuSub" style="width: 15px;">&nbsp;</td></tr>

Sub TPMRebates()

    Dim objIE As InternetExplorer
    Dim aEle As Object 'HTMLLinkElement
    Dim y As Integer
    Dim result As String
    Dim Link As Object
    Dim ElementCol As Object
    Dim wkbSourceWB As Workbook
    Dim SourceShtClm As Worksheet

    Set wkbSourceWB = ThisWorkbook     'Set workbook
    Set SourceShtClm = wkbSourceWB.Sheets("Claim Summary")

    Set objIE = New InternetExplorer
    objIE.Visible = True
    objIE.navigate "<very long intranet website>"

    Do While objIE.readyState = 4: DoEvents: Loop

    Application.Wait Now + TimeSerial(0, 0, 4) 'wait 4 sec

    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Enter}"

    Application.Wait Time + TimeSerial(0, 0, 6)

    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)
    SendKeys "{Tab}"
    Application.Wait (Now + 0.000001)


    SourceShtClm.Range("N4").Copy

    SendKeys "^v"

    SendKeys "{Enter}"

    Application.Wait Time + TimeSerial(0, 0, 10)

    '*****************************
    '
    'This is where I need the code to click 'go to' then 'details'
    '
    '*****************************

    'Have tried things like objIE.document.getElementsByTagName("a")
    'For Each Link In ElementCol
    '    Debug.Print Link.innerText
    '    If Link.innerText Like "Go To - Menu button - To open the menu press spacebar" Then
    '        Link.Click
    '        Exit For
    '    End If
    'Next Link
    '
    '
    'Also tried things like; objIE.document.getElementsByID("SRES2_BUT_GOTO").Click also .Focus but nothing works


End Sub

Answer 1

Dim HTMLdoc As HTMLDocument
Dim frame As HTMLFrameElement
Dim img As HTMLImg

Set HTMLdoc = objIE.document
Set frame = HTMLdoc.getElementsByName("crmA")(0)
Set HTMLdoc = frame.contentDocument
Set img = HTMLdoc.getElementById("SRES2_BUT_GOTO")
img.Click