VBAでIE操作に役立つアメブロ自動ログイン「amebloLogIn」

VBAのIE(InternetExplorer)制御に便利なサブルーチンを紹介しています。

「amebloLogInサブルーチン」の詳しい説明は以下よりご確認ください。
アメブロに自動ログイン（ログアウト）「amebloLogIn」の解説

Sub amebloLogIn(objIE As InternetExplorer, _
                amebloId As String, _
                amebloPass As String, _
                Optional ieType As String = "ieView")
    
    'IEでアメブロログアウト画面を起動
    If ieType = "ieView" Then
      Call ieView(objIE, "http://www.ameba.jp/logout.do")
    ElseIf ieType = "ieNavi" Then
      Call ieNavi(objIE, "http://www.ameba.jp/logout.do")
    End If

    'IEでアメブロログイン画面を起動
    Call ieNavi(objIE, "http://www.ameba.jp/")
    
    'アメーバーID自動入力
    Call formText(objIE, "amebaId", amebloId)

    'アメブロログインパスワード自動入力
    Call formText(objIE, "password", amebloPass)
    
    'ログインボタンをクリック
    Call tagClick(objIE, "input", "アメーバIDでログイン")

End Sub
引数名データ型内容値の事例初期値省略
objIEInternetExplorerIEオブジェクトobjIE,objIE2×
amebloIdStringアメブロのログインID文字列"★アメブロID★"×
amebloPassStringアメブロのログインパスワード文字列"★アメブロPASS★"×
ieTypeStringIEオブジェクトの状態文字列"ieView","ieNavi""ieView"●
amebloLogIn("IEオブジェクト","アメブロのログインID文字列","アメブロのログインパスワード文字列","IEオブジェクトの状態文字列[省略可]")

「objIE」「amebloId」「amebloPass」は必須項目で、「objIE」は複数ページを表示させる場合に「objIE」「objIE2」と複数オブジェクトを生成します。
「amebloId」にはアメブロのログインIDを、「amebloPass」にはアメブロのログインパスワードを設定します。

次に「ieType」ですが、こちらはIEオブジェクトの状態によって、処理を分岐させるものです。
新規でIEオブジェクトを作成する場合は「ieView」を指定し、「ieViewサブルーチン」で処理します。
既存のIEオブジェクトがある場合は「ieNavi」を指定し、「ieNaviサブルーチン」で処理させます。
こちらは初期設定が「ieView」で設定させており、Optionalを付けて宣言した引数なので、省略することができます。