Нажмите кнопку, когда есть более одной кнопки VBA - PullRequest
Новая
       2

Нажмите кнопку, когда есть более одной кнопки VBA

0 голосов
/ 31 августа 2018

Мне нужна помощь в этом вопросе: - нажмите кнопку «предыдущий день»

Код, который у меня сейчас есть, войдет в систему на веб-сайте, перейдет по ссылке транзакции, нажмите кнопку отправки. Я застрял там, где мне нужно нажать кнопку с надписью «предыдущий день». Я включил html в вопрос, я пытался использовать HTMLDoc.getElementsByClassName ("gso_nominate_maint") (1). Нажмите, чтобы попытаться нажать предыдущую кнопку, но я получаю сообщение об ошибке. 

Dim HMTLDoc As HTMLDocument
Dim MyBrowser As InternetExplorer
Sub transactions()
'
' transactions Macro
'

 Dim MyHTML_Element As IHTMLElement
    Dim MYURL As String
    ' Delmarva website
    MYURL = "website"
    Set MyBrowser = New InternetExplorer
    MyBrowser.Silent = True
    MyBrowser.navigate MYURL
    MyBrowser.Visible = True
    Do
    Loop Until MyBrowser.readyState = READYSTATE_COMPLETE
    Set HTMLDoc = MyBrowser.document
    ' user login and password
    HTMLDoc.all.user_login.value = "user"
    HTMLDoc.all.user_password.value = "pass"
    ' click submit
    HTMLDoc.forms(0).submit
    While MyBrowser.Busy Or MyBrowser.readyState < 4: DoEvents: Wend
    ' click transactions
    HTMLDoc.getElementsByClassName("menuitem")(0).Click
    While MyBrowser.Busy Or MyBrowser.readyState < 4: DoEvents: Wend
    'click Billing Analysis Report (Industrial)
    HTMLDoc.getElementsByClassName("firstlink")(1).Click
    While MyBrowser.Busy Or MyBrowser.readyState < 4: DoEvents: Wend
    HTMLDoc.forms(0).submit
    HTMLDoc.forms(0).submit
    'currently get an error from the code line below. 
    HTMLDoc.getElementsByClassName("gso_nominate_maint")(1).Click
    While MyBrowser.Busy Or MyBrowser.readyState < 4: DoEvents: Wend
    End Sub


<a href="gso_etrader_main?vsCurrUser=2753" class="menuitem">Trader Home</a><span class="body"> | </span>
<a href="gso_list_etrader_transaction?vsCurrUser=2753" class="menuitem">Transaction</a><span class="body"> | </span>
<a href="gso_list_etrader_reports?vsCurrUser=2753" class="menuitem">Reports</a>
         </td>
      </tr>
   </table>
</td>
</TR>
<TR>
<TD>
<CENTER>
<TABLE WIDTH=750 BORDER=0 ALIGN=CENTER>
<TR>
<TD ALIGN=RIGHT VALIGN=BOTTOM>
<FORM ACTION="gso_nominate_maint" METHOD="POST">
<INPUT TYPE="hidden" NAME="vsCurrUser" VALUE="2753">
<INPUT TYPE="hidden" NAME="vsTransactionName" VALUE="INTER_NOMINATE_ENTRY">
<INPUT TYPE="hidden" NAME="vsDlyOrderKy" VALUE="13052">
<INPUT TYPE="submit" VALUE="Previous Day">
</FORM>
</TD>
<TD ALIGN=CENTER>
<BR>
<B><FONT SIZE="+2">N</FONT><FONT SIZE="+1">OMINATE</FONT></B>&nbsp;&nbsp;
<B><FONT SIZE="+2">O</FONT><FONT SIZE="+1">RDERS</FONT></B>&nbsp;&nbsp;
<B><FONT SIZE="+2">F</FONT><FONT SIZE="+1">OR</FONT></B>&nbsp;&nbsp;
<B><FONT SIZE="+2">Thursday  08/30/2018</FONT></B>
<BR>
<FONT FACE="ARIAL, HELVETICA" SIZE="-1">
<B>[ Maintenance ]</B>
</FONT>
</TD>
<TD ALIGN=LEFT VALIGN=BOTTOM>
<FORM ACTION="gso_nominate_maint" METHOD="POST">
<INPUT TYPE="hidden" NAME="vsCurrUser" VALUE="2753">
<INPUT TYPE="hidden" NAME="vsTransactionName" VALUE="INTER_NOMINATE_ENTRY">
<INPUT TYPE="hidden" NAME="vsDlyOrderKy" VALUE="13054">
<INPUT TYPE="submit" VALUE="Next Day">
</FORM>
</TD>
</TR>
</TABLE>
<BR>
<BR>
<TABLE WIDTH=750 BORDER=0>
<TR>
<TD WIDTH=450 ALIGN=RIGHT>&nbsp;
</TD>
<TD ALIGN=RIGHT WIDTH=50>
<FORM ACTION="gso_nominate_ff_header" METHOD="POST">
<INPUT TYPE="hidden" NAME="vsOrderHdrKy" VALUE="">
<INPUT TYPE="hidden" NAME="vsDlyOrderKy" VALUE="13053">
<INPUT TYPE="hidden" NAME="vsTransactionName" VALUE="INTER_NOMINATE_ENTRY">
<INPUT TYPE="hidden" NAME="vsCurrUser" VALUE="2753">
<INPUT TYPE="submit" VALUE="Add New">
</FORM>
</TD>
</TR>
</TABLE>
<TABLE WIDTH=750 BORDER=0>
<TR>
<TH WIDTH=250 NOWRAP VALIGN=BOTTOM ALIGN=CENTER>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
SERVICE
</FONT>
</TH>
<TH WIDTH=50 NOWRAP VALIGN=BOTTOM VALIGN=CENTER>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
RANK
</FONT>
</TH>
<TH WIDTH=75 NOWRAP VALIGN=BOTTOM VALIGN=CENTER>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
NOMINATED<BR>VOLUME
</FONT>
</TH>
<TH WIDTH=75 NOWRAP VALIGN=BOTTOM VALIGN=CENTER>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
CONFIRMED<BR>VOLUME
</FONT>
</TH>
<TH WIDTH=150 NOWRAP VALIGN=BOTTOM VALIGN=CENTER>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
COMMENTS
</FONT>
</TH>
<TH WIDTH=75 NOWRAP VALIGN=BOTTOM VALIGN=CENTER>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
NOMINATED<BR>TOTAL
</FONT>
</TH>
<TH WIDTH=75 NOWRAP VALIGN=BOTTOM VALIGN=CENTER>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
CONFIRMED<BR>TOTAL
</FONT>
</TH>
</TR>
<TR>
<TD NOWRAP WIDTH=250 ALIGN=LEFT VALIGN=TOP>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
<B><A HREF="gso_nominate_ff_header?vsOrderHdrKy=239887&vsDlyOrderKy=13053&vsTransactionName=INTER_NOMINATE_ENTRY&vsCurrUser=2753">Direct Sale Columbia</A></B>
</FONT>
</TD>
<TD NOWRAP WIDTH=50 ALIGN=CENTER VALIGN=TOP>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
&nbsp;
</FONT>
</TD>
<TD NOWRAP WIDTH=75 ALIGN=RIGHT VALIGN=TOP>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
           0
</FONT>
</TD>
<TD NOWRAP WIDTH=75 ALIGN=RIGHT VALIGN=TOP>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
           0
</FONT>
</TD>
<TD NOWRAP WIDTH=150 ALIGN=LEFT VALIGN=TOP>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
&nbsp;
</FONT>
</TD>
<TD NOWRAP WIDTH=75 ALIGN=RIGHT VALIGN=TOP>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
           0
</FONT>
</TD>
<TD NOWRAP WIDTH=75 ALIGN=RIGHT VALIGN=TOP>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
           0
</FONT>
</TD>
</TR>
<TR>
<TD NOWRAP WIDTH=250 ALIGN=LEFT VALIGN=TOP>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
<B><A HREF="gso_nominate_ff_header?vsOrderHdrKy=239917&vsDlyOrderKy=13053&vsTransactionName=INTER_NOMINATE_ENTRY&vsCurrUser=2753">Direct Sale ESNG</A></B>
</FONT>
</TD>
<TD NOWRAP WIDTH=50 ALIGN=CENTER VALIGN=TOP>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
&nbsp;
</FONT>
</TD>
<TD NOWRAP WIDTH=75 ALIGN=RIGHT VALIGN=TOP>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
           0
</FONT>
</TD>
<TD NOWRAP WIDTH=75 ALIGN=RIGHT VALIGN=TOP>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
           0
</FONT>
</TD>
<TD NOWRAP WIDTH=150 ALIGN=LEFT VALIGN=TOP>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
&nbsp;
</FONT>
</TD>
<TD NOWRAP WIDTH=75 ALIGN=RIGHT VALIGN=TOP>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
           0
</FONT>
</TD>
<TD NOWRAP WIDTH=75 ALIGN=RIGHT VALIGN=TOP>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
           0
</FONT>
</TD>
</TR>
<TR>
<TD NOWRAP WIDTH=250 ALIGN=LEFT VALIGN=TOP>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
<B><A HREF="gso_nominate_ff_header?vsOrderHdrKy=239947&vsDlyOrderKy=13053&vsTransactionName=INTER_NOMINATE_ENTRY&vsCurrUser=2753">Direct Sale Transco</A></B>
</FONT>
</TD>
<TD NOWRAP WIDTH=50 ALIGN=CENTER VALIGN=TOP>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
&nbsp;
</FONT>
</TD>
<TD NOWRAP WIDTH=75 ALIGN=RIGHT VALIGN=TOP>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
           0
</FONT>
</TD>
<TD NOWRAP WIDTH=75 ALIGN=RIGHT VALIGN=TOP>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
           0
</FONT>
</TD>
<TD NOWRAP WIDTH=150 ALIGN=LEFT VALIGN=TOP>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
&nbsp;
</FONT>
</TD>
<TD NOWRAP WIDTH=75 ALIGN=RIGHT VALIGN=TOP>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">
           0
</FONT>
</TD>
<TD NOWRAP WIDTH=75 ALIGN=RIGHT VALIGN=TOP>
<FONT FACE="ARIAL, HELVETICA" SIZE="-2">

1 Ответ

0 голосов
/ 05 сентября 2018

Перед переходом к этой кнопке существует элемент формы, который основан исключительно на предоставленном HTML-коде. Затем вы можете использовать селектор атрибутов CSS для нацеливания на элемент по его атрибуту value и значению 'Previous Day'

MyBrowser.document.getElementsByTagName("form")(0).querySelector("[value='Previous Day']").Click

Предполагается, что для навигации нет дополнительных тегов form / frame / iframe.

Вы можете увидеть родительскую форму здесь:

enter image description here

Помните, должен быть 

While MyBrowser.Busy Or MyBrowser.readyState < 4: DoEvents: Wend

, чтобы разрешить загрузку страницы раньше.

Вам может потребоваться дополнительное время ожидания, например временной цикл, чтобы элемент стал доступен, например, 

Dim t As Date, ele As Object
Const WAIT_TIME_SECS As Long = 5
t = Timer

Do
    DoEvents
    On Error Resume Next
    Set ele = MyBrowser.document.getElementsByTagName("form")(0).querySelector("[value='Previous Day']")
    On Error GoTo 0
    If Timer - t > WAIT_TIME_SECS Then Exit Do
Loop While ele Is Nothing

If Not ele Is Nothing Then ele.Click
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Нет похожих вопросов

...