我正在创建网页抓取代码登录到网站,并输入一些数据。在到达实际页面之前,需要登录表单。我的代码在这里工作,首先登录。但是,如果您已经登录,网站不会要求您登录。有没有办法检查是否需要登录?
下面是我的代码:
Sub ChechAutomate()
Dim ie As New InternetExplorer, url As String, ws As Worksheet
Set ws = ThisWorkbook.Sheets("Other Data")
url = "https://infra.com/"
With ie
.Visible = True
.Navigate2 url
While .Busy Or .ReadyState < 4: DoEvents: Wend
With .Document
.querySelector("[name=userName]").Value = "username"
.querySelector("[name=password]").Value = "password123"
.querySelector("[type=submit]").Click
'While .Busy Or .ReadyState < 4: DoEvents: Wend
.querySelector("[id=companySearchKeyData]").Value = ws.Range("T24").Value
.querySelector("[type=submit]").Click
End With
End With
End Sub
发布于 2019-05-28 02:29:12
最简单的检查是使用querySelectorAll
返回一个nodeList并检查它的长度。在With .document
内部...
If .querySelectorAll("#login-bis-id-btn").length > 0 Then
'present ....do login page stuff
Else
'do other stuff
End If
发布于 2019-05-28 00:21:31
您可以创建一个条件语句来检查您所在的页面。在这种情况下,以下逻辑可能会有所帮助:
Sub ChechAutomate()
Dim IE As New InternetExplorer, url As String, ws As Worksheet
Dim Html As HTMLDocument, idCheck As Object
Set ws = ThisWorkbook.Sheets("Other Data")
url = "https://infra.com/"
With IE
.Visible = True
.Navigate2 url
While .Busy Or .readyState < 4: DoEvents: Wend
Set Html = .document
End With
Set idCheck = Html.querySelector("#login-bis-id-btn")
If Not idCheck Is Nothing Then
Html.querySelector("[name=userName]").Value = "username"
Html.querySelector("[name=password]").Value = "password123"
Html.querySelector("[type=submit]").Click
While IE.Busy Or IE.readyState < 4: DoEvents: Wend
Else:
Debug.Print "You are already logged-in"
End If
'I don't know the role of the following two lines, though
Html.querySelector("[id=companySearchKeyData]").Value = ws.Range("T24").Value
Html.querySelector("[type=submit]").Click
End Sub
https://stackoverflow.com/questions/56328773
复制相似问题