在安全站点上使用 vba 时的 Internet 抓取问题

如何解决在安全站点上使用 vba 时的 Internet 抓取问题

我正在尝试使 IE 自动化以从安全站点提取数据，但每次我都收到相同的错误消息：“需要对象”

调试器指向行 -HTMLinput.Value = "test"

之前一切正常。我不知道有什么问题。我已经验证了我的 ID 以确保没有错误。

Sub Brows()

    Dim IE As New SHDocVw.InternetExplorerMedium
    Dim Policy As Object
    Dim certificate As Object
    Dim HTMLDoc As MSHTML.HTMLDocument
    Dim HTMLinput As MSHTML.IHTMLElement

    IE.Visible = True
    IE.navigate "secure website address"
    Application.Wait Now + TimeValue("00:00:02")

    Do While IE.ReadyState <> READYSTATE_COMPLETE
    Loop

    Set HTMLDoc = IE.Document
    Set HTMLinput = HTMLDoc.getElementById("input ID")
    HTMLinput.Value = "test"
End Sub

解决方法

如何使用 Excel 和 VBA 登录网站。

Dim HTMLDoc As HTMLDocument
Dim oBrowser As InternetExplorer
Sub Login_2_Website()

Dim oHTML_Element As IHTMLElement
Dim sURL As String

On Error GoTo Err_Clear
sURL = "https://www.google.com/accounts/Login"
Set oBrowser = New InternetExplorer
oBrowser.Silent = True
oBrowser.timeout = 60
oBrowser.navigate sURL
oBrowser.Visible = True

Do
' Wait till the Browser is loaded
Loop Until oBrowser.readyState = READYSTATE_COMPLETE

Set HTMLDoc = oBrowser.Document

HTMLDoc.all.Email.Value = "[e-mail]"
HTMLDoc.all.passwd.Value = "*****"

For Each oHTML_Element In HTMLDoc.getElementsByTagName("input")
If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For
Next

' oBrowser.Refresh ' Refresh If Needed
Err_Clear:
If Err <> 0 Then
Debug.Assert Err = 0
Err.Clear
Resume Next
End If
End Sub

该计划需要参考以下内容：

1 Microsoft Internet Controls

2. Microsoft HTML Object Library

https://reactjs.org/docs/hooks-reference.html#usememo