VBAのIE制御

#If VBA7 Then
　Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
#Else
　Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
#End If

Sub ieBasic2(urlName As String, _
            basicId As String, _
            basicPass As String)

    Dim objIE As InternetExplorer
    
    Set objIE = CreateObject("InternetExplorer.Application")
    
    objIE.Visible = True
   
    objIE.navigate urlName

　　'5秒停止
　　Sleep 5000
        
　　SendKeys basicId
　　SendKeys "{TAB}"
　　SendKeys basicPass
　　SendKeys "{ENTER}"

　　'IEが完全表示されるまで待機
　　Call ieCheck(objIE)

　　'「NumLock」キーをON
　　Call numLockOn

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

Basic認証自動ログインのプロシージャ

Sub sample()

    Dim objIE As InternetExplorer

    'Basic認証ページへアクセスする
    Call ieBasic2("http://www.vba-ie.net/basic/test3.html", "user", "123456")

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

こちらは、全て必須項目となります。
「urlName」には、表示させたいBasic認証URLの文字列を設定します。
「basicId」にはBasic認証のユーザー名文字列を「basicPass」にはBasic認証のパスワード文字列を設定します。

↑VBAのIE操作で分からない事があればこちらの掲示板よりご質問ください。

↑こちらはVBAをマスターできるよう初心者向けのエクセルVBA入門コンテンツになります。

目次