VBA IE操作　getElementsByName

Sub ボタン2_Click()
'ブラウザのオープン
    Dim objIE As InternetExplorer
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True

'IEでWebページを開く

    objIE.navigate "https://j***.kitora.****.co.jp/uaj/uaj4/uaj401cg01.asp"



    Call IEWait(objIE)                          '自作関数: IE待機用
    Call WaitFor(1)                             '自作関数: WaitFor(t):t秒待機




'検索情報の自動入力]
    Dim AccountID, CompanyCode As String
    AccountID = "*******"
    CompanyCode = "*****"
    PW = "*******"

    objIE.document.getElementsByName("ACCOUNTUID_TEMP")(0).Value = AccountID  
    objIE.document.getElementsByName("CompanyCODE")(0).Value = CompanyCode
    objIE.document.getElementsByName("PASSWORD")(0).Value = PW
    objIE.document.getElementsByName("SUBMIT")(0).Click 

    Call WaitFor(2)                             '自作関数: WaitFor(t):t秒待機

   objIE.document.getElementsByName("btnDown")(0).Click



End Sub

Sub IEWait(ByRef objIE As Object)
    Do While objIE.Busy Or objIE.readyState <> 4
        DoEvents
    Loop
End Sub
'
't[sec]待機させる関数
Sub WaitFor(ByVal second As Integer)
    Dim futuretime As Date
    futuretime = DateAdd("s", second, Now)
    While Now < futuretime
        DoEvents
    Wend

End Sub

Dim loginBtns As IHTMLElementCollection
Set loginBtns = htmlDoc.getElementsByName("logIn")

Dim loginBtn As IHTMLElement
Set loginBtn = loginBtns(0) 'コレクションの1番目の要素を取得

loginBtn.Click