VBAのIE制御

Sub facebookLogIn(objIE As InternetExplorer, _
                facebookId As String, _
                facebookPass As String, _
                Optional ieType As String = "ieView")

    'IEでfacebook画面を起動
    If ieType = "ieView" Then
      Call ieView(objIE, "https://www.facebook.com/")
    ElseIf ieType = "ieNavi" Then
      Call ieNavi(objIE, "https://www.facebook.com/")
    End If
    
    'ログアウト処理
    If tagCheck(objIE, "input", "ログアウト") = True Then
        Call tagClick(objIE, "input", "ログアウト")
    End If
    
    'facebookID自動入力
    Call formText(objIE, "email", facebookId)

    'facebookログインパスワード自動入力
    Call formText(objIE, "pass", facebookPass)
    
    'ログインボタンをクリック
    Call tagClick(objIE, "input", "ログイン")

End Sub

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

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

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

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

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

目次