ExcelからWebフォームに自動入力する方法3選【IE廃止後対応】

Sub WebフォームにSeleniumで自動入力()
    '--- SeleniumBasicを使ったWebフォーム自動入力 ---
    Dim driver As New Selenium.ChromeDriver
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long

    Set ws = ThisWorkbook.Sheets("入力データ")
    lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row

    '--- Chromeブラウザを起動してフォームページを開く ---
    driver.Start
    driver.Get "https://example.com/form"

    '--- Excelの各行データをフォームに入力 ---
    For i = 2 To lastRow
        '--- 名前フィールドに入力 ---
        driver.FindElementById("name").Clear
        driver.FindElementById("name").SendKeys ws.Cells(i, 1).Value

        '--- メールアドレスフィールドに入力 ---
        driver.FindElementById("email").Clear
        driver.FindElementById("email").SendKeys ws.Cells(i, 2).Value

        '--- 電話番号フィールドに入力 ---
        driver.FindElementById("phone").Clear
        driver.FindElementById("phone").SendKeys ws.Cells(i, 3).Value

        '--- 送信ボタンをクリック ---
        driver.FindElementById("submit-btn").Click

        '--- ページ遷移を待機（秒数は環境に応じて調整） ---
        driver.Wait 2000

        '--- フォームページに戻る（次のデータ入力のため） ---
        driver.Get "https://example.com/form"
        driver.Wait 1000
    Next i

    MsgBox "全データの入力が完了しました（" & lastRow - 1 & "件）"

    '--- ブラウザを閉じる ---
    driver.Quit
    Set driver = Nothing
End Sub

Sub フォーム送信まで自動化()
    Dim driver As New Selenium.ChromeDriver
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("入力データ")

    driver.Start
    driver.Get "https://example.com/form"
    driver.Wait 2000

    '--- テキスト入力 ---
    driver.FindElementById("company").SendKeys ws.Cells(2, 1).Value
    driver.FindElementById("name").SendKeys ws.Cells(2, 2).Value
    driver.FindElementById("email").SendKeys ws.Cells(2, 3).Value

    '--- ドロップダウンの選択 ---
    Dim selectElement As Selenium.WebElement
    Set selectElement = driver.FindElementById("category")
    selectElement.AsSelect.SelectByText ws.Cells(2, 4).Value

    '--- チェックボックスをクリック ---
    Dim chk As Selenium.WebElement
    Set chk = driver.FindElementById("agree")
    If Not chk.IsSelected Then
        chk.Click
    End If

    '--- 送信ボタンをクリック ---
    driver.FindElementById("submit-btn").Click

    '--- 送信完了を待機 ---
    driver.Wait 3000

    MsgBox "フォームの送信が完了しました"

    driver.Quit
    Set driver = Nothing
End Sub

Sub TinySeleniumVBAでフォーム入力()
    '--- TinySeleniumVBAを使ったWebフォーム自動入力 ---
    Dim driver As New WebDriver
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long

    Set ws = ThisWorkbook.Sheets("入力データ")
    lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row

    '--- ChromeDriverのパスを指定して起動 ---
    driver.Chrome ThisWorkbook.Path & "\chromedriver.exe"

    '--- フォームページを開く ---
    driver.Navigate "https://example.com/form"
    driver.Wait 2000

    For i = 2 To lastRow
        '--- CSSセレクタで要素を特定して入力 ---
        driver.FindElementByCSSSelector("#name").Clear
        driver.FindElementByCSSSelector("#name").SendKeys ws.Cells(i, 1).Value

        driver.FindElementByCSSSelector("#email").Clear
        driver.FindElementByCSSSelector("#email").SendKeys ws.Cells(i, 2).Value

        driver.FindElementByCSSSelector("#phone").Clear
        driver.FindElementByCSSSelector("#phone").SendKeys ws.Cells(i, 3).Value

        '--- 送信ボタンをクリック ---
        driver.FindElementByCSSSelector("#submit-btn").Click
        driver.Wait 2000

        '--- フォームページに戻る ---
        driver.Navigate "https://example.com/form"
        driver.Wait 1000
    Next i

    MsgBox "全データの入力が完了しました（" & lastRow - 1 & "件）"

    driver.Quit
End Sub

Sub TinySeleniumVBA_エラーハンドリング付き()
    Dim driver As New WebDriver
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim successCount As Long
    Dim errorCount As Long

    Set ws = ThisWorkbook.Sheets("入力データ")
    lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
    successCount = 0
    errorCount = 0

    driver.Chrome ThisWorkbook.Path & "\chromedriver.exe"

    For i = 2 To lastRow
        On Error GoTo ErrorHandler

        driver.Navigate "https://example.com/form"
        driver.Wait 2000

        driver.FindElementByCSSSelector("#name").Clear
        driver.FindElementByCSSSelector("#name").SendKeys ws.Cells(i, 1).Value

        driver.FindElementByCSSSelector("#email").Clear
        driver.FindElementByCSSSelector("#email").SendKeys ws.Cells(i, 2).Value

        driver.FindElementByCSSSelector("#submit-btn").Click
        driver.Wait 2000

        '--- 成功した行に「済」マークを記入 ---
        ws.Cells(i, 5).Value = "済"
        successCount = successCount + 1
        GoTo NextRow

ErrorHandler:
        '--- エラーが発生した行にエラー内容を記録 ---
        ws.Cells(i, 5).Value = "エラー: " & Err.Description
        errorCount = errorCount + 1
        Resume NextRow

NextRow:
    Next i

    On Error GoTo 0

    MsgBox "処理完了" & vbCrLf & _
           "成功: " & successCount & "件" & vbCrLf & _
           "エラー: " & errorCount & "件"

    driver.Quit
End Sub

Sub 顧客データ一括登録()
    Dim driver As New Selenium.ChromeDriver
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long

    Set ws = ThisWorkbook.Sheets("顧客リスト")
    lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row

    driver.Start

    For i = 2 To lastRow
        driver.Get "https://example.com/crm/register"
        driver.Wait 1500

        driver.FindElementById("last-name").SendKeys ws.Cells(i, 1).Value
        driver.FindElementById("first-name").SendKeys ws.Cells(i, 2).Value
        driver.FindElementById("email").SendKeys ws.Cells(i, 3).Value
        driver.FindElementById("phone").SendKeys ws.Cells(i, 4).Value
        driver.FindElementById("address").SendKeys ws.Cells(i, 5).Value

        driver.FindElementById("register-btn").Click
        driver.Wait 2000

        ws.Cells(i, 7).Value = "登録済"
    Next i

    driver.Quit
    MsgBox lastRow - 1 & "件の顧客データを登録しました"
End Sub

'--- ChromeDriverの自動更新チェック用コード ---
Sub Chromeバージョンをチェック()
    Dim driver As New Selenium.ChromeDriver

    On Error GoTo VersionError
    driver.Start
    MsgBox "ChromeDriverは正常に動作しています"
    driver.Quit
    Exit Sub

VersionError:
    MsgBox "ChromeDriverのバージョンエラーです。" & vbCrLf & _
           "Chromeのバージョンを確認し、対応するChromeDriverをダウンロードしてください。" & vbCrLf & _
           "エラー内容: " & Err.Description
End Sub

'--- 要素が見つからない場合の待機処理 ---
Sub 要素の待機処理サンプル()
    Dim driver As New Selenium.ChromeDriver
    Dim elm As Selenium.WebElement
    Dim retryCount As Long

    driver.Start
    driver.Get "https://example.com/form"

    '--- 最大10秒間、要素が見つかるまでリトライ ---
    retryCount = 0
    Do
        On Error Resume Next
        Set elm = driver.FindElementById("name")
        On Error GoTo 0

        If Not elm Is Nothing Then Exit Do

        driver.Wait 1000  '--- 1秒待機してリトライ ---
        retryCount = retryCount + 1
    Loop Until retryCount >= 10

    If elm Is Nothing Then
        MsgBox "要素が見つかりませんでした。ページのHTMLを確認してください。"
    Else
        elm.SendKeys "テストデータ"
    End If

    driver.Quit
End Sub

'--- タイムアウト対策: 暗黙的待機の設定 ---
Sub タイムアウト対策サンプル()
    Dim driver As New Selenium.ChromeDriver

    driver.Start

    '--- ページ読み込みの最大待機時間を30秒に設定 ---
    driver.Timeouts.PageLoad = 30000

    '--- 要素検索の暗黙的待機を10秒に設定 ---
    driver.Timeouts.ImplicitWait = 10000

    driver.Get "https://example.com/form"

    '--- 以降の処理でタイムアウトしにくくなる ---
    driver.FindElementById("name").SendKeys "テスト"

    driver.Quit
End Sub