Vba excel ie

Kelvim · 13 de agosto de 2016

Boa noite

Eu tenho um código que estou mexendo e gostaria que ele fizesse uma coisa.

Que ele escolhesse uma opção em um menu através do VBA.

Segue abaixo um pedaço do HTML da pagina.

<DIV id=divMotivoPopup>
<INPUT id=hidMotiveId type=hidden>
<UL class="sf-menu sf-js-enabled sf-shadow" id=menuMotive serial="0" sfTimer="2116">
<LI jQuery152010928177037218101="131"><A class=sf-with-ul href="javascript:void();" jQuery152010928177037218101="139">Selecione<SPAN class=sf-sub-indicator>»</SPAN></A>
<UL style="ZOOM: 1; FILTER:  ; DISPLAY: none; VISIBILITY: hidden" jQuery152010928177037218101="135">
<LI jQuery152010928177037218101="132"><A class=sf-with-ul href="javascript:void();" jQuery152010928177037218101="140">Migração SDU<SPAN class=sf-sub-indicator>»</SPAN></A>
<UL style="ZOOM: 1; FILTER:   ; DISPLAY: none; VISIBILITY: hidden" jQuery152010928177037218101="136">
<LI><A onclick=iCareParceiro.reschedule.SelectMotive(1481); href="javascript:void();" jQuery152010928177037218101="141">Cliente Ausente</A></LI>
<LI><A onclick=iCareParceiro.reschedule.SelectMotive(1451); href="javascript:void();" jQuery152010928177037218101="142">Cliente não autorizou</A></LI>
<LI><A onclick=iCareParceiro.reschedule.SelectMotive(1482); href="javascript:void();" jQuery152010928177037218101="143">Cliente não localizado</A></LI>
<LI><A onclick=iCareParceiro.reschedule.SelectMotive(1450); href="javascript:void();" jQuery152010928177037218101="144">Falta de Material.</A></LI>
<LI><A onclick=iCareParceiro.reschedule.SelectMotive(1449); href="javascript:void();" jQuery152010928177037218101="145">Inviabilidade de back- bone</A></LI>
<LI><A onclick=iCareParceiro.reschedule.SelectMotive(1479); href="javascript:void();" jQuery152010928177037218101="146">Inviabilidade dentro do apto./ casa</A></LI>
<LI><A onclick=iCareParceiro.reschedule.SelectMotive(1483); href="javascript:void();" jQuery152010928177037218101="147">Outros</A></LI></UL></LI>
<LI jQuery152010928177037218101="133"><A class=sf-with-ul href="javascript:void();" jQuery152010928177037218101="148">Cliente<SPAN class=sf-sub-indicator>»</SPAN></A>
<UL style="ZOOM: 1; FILTER:  ; DISPLAY: none; VISIBILITY: hidden" jQuery152010928177037218101="137">
<LI><A onclick=iCareParceiro.reschedule.SelectMotive(176); href="javascript:void();" jQuery152010928177037218101="149">Falta de Energia Elétrica </A></LI>
<LI><A onclick=iCareParceiro.reschedule.SelectMotive(155); href="javascript:void();" jQuery152010928177037218101="150">Reagendado - Cliente ausente</A></LI>
<LI><A onclick=iCareParceiro.reschedule.SelectMotive(151); href="javascript:void();" jQuery152010928177037218101="151">Reagendado - Negoc. c/ síndico</A></LI>
<LI><A onclick=iCareParceiro.reschedule.SelectMotive(150); href="javascript:void();" jQuery152010928177037218101="152">Reagendado-Ass. viajando</A></LI>
<LI><A onclick=iCareParceiro.reschedule.SelectMotive(149); href="javascript:void();" jQuery152010928177037218101="153">Reagendado-Imóvel em Reforma</A></LI>
<LI><A onclick=iCareParceiro.reschedule.SelectMotive(152); href="javascript:void();" jQuery152010928177037218101="154">Reagendado-Solic. pelo ass.</A></LI>
<LI><A onclick=iCareParceiro.reschedule.SelectMotive(90); href="javascript:void();" jQuery152010928177037218101="155">Sem sucesso de contato com cliente</A></LI></UL></LI>
<LI jQuery152010928177037218101="134"><A class=sf-with-ul href="javascript:void();" jQuery152010928177037218101="156">Outros<SPAN class=sf-sub-indicator>»</SPAN></A>
<UL style="DISPLAY: none; VISIBILITY: hidden" jQuery152010928177037218101="138">
<LI><A onclick=iCareParceiro.reschedule.SelectMotive(156); href="javascript:void();" jQuery152010928177037218101="157">Reagendado - Falta de Estoque</A></LI>
<LI><A onclick=iCareParceiro.reschedule.SelectMotive(154); href="javascript:void();" jQuery152010928177037218101="158">Reagendado-Tempo Chuvoso</A></LI>
<LI><A onclick=iCareParceiro.reschedule.SelectMotive(569); href="javascript:void();" jQuery152010928177037218101="159">Será realizada visita do supervisor técnico</A></LI></UL></LI></UL></LI></UL></DIV>