Как перейти на другую страницу, дважды щелкнув строку таблицы HTML? - PullRequest
Новая
       18

Как перейти на другую страницу, дважды щелкнув строку таблицы HTML?

0 голосов
/ 12 декабря 2018

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

Вот мой код VBA: 

Set table = webpage.Document.getElementsByClassName("grid-mvc")(0).getElementsByTagName("div")(0).getElementsByTagName("table")(0).getElementsByTagName("tbody")(0).getElementsByTagName("tr")(0)
'Double Click on row


For Each RowElement In table.getElementsByClassName("grid-cell")
MsgBox RowElement.innerText
    RowElement.Click
    RowElement.Focus

     RowElement.FireEvent "ondblclick", 1, 2
      RowElement.Focus
     SendKeys "{ENTER}"



     RowElement.FireEvent ("ondbclick")
     SendKeys "{ENTER}"
     RowElement.FireEvent ("ondbclick")
     RowElement.FireEvent ("onmousedown")
       'RowElement.dispatchEvent ("ondblclick")
     SendKeys "{ENTER}"

RowElement.getElementsByTagName("td")(1).Click




    If Trim(RowElement.getElementsByTagName("td")(0).innerText) = Value Then


 MsgBox RowElement.textContent
RowElement.getElementsByTagName("td")(0).Click



End If
Next

КОД HTML: 

<TBODY>
  <TR class="grid-row ">
    <TD class="grid-cell" data-name="FacilityID">49343</TD>
    <TD class="grid-cell" data-name="SubBrand">QQ</TD>
    <TD class="grid-cell" data-name="PMSType">OnQ</TD>
    <TD class="grid-cell" data-name="PMSAccountingID">ORNA       </TD>
    <TD class="grid-cell" data-name="PMSIDDesc"></TD>
    <TD class="grid-cell" data-name="AccountingIDFullAcct">
      <DIV class="GLAccount">99 90700 USD</DIV></TD>
    <TD class="grid-cell" data-name="AccountDescription">
      <DIV title="Charitable Contributions      " 
      class="GLAccountDesc">Charitable Contributions      </DIV></TD>
    <TD class="grid-cell" data-name="AccountingID">2861</TD>
    <TD class="grid-cell" data-name="StartDate">12/7/2018</TD>
    <TD class="grid-cell" data-name="EndDate">12/31/2078</TD>
    <TD class="grid-cell" data-name="CodeBlockSpecific">No</TD>
    <TD class="grid-cell" data-name="SystemDefault">No</TD>
    <TD class="grid-cell" data-name="PermissionLevel">Permitted</TD>
    <TD class="grid-cell" data-name="UserID">MERE</TD>
    <TD class="grid-cell" data-name="LastUpdateTime">
      <DIV class="LastUpdateTime">12/7/2018 11:02:00 PM</DIV></TD>
    <TD class="grid-cell" data-name="MgmtGroup">Franchised</TD>
    <TD class="grid-cell" data-name="AcctType">Franchised</TD>
    <TD class="grid-cell" data-name="FinSys">
      <DIV title="Franchise" class="FinancialSystem">Franchise</DIV></TD>
    <TD class="grid-cell" data-name="Inncode">SEACU</TD>
    <TD class="grid-cell" data-name="HotelName">
      <DIV title="The Charter Hotel  Seattle, WA" class="HotelName">The Charter 
      Hotel  Seattle, WA</DIV></TD></TR></TBODY></TABLE>
<DIV class="grid-footer">
<DIV class="grid-itemscount"><SPAN class="grid-itemscount-label">Total 
Count:</SPAN>                 <SPAN class="grid-itemscount-caption">1</SPAN>     
        </DIV></DIV></DIV></DIV></DIV></DIV>
<DIV id="MappingSearchFacilityIdDialog"></DIV>
<DIV id="ApplyBrandDefaultMappingDialog"></DIV>
<SCRIPT>

1 Ответ

0 голосов
/ 13 декабря 2018

Я вижу, что вы используете только Click ().он не будет выполнять двойной щелчок и не будет запускать какое-либо событие.

Чтобы запустить любое событие, вы можете попробовать использовать код, подобный приведенному ниже. 

objElement.click
objElement.FireEvent "ondblclick", 1, 2

Ссылка:

как дважды щелкнуть веб-объект в VBA

Re: Выполнить двойнойнажмите на элемент HTML, VB6

...