Excel VBAを活用したオンライン契約・申し込みフォームの自動入力術

オンラインでの契約や申し込みフォームの入力は、ビジネスシーンで非常に一般的になっています。しかし、同じ内容の入力を繰り返すことは非効率的であり、ミスの原因となり得ます。そこで、Excel VBAを使用して、オンライン契約や申し込みフォームの情報を自動的に入力する方法を紹介します。

Excel VBAの基本

Excel VBA（Visual Basic for Applications）は、Microsoft Excelに組み込まれたプログラミング言語です。これを用いると、単純作業の自動化だけでなく、高度なデータ分析やレポート作成も可能になります。

そもそも、どこにVBAコードを書いて、どう実行すれば良いのか分からない場合は、以下の記事をご参照ください。

Excel VBAとは

Excel VBA（Visual Basic for Applications）は、Microsoft Excelの中で動作するプログラミング言語です。これを使用することで、Excelの操作を自動化したり、カスタマイズした機能を追加したりすることができます。

オンラインフォームへの自動入力の基本

Excel VBAを使用することで、Excelに保存されている情報を基に、ウェブブラウザ上の入力フォームに自動でデータを入力することができます。


Sub AutoFillForm()
    Dim IE As Object
    Dim doc As Object
    
    ' Internet Explorerを起動
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.navigate "http://example.com/form" 'フォームのURL
    
    ' ページの読み込みを待つ
    Do While IE.Busy
        DoEvents
    Loop

    Set doc = IE.document
    
    ' フォームの各要素に値を入力
    doc.getElementById("name").Value = Sheets("Sheet1").Range("A1").Value
    doc.getElementById("email").Value = Sheets("Sheet1").Range("B1").Value

    ' 送信ボタンをクリック
    doc.getElementById("submit").Click
End Sub

Sub AutoFillForm()

Dim IE As Object

Dim doc As Object

' Internet Explorerを起動

Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True

IE.navigate "http://example.com/form" 'フォームのURL

' ページの読み込みを待つ

Do While IE.Busy

DoEvents

Loop

Set doc = IE.document

' フォームの各要素に値を入力

doc.getElementById("name").Value = Sheets("Sheet1").Range("A1").Value

doc.getElementById("email").Value = Sheets("Sheet1").Range("B1").Value

' 送信ボタンをクリック

doc.getElementById("submit").Click

End Sub

コードの解説

上記のコードは、Excelのシートに保存された情報（名前とメールアドレス）をオンラインフォームに自動入力する例です。

1. Internet Explorerを起動し、指定のURLにアクセスします。
2. ページの読み込みが完了するまで待ちます。
3. Excelのデータを取得し、それをウェブフォームに入力します。
4. 最後に、送信ボタンをクリックして、フォームを送信します。

応用例

1. 複数のデータを一括入力

一度に複数のデータをオンラインフォームに入力する場合は、ループ処理を使用します。


Sub BatchInput()
    Dim IE As Object
    Dim doc As Object
    Dim i As Integer

    ' Internet Explorerを起動
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.navigate "http://example.com/form" 'フォームのURL
    
    ' ページの読み込みを待つ
    Do While IE.Busy
        DoEvents
    Loop

    Set doc = IE.document

    For i = 1 To 10 '10行分のデータを入力
        ' フォームの各要素に値を入力
        doc.getElementById("name").Value = Sheets("Sheet1").Cells(i, 1).Value
        doc.getElementById("email").Value = Sheets("Sheet1").Cells(i, 2).Value
        ' 送信ボタンをクリック
        doc.getElementById("submit").Click

        ' 次のデータ入力のためにページを再読み込み
        IE.navigate "http://example.com/form"
        Do While IE.Busy
            DoEvents
        Loop
    Next i
End Sub

Sub BatchInput()

Dim IE As Object

Dim doc As Object

Dim i As Integer

' Internet Explorerを起動

Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True

IE.navigate "http://example.com/form" 'フォームのURL

' ページの読み込みを待つ

Do While IE.Busy

DoEvents

Loop

Set doc = IE.document

For i = 1 To 10 '10行分のデータを入力

' フォームの各要素に値を入力

doc.getElementById("name").Value = Sheets("Sheet1").Cells(i, 1).Value

doc.getElementById("email").Value = Sheets("Sheet1").Cells(i, 2).Value

' 送信ボタンをクリック

doc.getElementById("submit").Click

' 次のデータ入力のためにページを再読み込み

IE.navigate "http://example.com/form"

Do While IE.Busy

DoEvents

Loop

Next i

End Sub

2. フォームの項目に応じた条件分岐

フォームの項目が変わることを想定し、条件分岐を使って処理を変更する方法です。


Sub ConditionalInput()
    Dim IE As Object
    Dim doc As Object

    ' Internet Explorerを起動
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.navigate "http://example.com/form" 'フォームのURL

    ' ページの読み込みを待つ
    Do While IE.Busy
        DoEvents
    Loop

    Set doc = IE.document

    If Not doc.getElementById("gender") Is Nothing Then
        doc.getElementById("gender").Value = Sheets("Sheet1").Range("C1").Value
    End If

    doc.getElementById("name").Value = Sheets("Sheet1").Range("A1").Value
    doc.getElementById("email").Value = Sheets("Sheet1").Range("B1").Value
    doc.getElementById("submit").Click
End Sub

Sub ConditionalInput()

Dim IE As Object

Dim doc As Object

' Internet Explorerを起動

Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True

IE.navigate "http://example.com/form" 'フォームのURL

' ページの読み込みを待つ

Do While IE.Busy

DoEvents

Loop

Set doc = IE.document

If Not doc.getElementById("gender") Is Nothing Then

doc.getElementById("gender").Value = Sheets("Sheet1").Range("C1").Value

End If

doc.getElementById("name").Value = Sheets("Sheet1").Range("A1").Value

doc.getElementById("email").Value = Sheets("Sheet1").Range("B1").Value

doc.getElementById("submit").Click

End Sub

3. セキュリティ対策を伴う情報の入力

パスワードなどのセキュリティを要する情報を入力する際に、特定の暗号化方法やトークンを使用して情報を送信する方法です。この方法は、安全性を高めるための一例として記述します。


Sub SecureInput()
    Dim IE As Object
    Dim doc As Object
    Dim encrypted

Password As String

    ' Password Encryption Function
    encryptedPassword = EncryptPassword(Sheets("Sheet1").Range("D1").Value)

    ' Internet Explorerを起動
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.navigate "http://example.com/form" 'フォームのURL

    ' ページの読み込みを待つ
    Do While IE.Busy
        DoEvents
    Loop

    Set doc = IE.document

    doc.getElementById("name").Value = Sheets("Sheet1").Range("A1").Value
    doc.getElementById("email").Value = Sheets("Sheet1").Range("B1").Value
    doc.getElementById("password").Value = encryptedPassword
    doc.getElementById("submit").Click
End Sub

Function EncryptPassword(password As String) As String
    ' This is just a sample encryption method. 
    EncryptPassword = Base64Encode(password)
End Function

Sub SecureInput()

Dim IE As Object

Dim doc As Object

Dim encrypted

Password As String

' Password Encryption Function

encryptedPassword = EncryptPassword(Sheets("Sheet1").Range("D1").Value)

' Internet Explorerを起動

Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True

IE.navigate "http://example.com/form" 'フォームのURL

' ページの読み込みを待つ

Do While IE.Busy

DoEvents

Loop

Set doc = IE.document

doc.getElementById("name").Value = Sheets("Sheet1").Range("A1").Value

doc.getElementById("email").Value = Sheets("Sheet1").Range("B1").Value

doc.getElementById("password").Value = encryptedPassword

doc.getElementById("submit").Click

End Sub

Function EncryptPassword(password As String) As String

' This is just a sample encryption method.

EncryptPassword = Base64Encode(password)

End Function

まとめ

Excel VBAを使用することで、オンラインの契約や申し込みフォームへの情報入力を効率化することができます。しかし、自動入力を行う際は、ウェブサイトのセキュリティポリシーや利用規約を十分に確認し、適切に利用することが重要です。

VBAも良いけどパワークエリも良い

VBAの解説をしてきましたが、VBAは正直煩雑でメンテナンス性が悪いです。最近はモダンExcelと呼ばれるパワークエリやパワーピボットへのシフトが進んできています。本サイトでもパワークエリの特集をしており、サンプルデータを含む全11回の学習コンテンツでパワークエリを習得することができます。

クリックするとパワークエリの全11講座が表示されます。

パワーピボットの記事はありません。興味がある場合は、書籍で学んでみてください

『Excel パワークエリ』+『Excelパワーピボット』+『Excel パワーピボット DAX編』-Excel自動化強化専門書- 3冊セット

created by Rinker

SHOEI

¥8,514 (2023/09/28 13:10:33時点 Amazon調べ-詳細)

Excel VBAを活用したオンライン契約・申し込みフォームの自動入力術

Excel VBAの基本

Excel VBAとは

オンラインフォームへの自動入力の基本

コードの解説

応用例

1. 複数のデータを一括入力

2. フォームの項目に応じた条件分岐

3. セキュリティ対策を伴う情報の入力

まとめ

VBAも良いけどパワークエリも良い

【初心者向け】パワークエリ入門：ETLツールを使ってエクセルデータを簡単に整形・統合しよう！(1/11)

【実践ガイド】パワークエリでデータ収集：Excel、CSV、PDF、Webデータを簡単に取り込む方法をマスターしよう！(2/11)

【総力特集】パワークエリで列操作をマスター：選択、変更、移動、削除、結合、分割の詳細解説＆実践テクニック！(3/11)

【徹底解説】パワークエリで行操作をマスター！フィルター・保持・削除テクニックと練習用エクセルで実践学習(4/11)

パワークエリでデータクレンジング: 文字列結合、0埋め、テキスト関数をマスター(5/11)

パワークエリで四捨五入、切り捨て、切り上げをマスターする方法（6/11）

パワークエリで効率的なデータグループ化を実現する方法(7/11)

パワークエリで時間と日付の計算をマスター！便利な関数を使って効率アップ(8/11)

パワークエリで条件別集計をマスターする方法(9/11)

Excelパワークエリでクロス集計表とデータベース形式を瞬時に変換する方法(10/11)

Excelパワークエリ入門: 効率的なデータ整理をマスターしよう！(11/11)

コメント

コメントするコメントをキャンセル

Excel VBAを活用したオンライン契約・申し込みフォームの自動入力術

Excel VBAの基本

Excel VBAとは

オンラインフォームへの自動入力の基本

コードの解説

応用例

1. 複数のデータを一括入力

2. フォームの項目に応じた条件分岐

3. セキュリティ対策を伴う情報の入力

まとめ

VBAも良いけどパワークエリも良い

【初心者向け】パワークエリ入門：ETLツールを使ってエクセルデータを簡単に整形・統合しよう！(1/11)

【実践ガイド】パワークエリでデータ収集：Excel、CSV、PDF、Webデータを簡単に取り込む方法をマスターしよう！(2/11)

【総力特集】パワークエリで列操作をマスター：選択、変更、移動、削除、結合、分割の詳細解説＆実践テクニック！(3/11)

【徹底解説】パワークエリで行操作をマスター！フィルター・保持・削除テクニックと練習用エクセルで実践学習(4/11)

パワークエリでデータクレンジング: 文字列結合、0埋め、テキスト関数をマスター(5/11)

パワークエリで四捨五入、切り捨て、切り上げをマスターする方法（6/11）

パワークエリで効率的なデータグループ化を実現する方法(7/11)

パワークエリで時間と日付の計算をマスター！便利な関数を使って効率アップ(8/11)

パワークエリで条件別集計をマスターする方法(9/11)

Excelパワークエリでクロス集計表とデータベース形式を瞬時に変換する方法(10/11)

Excelパワークエリ入門: 効率的なデータ整理をマスターしよう！(11/11)

コメント

コメントする コメントをキャンセル

コメントするコメントをキャンセル