从数据库平台抓取 Web 数据 (VBA - HTML)

Question

我不擅长开发，但我需要为一个小型自动化项目完成这项任务。 情况是我必须登录到数据库并打印出一些数据到excel，这是为了检查 数据是否被删除。

我想从代码中得到什么？

通过单击 Excel 中的宏按钮：

• 登录网站 [x]
• 搜索给定的数字 [x]
• 在 excel 中打印回元素 [] 的状态
• 从第 2 步开始重复，直到 A 列中出现数字（哪个循环？）[]

https://imgur.com/u4IhpW7

正如您在 Excel 屏幕截图中看到的那样，单元格 A9 是数字列表的开始位置。 在单元格 B9 下，我希望根据左侧的每个数字打印出我的数据。

所以我已经成功登录并搜索了第一个号码。

这里是整个代码：

Sub Login()

    Dim ie As New SHDocVw.InternetExplorer
    Dim HTMLDoc As MSHTML.HTMLDocument
    Dim HTMLInput As MSHTML.IHTMLElement

    ie.Visible = True

    ie.Navigate Sheet1.Range("B2").Text

    Do While ie.ReadyState <> READYSTATE_COMPLETE
    DoEvents
    Loop

    Set HTMLDoc = ie.Document

'Setting Username to a specific value
    Set HTMLInput = HTMLDoc.getElementById("ctl00_WebPartManager1_gwpLogin1_Login1_UserName")

    HTMLInput.Value = Sheet1.Range("B3")

'Setting Password to a specific value
    Set HTMLInput = HTMLDoc.getElementById("ctl00_WebPartManager1_gwpLogin1_Login1_Password")

    HTMLInput.Value = Sheet1.Range("B4")
'Click to login
    Set HTMLInput = HTMLDoc.getElementById("ctl00_WebPartManager1_gwpLogin1_Login1_LoginButton")

    HTMLInput.Click

    MsgBox "Login Succesfull" & vbCrLf & "Press Ok to check LIAB"

    While ie.Busy
        DoEvents
    Wend

    Set HTMLInput = HTMLDoc.getElementById("ctl00_SearchSection_ObjectSearch_txtEMail")
    HTMLInput.Value = Null

    Set HTMLInput = HTMLDoc.getElementById("ctl00_SearchSection_ObjectSearch_txtCustomerID")
    HTMLInput.Value = Sheet1.Range("A10")

    Set HTMLInput = HTMLDoc.getElementById("ctl00_SearchSection_ObjectSearch_SearchButton")
    HTMLInput.Click

    While ie.Busy
        DoEvents
    Wend
'On Error Resume Next
End Sub

第二部分可能不正确，但这就是我设法搜索给定数字的方式。 我必须弄清楚如何循环，直到从 A9 开始的 A 列中出现数字。

这就是网站的样子

https://imgur.com/4GJQ4oF

所以我需要从 B9 开始在 B 列中打印的是“状态”的内部文本。 还有一个条件要满足，如果状态的内部文本是“已删除”但“名称”的内部文本不为空，则在 B 列中打印错误。

所以有问题的表有没有 ID 的标签，所以我不知道如何操作它们。 另一件要提的是，如果字段为空，则 innerText 显示为：

 

在此先感谢您提供的任何帮助以及阅读所有这些内容的关注。

您好，

阿莱西奥

更新更改：

'Declared the new variable
    Dim iC as Integer
'........All the login part here........'
    MsgBox "Login Succesfull" & vbCrLf & "Press Ok to check LIAB"

    While ie.Busy
        DoEvents
    Wend
For iC = 10 To 29
'Now able to loop through a specific amount of cells, still not dynamic, still no idea how to pull the data from the td tags

    Set HTMLInput = HTMLDoc.getElementById("ctl00_SearchSection_ObjectSearch_txtCustomerID")
    HTMLInput.Value = Sheet1.Range("A" & iC)

    Set HTMLInput = HTMLDoc.getElementById("ctl00_SearchSection_ObjectSearch_SearchButton")
    HTMLInput.Click

    While ie.Busy
        DoEvents
    Wend
   Next
'On Error Resume Next
End Sub'

Answer 1

由于您只需要循环方面的帮助，我只是在循环中和循环周围发布代码。我还没有测试过这段代码，但希望它能工作

Dim iC As Long
Dim iLastRow As Long: iLastRow = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
Dim HTMLInput As MSHTML.IHTMLElement
Dim oSearchButton As MSHTML.IHTMLElement: Set oSearchButton = HTMLDoc.getElementById("ctl00_SearchSection_ObjectSearch_SearchButton")

' Loop through all avaiable customer IDs
For iC = 10 To iLastRow

    ' Set Customer ID
    Set HTMLInput = HTMLDoc.getElementById("ctl00_SearchSection_ObjectSearch_txtCustomerID")
    HTMLInput.Value = Sheet1.Range("A" & iC)

    ' Press Search button
    oSearchButton.Click

    ' Wait for browser to complete task
    While ie.Busy
        DoEvents
    Wend

    ' Capture Status in colmn B
    Set HTMLInput = HTMLDoc.getElementById("ctl00_SearchSection_ObjectSearch_txtCustomerID")    ' Change element ID to point to status element
    Sheet1.Range("B" & iC) = HTMLInput.Value

Next

提示：如果元素 ID 不变，您可以在 For 循环之外声明您的元素（客户 ID 元素和状态元素），然后在循环中使用它们，就像我用oSearchButton 元素做了