1

我能够创建我的 vba 代码以登录到受密码保护的网站，但现在我被困在如何能够自动点击到我需要提取数据的位置。我无法共享该网站，但这是我尝试单击的 html 行。这是一个“报告”按钮，但我不能

这是我想单击按钮的 html 代码

    <a href="gso_list_etrader_reports?vsCurrUser=2753" 
     class="menuitem">Reports</a>

这是网站和登录名/密码的代码，然后单击登录，到目前为止工作正常，下一步是单击报告并通过 Excel 中的 Web 查询提取数据。任何帮助是极大的赞赏。谢谢！

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

 Dim MyHTML_Element As IHTMLElement
    Dim MYURL As String
    On Error GoTo Err_Clear

    '  website
    MYURL = ""
    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 = ***
    HTMLDoc.all.user_password.Value = ***
    For Each MyHTML_Element In HTMLDoc.getElementsbyTagName("input")
    'click submit to login
    If MyHTML_Element.Type = "submit" Then MyHTML_Element.Click: Exit For
    Next

 'gives debug error***   If MyHTML_Element.Type = "Reports" Then MyHTML_Element.Click: Exit For
    Next


Err_Clear:
    If Err <> 0 Then
    Err.Clear
    Resume Next
    End If


End Sub

请求我要单击的站点的 html，我希望宏单击报告按钮。

交易者主页 | 交易 | 报告

新代码在我按 F5 时不起作用，但在我通过代码按 F8 时会起作用：

将 HMTLDoc 调暗为 HTMLDocument 将 MyBrowser 调暗为 InternetExplorer Sub Delmarva_daily() ' ' Delmarva_daily 宏 '

将 MyHTML_Element 调暗为 IHTMLElement 将 MYURL 调暗为错误 GoTo Err_Clear 时的字符串

' website
MYURL = ***
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 = ***
HTMLDoc.all.user_password.Value = ***
' click submit
For Each MyHTML_Element In HTMLDoc.getElementsbyTagName("input")

If MyHTML_Element.Type = "submit" Then MyHTML_Element.Click: Exit For
Next
' click reports
HTMLDoc.getElementsByClassName("menuitem")(1).Click
While MyBrowser.Busy Or MyBrowser.readyState < 4: DoEvents: Wend
'click Billing Analysis Report (Industrial)
HTMLDoc.getElementsByClassName("firstlink")(0).Click
While MyBrowser.Busy Or MyBrowser.readyState < 4: DoEvents: Wend
For Each MyHTML_Element In HTMLDoc.getElementsbyTagName("input")

If MyHTML_Element.Type = "submit" Then MyHTML_Element.Click: Exit For
Next

Err_Clear: If Err <> 0 Then Err.Clear Resume Next End If

结束子

4

2 回答 2

3

报告按钮：

您可以尝试以下 CSS 选择器来定位感兴趣的元素：

HTLMDoc.querySelector("a[href='gso_list_etrader_reports?vsCurrUser=2753']").Click

或者通过类名选择更传统的元素：

HTMLDoc.getElementsByClassName("menuitem")(1).Click

或按标签（如果确实只有 2 个a标签！）

HTMLDoc.getElementsByTagName("a")(1).Click

CSS 选择器：

a[href='gso_list_etrader_reports?vsCurrUser=2753']

正在寻找一个带有标签的元素，该a标签的属性href值为 gso_list_etrader_reports?vsCurrUser=2753.

对 HTML 示例的 CSS 查询：

询问

提交按钮：

对于其余代码：您可以使用以下内容来避免单击输入按钮时出现循环，具体取决于您有多少提交输入按钮。

HTLMDoc.querySelector("input[type=submit]").Click

您也许还可以使用

HTMLDoc.forms(0).submit

每次点击后|提交：

您希望While myBrowser.Busy Or myBrowser.readyState < 4: DoEvents: Wend在每个 click|submit 事件之后，为页面事件的发生留出时间；并减少由于在页面上可用之前尝试选择元素而找不到对象的机会。

于 2018-08-03T19:41:07.080 回答
2 
If MyHTML_Element.Type = "submit" Then MyHTML_Element.Click: Exit For

是相同的

If MyHTML_Element.Type = "submit" Then 
    MyHTML_Element.Click
End If
Exit For

...这可能不是你想做的

“报告”似乎不是一个有效的元素类型，所以也许你应该发布一些 HTML。

于 2018-08-03T19:15:25.493 回答