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