実際にラインで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()の違いに注目してください。要素は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