vba - 无法使用 VBA 登录到我的确实帐户

Question

在线的:

Set ieElement = objIE.Document.getElementsByClassName("sg-btn sg-btn-primary btn-signin")

ieElement.Click下面的代码会引发一个名为“对象不支持此属性或方法”的错误。

Sub login()
    Dim objIE As InternetExplorer
    Dim uid As String
    Dim pwd As String
    Dim rng As Range
    Dim sh As Worksheet
    Dim ieElement As Object

    Set sh = Sheets("Indeed Resume Download")
    Set rng = sh.Range("A2")

    On Error Resume Next
    objIE.Quit
    Set objIE = Nothing
    On Error GoTo 0

    uid = rng.Value
    pwd = rng.Offset(0, 1).Value

    Dim j As Long

    Set objIE = New InternetExplorer 'Initialize internet object
    objIE.Navigate "https://secure.indeed.com/account/loginservice=my&hl=en_IN&co=IN&continue=https%3A%2F%2Fwww.indeed.co.in%2F"
    objIE.Visible = True

    objIE.Document.all.signin_email.Value = UserID    
    objIE.Document.all.signin_password.Value = Password

    Set ieElement = objIE.Document.getElementsByClassName("sg-btn sg-btn-primary btn-signin")
    ieElement.Click

    For j = 2 To sh.Cells(Rows.Count, 27).End(xlUp).Row

    Set objIE = New InternetExplorer
    With objIE
    .Navigate sh.Range("CA" & j).Value

    Do While .Busy = True
        DoEvents
    Loop

    Do While .Busy: Loop
    Do While .ReadyState <> READYSTATE_COMPLETE: Loop
    Do While .Busy: Loop

    End With

    Do While objIE.Busy = True
        DoEvents
    Loop

    Next j

    Set objIE = Nothing

End Sub

Answer 1

当您使用 getElementsByClassName ，你必须确定你想要的类名，因为可能有很多。如果您的类名是唯一的(在这种情况下它可能是唯一的)，您可以简单地在末尾添加 (0)。如果要搜索所有类名，可以使用 For Each...Next陈述。

注意这些之间的不同:getElementByID()和 getElementsByClassName() ? Elements 与 ClassName 一起使用时是复数，因此您需要指定您想要该类的哪个元素。

尝试用这个替换你的行:

Set ieElement = objIE.Document.getElementsByClassName("sg-btn sg-btn-primary btn-signin")(0)

您当前使用的方法将按照以下方式工作:

Dim ieElements, ieElemBtn, ieElement
Set ieElements = objIE.Document.getElementsByClassName("sg-btn sg-btn-primary btn-signin")
For Each ieElement in ieElements
    If ieElement ..... Then 
        Set ieElemBtn = ieElement
        Exit For
    End If
Next ieElement 
ieElemBtn.Click