Excel 在抓取网页时,没有可输入用户名或密码的可见标记

Excel 在抓取网页时,没有可输入用户名或密码的可见标记,excel,vba,web-scraping,Excel,Vba,Web Scraping,我一直试图在这个网页上输入我的用户名和密码,但我很难看到如何做到这一点。我研究过li标签,我尝试过循环使用forID和各种标签,但我能做的就是更改“username:”和“password:”两个词: 如果能有一些能把我推向正确方向的指针,我将不胜感激 Sub Coles() Dim IE As New InternetExplorer Dim ele As Object IE.Visible = True IE.Navigate ("https://www

我一直试图在这个网页上输入我的用户名和密码,但我很难看到如何做到这一点。我研究过
li
标签,我尝试过循环使用forID和各种标签,但我能做的就是更改“username:”和“password:”两个词:

如果能有一些能把我推向正确方向的指针,我将不胜感激

Sub Coles()


    Dim IE As New InternetExplorer
    Dim ele As Object

    IE.Visible = True
    IE.Navigate ("https://www.supplierportal.coles.com.au/wps/portal")

    Do
    DoEvents
    Loop Until IE.ReadyState = 4

    For Each ele In IE.Document.getElementsByTagName("A")
        If InStr(ele.innerText, "Login") > 0 Then
            Debug.Print ele
            ele.Click
            Exit For
        End If
    Next

    ' code to enter username

    ' code to enter password

End Sub
这对我有用

Sub Sample()
    Dim IE As Object
    Dim url As String

    url = "https://www.supplierportal.coles.com.au/wps/myportal/!ut/p/z1/04_Sj9CPykssy0xPLMnMz0vMAfIjo8zivbycnS19LE0NDSz8DQw8PYIDjMzdzI2CLc31wwkpiAJKG-AAjgZA_VFgJThNMIQqwGNGQW6EQaajoiIAOpTxFw!!/dz/d5/L0lDU1EvUU5RSy9ZTFlB/"
    Set IE = CreateObject("InternetExplorer.Application")

    IE.Visible = True
    IE.Navigate url

    Do: DoEvents: Loop Until IE.ReadyState = 4

    IE.document.getElementById("Ecom_User_ID").Value = "Sid"
    IE.document.getElementById("Ecom_Password").Value = "MyPassword"
End Sub
编辑:

我正在回答你的下一个问题“如何单击登录按钮?”

因为只有一个表单,这就可以了

IE.document.forms(0).submit

工作完美。此外,我也很感激编辑与登录按钮代码。我会自己尝试,如果失败,我会在这里问。。老实说,我确实做了一点寻找它的努力。。衷心感谢您的帮助。我刚刚发现这可能会对未来的观众有所帮助