Question

我正试图在我的sub的开头放一个部分来做两件事。 1.确定我是否需要登录。 2.输入登录信息。

无论是登录页面还是登录页面，URL都是相同的。我注意到在登录页面上有一个登录框元素但没有搜索框。在登录页面上，反之亦然。注意到这一点，我尝试设置一个If命令，如果我没有看到搜索框，则输入登录信息。

Dim myElem as variant
Set myElem = IE.document.getElementById("ctl05_TextBoxSCN")
If (myElem = Null) Then
IE.document.getElementById("txtUsername").Value = Range("h1")
IE.document.getElementById("txtPassword").Value = Range("J1")
Application.Wait (Now + TimeValue("0:00:01"))
SendKeys "{Enter}", True
End If

但我一直收到错误说：对象变量或未设置块变量

注意：单元格h1是我的用户名，J1是我的密码。如果我已登录，则CT105_TextBoxSCN是显示的文本框的ID。

Answer 1

这对我有用：

Dim myElem as Object
Set myElem = IE.document.getElementById("ctl05_TextBoxSCN")
If myElem Is Nothing Then
    'element not found
Else
    'element found
End If

VBA登录网页（确定是否需要）

1 个答案: