Excel VBAでのオンライン証明書・ライセンス申請フォームの自動入力方法

Excel VBAを使用してオンラインでの証明書やライセンス申請フォームの情報入力を自動化する方法について詳しく解説します。初心者向けに基本の操作から応用までを分かりやすく説明し、業務効率の向上を目指します。

Excel VBAの基本

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

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

基本の自動入力処理

Excel VBAを用いて、オンラインフォームの情報入力を自動化するには、InternetExplorerを操作することが多いです。以下に基本的な処理の流れとサンプルコードを示します。


Sub AutoFillForm()

    Dim IE As Object
    Set IE = CreateObject("InternetExplorer.Application")

    'Webページを開く
    IE.Navigate "https://example.com/form"
    IE.Visible = True

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

    'フォームにデータを入力
    IE.document.getElementById("nameField").Value = "田中太郎"
    IE.document.getElementById("licenseField").Value = "A123456789"

    '送信ボタンをクリック
    IE.document.getElementById("submitButton").Click

End Sub

Sub AutoFillForm()

Dim IE As Object

Set IE = CreateObject("InternetExplorer.Application")

'Webページを開く

IE.Navigate "https://example.com/form"

IE.Visible = True

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

Do While IE.Busy

DoEvents

Loop

'フォームにデータを入力

IE.document.getElementById("nameField").Value = "田中太郎"

IE.document.getElementById("licenseField").Value = "A123456789"

'送信ボタンをクリック

IE.document.getElementById("submitButton").Click

End Sub

上記のコードは、”https://example.com/form”というURLのフォームに、「名前」と「ライセンス番号」を入力し、送信ボタンをクリックする処理を行います。

コードの解説

– CreateObject("InternetExplorer.Application") : Internet Explorerを操作するためのオブジェクトを作成します。
– IE.Navigate : 指定したURLのページを開きます。
– IE.document.getElementById : 指定したIDを持つ要素を取得します。
– Do While IE.Busy : ページが完全に読み込まれるまで待機します。

応用例

1. 複数のデータを連続で入力する

Excelのテーブルに複数のデータがある場合、それを連続でWebフォームに入力することができます。


Sub AutoFillMultipleData()

    Dim IE As Object, ws As Worksheet
    Dim lastRow As Long, i As Long

    Set IE = CreateObject("InternetExplorer.Application")
    Set ws = ThisWorkbook.Sheets("Sheet1")

    '最後の行を取得
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    IE.Visible = True

    For i = 2 To lastRow

        'Webページを開く
        IE.Navigate "https://example.com/form"

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

        'フォームにデータを入力
        IE.document.getElementById("nameField").Value = ws.Cells(i, 1).Value
        IE.document.getElementById("licenseField").Value = ws.Cells(i, 2).Value

        '送信ボタンをクリック
        IE.document.getElementById("submitButton").Click

        '次の入力まで待機
        Application.Wait (Now + TimeValue("0:00:10"))

    Next i

End Sub

Sub AutoFillMultipleData()

Dim IE As Object, ws As Worksheet

Dim lastRow As Long, i As Long

Set IE = CreateObject("InternetExplorer.Application")

Set ws = ThisWorkbook.Sheets("Sheet1")

'最後の行を取得

lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

IE.Visible = True

For i = 2 To lastRow

'Webページを開く

IE.Navigate "https://example.com/form"

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

Do While IE.Busy

DoEvents

Loop

'フォームにデータを入力

IE.document.getElementById("nameField").Value = ws.Cells(i, 1).Value

IE.document.getElementById("licenseField").Value = ws.Cells(i, 2).Value

'送信ボタンをクリック

IE.document.getElementById("submitButton").Click

'次の入力まで待機

Application.Wait (Now + TimeValue("0:00:10"))

Next i

End Sub

2. 複数のページでの入力

異なるURLの複数のページで同様の入力を行う場合の処理です。


Sub AutoFillMultiplePages()

    Dim IE As Object
    Dim URLs(1 To 3) As String, i As Integer

    Set IE = CreateObject("InternetExplorer.Application")

    '複数のURLを配列に格納
    URLs(1) = "https://example1.com/form"
    URLs(2) = "https://example2.com/form"
    URLs(3) = "https://example3.com/form"

    IE.Visible = True

    For i = 1 To 3

        'Webページを開く
        IE.navigate URLs(i)

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

        'フォームにデータを入力
        IE.document.getElementById("nameField").Value = "田中太郎"
        IE.document.getElementById("licenseField").Value = "A123456789"

        '送信ボタンをクリック
        IE.document.getElementById("submitButton").Click

        '次の入力まで待機
        Application.Wait (Now + TimeValue("0:00:10"))

    Next i

End Sub

Sub AutoFillMultiplePages()

Dim IE As Object

Dim URLs(1 To 3) As String, i As Integer

Set IE = CreateObject("InternetExplorer.Application")

'複数のURLを配列に格納

URLs(1) = "https://example1.com/form"

URLs(2) = "https://example2.com/form"

URLs(3) = "https://example3.com/form"

IE.Visible = True

For i = 1 To 3

'Webページを開く

IE.navigate URLs(i)

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

Do While IE.Busy

DoEvents

Loop

'フォームにデータを入力

IE.document.getElementById("nameField").Value = "田中太郎"

IE.document.getElementById("licenseField").Value = "A123456789"

'送信ボタンをクリック

IE.document.getElementById("submitButton").Click

'次の入力まで待機

Application.Wait (Now + TimeValue("0:00:10"))

Next i

End Sub

3. エラーチェックと例外処理

自動入力中にエラーが発生した場合の対応を考える必要があります。


Sub AutoFillWithErrorHandling()

    Dim IE As Object

    On Error GoTo ErrorHandler

    Set IE = CreateObject("InternetExplorer.Application")

    'Webページを開く
    IE.Navigate "https://example.com/form"
    IE.Visible = True

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

    'フォームにデータを入力
    IE.document.getElementById("nameField").Value = "田中太郎"
    IE.document.getElementById("licenseField").Value = "A123456789"

    '送信ボタンをクリック
    IE.document.getElementById("submitButton").Click

    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました。", vbCritical
    IE.Quit

End Sub

Sub AutoFillWithErrorHandling()

Dim IE As Object

On Error GoTo ErrorHandler

Set IE = CreateObject("InternetExplorer.Application")

'Webページを開く

IE.Navigate "https://example.com/form"

IE.Visible = True

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

Do While IE.Busy

DoEvents

Loop

'フォームにデータを入力

IE.document.getElementById("nameField").Value = "田中太郎"

IE.document.getElementById("licenseField").Value = "A123456789"

'送信ボタンをクリック

IE.document.getElementById("submitButton").Click

Exit Sub

ErrorHandler:

MsgBox "エラーが発生しました。", vbCritical

IE.Quit

End Sub

まとめ

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の基本

基本の自動入力処理

コードの解説

応用例

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の基本

基本の自動入力処理

コードの解説

応用例

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)

コメント

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

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