VBAを使用してInternet Explorerのサイトにログインする

Question

私はこの質問が100万回のサイトで何百万回も尋ねられてきたことを知っていますが、どうやってそれを行うのか分かりません。私はVBAを使ってインターネットエクスプローラサイトを開き、そのサイトにログインしようとしています。私は自分のコードのHTML部分に苦労しています。 HTMLコードには「名前」属性はありません。これが私を捨てています。チェック

参考： Microsoftインターネットコントロール、 Microsoftスクリプトコントロール1.0、ログインテキストボックスの のMicrosoft HTMLオブジェクトライブラリ

HTML：パスワードテキストボックスの

<input class="ui-autocomplete-input" id="BIA_Login" autofocus="" type="text" autocomplete="off"> 

はHTML：

<input class="ui-autocomplete-input" id="BIA_Pass" type="password" autocomplete="off"> 



Private Sub CommandButton21_Click() 

    Const cURL = "xxxxxxxxxxx.com" 
    Const cUsername = "xxxxxxx" 
    Const cPassword = "xxxxxxx" 

    Dim IE As InternetExplorer 
    Dim doc As HTMLDocument 
    Dim LoginForm As HTMLFormElement 
    Dim UserNameInputBox As HTMLInputElement 
    Dim PasswordInputBox As HTMLInputElement 
    Dim SignInButton As HTMLInputButtonElement 
    Dim HTMLelement As IHTMLElement 

    Set IE = New InternetExplorer 

    IE.Visible = True 
    IE.navigate cURL 

    Do While IE.readyState <> READYSTATE_COMPLETE Or IE.busy: DoEvents: Loop 

    Set doc = IE.document 

    Set LoginForm = doc.forms(0) 

    Set UserNameInputBox = LoginForm.elements("BIA_Login") 
    UserNameInputBox.Value = cUsername 

    Set PasswordInputBox = LoginForm.elements("BIA_Pass") 
    PasswordInputBox.Value = cPassword 

Answer 1

getElementByIDを使用して、ドキュメントに対して直接使用してください要素。

Set UserNameInputBox = doc.getElementById("BIA_Login") 
UserNameInputBox.Value = cUsername 

Set PasswordInputBox = doc.getElementById("BIA_Pass") 
PasswordInputBox.Value = cPassword