VBAでIE操作「SendKeys(キーボード入力)で無理やり突破する」

IEでテキストボックスやポップアップがどうしても入力できない

Excel VBAマクロでIEを自動制御する際、以下のように通常のIE制御では処理が突破できないケースがあります

Public Sub sample_ie_sendkeys()
    Dim objIE As InternetExplorer
    Dim sURL As String: sURL = "https://vba-create.jp"
    
    '■InternetExplorerを起動
    Set objIE = New InternetExplorer
    objIE.Visible = True
    
    '■Basic認証画面を自動ログインする
    objIE.navigate sURL
    
    Application.Wait Now + TimeValue("0:00:02")
    
    objIE.Document.getElementsByClassName("search-edit")(0).Focus
    '■SendKeysでポップアップに対してキーボード操作を行う
    With CreateObject("Wscript.Shell")
        SendKeys "IE操作"
        SendKeys "{ENTER}"
    End With
End Sub

IEでBasic認証をSendKeysでログインするサンプルコード

'■Basic認証をSendKeysでログインするサンプル
Public Sub sample_ie_basic_sendkeys()
    Dim objIE As InternetExplorer
    Dim sId As String, sPass As String, sIdPass As String
    Dim sURL As String: sURL = "https://vba-create.jp" '■実際にはBasic認証があるサイトURLを入れる
    
    '■IDとPassword
    sId = "testid"
    sPass = "pass1234"
    
    '■InternetExplorerを起動
    Set objIE = New InternetExplorer
    objIE.Visible = True
    
    '■Basic認証画面を自動ログインする
    objIE.navigate sURL
    Call_IE_WaitTime
    
    '■SendKeysでポップアップに対してキーボード操作を行う
    With CreateObject("Wscript.Shell")
        SendKeys sId
        SendKeys "{TAB}"
        SendKeys sPass
        SendKeys "{ENTER}"
    End With
End Sub

注意点

• こちらのコードだけでは動作しません。
  下記の読み込み待ちのパーツ化したコードが必要です。
  VBAでIE操作「ブラウザの読込待ち」処理をパーツ化する【エクセルマクロ】
• SendKeysはキーボードの操作をするだけなので、不安定です。
  あくまでも最終手段として、無理やり突破する場合にのみ使用するのが望ましいです。