【2026年7月最新】VBAのWhile・Do Whileループ完全ガイド｜While Wend・Do While Loop・Do Loop Whileの使い分けとコード例

この記事の内容

1. 01VBAのループ処理の全体像
2. 02While Wend文の使い方
3. 03Do While Loop文の使い方
4. 04Do Loop While文（後判定ループ）の使い方
5. 05While WendとDo Whileの違いと使い分け
6. 06複数条件（And/Or）の指定方法
7. 07Exit Doで途中終了する方法
8. 08無限ループとデバッグ方法
9. 09For Nextとの使い分けガイド
10. 10実務での活用パターン（ファイル処理・API・シート操作）
11. FAQよくある質問

📚 用語解説

条件式：ループの継続・終了を制御するTrueまたはFalseを返す式。VBAではWhile条件式・Do While 条件式・Do Until 条件式のように記述します。比較演算子（=・<>・>・<・>=・<=）・論理演算子（And・Or・Not）・関数の戻り値（IsEmpty・IsNull等）などを組み合わせて記述します。条件がTrue（真）のとき「繰り返す」か「終了する」かは構文によって異なります。

📚 用語解説

While Wend文：VBAの条件付き前判定ループ構文。「While 条件式 ～ Wend」の形で記述し、条件がTrueである間ループを繰り返します。VB（Visual Basic）時代から存在する古い構文で、Exit Wendによる途中終了はできません。現代VBAではDo While Loopへの移行が推奨されていますが、シンプルな繰り返し処理では今でも使われます。

' While Wend文の基本構文
Sub WhileWendBasic()
    Dim i As Integer
    i = 1

    While i <= 5           ' i が 5 以下の間繰り返す
        MsgBox "i = " & i
        i = i + 1          ' カウンタを必ず更新する（忘れると無限ループ！）
    Wend

    MsgBox "ループ終了。i = " & i  ' i = 6 になっている
End Sub

' ===
' Excelシートのデータ末尾まで処理するWhile Wendの例
Sub WhileWendSheetScan()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Dim row As Long
    row = 2  ' 2行目から開始（1行目はヘッダー）

    ' A列が空白になるまで処理を繰り返す
    While ws.Cells(row, 1).Value <> ""
        ' B列の値を2倍にしてC列に記録
        ws.Cells(row, 3).Value = ws.Cells(row, 2).Value * 2
        row = row + 1      ' 次の行へ
    Wend

    MsgBox "処理完了。最終行: " & (row - 1) & "行"
End Sub

' While Wendで売上データを集計する実務例
Sub SalesAggregationWhileWend()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("売上データ")
    Dim row As Long
    row = 2  ' データ開始行

    Dim totalSales As Double
    Dim countRows As Long
    totalSales = 0
    countRows = 0

    ' A列（日付）が空白になるまで繰り返す
    While ws.Cells(row, 1).Value <> ""
        Dim sales As Double
        sales = CDbl(ws.Cells(row, 3).Value)  ' C列: 売上金額

        ' D列の区分が「本社」の行だけ集計
        If ws.Cells(row, 4).Value = "本社" Then
            totalSales = totalSales + sales
            countRows = countRows + 1
        End If

        row = row + 1
    Wend

    ' 結果を表示
    MsgBox "本社売上合計: " & Format(totalSales, "#,##0") & "円" & vbCrLf & _
           "対象行数: " & countRows & "件", vbInformation
End Sub

While Wend文は、すべてDo While Loop文に書き換えられます。「While 条件」を「Do While 条件」に、「Wend」を「Loop」に変えるだけです。新規に書くコードではExit Doが使えるDo While Loopを推奨しますが、既存のWhile Wendコードをそのまま使うことも問題ありません。

📚 用語解説

Do While Loop文：VBAの条件付き前判定ループ構文。「Do While 条件式 ～ Loop」の形で記述し、条件がTrueである間ループを繰り返します。While Wendとの最大の違いはExit Doでループを途中終了できる点です。While WendのWendをLoopに替え、WhileをDo Whileに替えた形が基本パターンです。現代VBAでは条件付きループのデファクトスタンダードです。

' Do While Loopの基本構文
Sub DoWhileBasic()
    Dim counter As Integer
    counter = 1

    Do While counter <= 10    ' counter が 10 以下の間繰り返す
        Debug.Print "counter = " & counter
        counter = counter + 1
    Loop

    MsgBox "完了。counter = " & counter  ' 11 になっている
End Sub

' ===
' 初回から条件がFalseの場合は一度も実行されない
Sub DoWhileZeroExecution()
    Dim x As Integer
    x = 100  ' 最初から条件(x <= 5)がFalse

    Do While x <= 5    ' この条件は最初からFalse
        MsgBox "実行される（はずだが実際には実行されない）"
        x = x + 1
    Loop

    MsgBox "ループ本体は一度も実行されませんでした。x = " & x  ' x = 100 のまま
End Sub

' Do While Loopでシートデータを走査・整形する実務例
Sub SheetScanDoWhile()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("受注データ")

    ' 最終行を先に取得（Cells.Find方式）
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    Dim row As Long
    row = 2  ' 2行目からデータ開始

    Dim processedCount As Long
    Dim skippedCount As Long
    processedCount = 0
    skippedCount = 0

    Do While row <= lastRow    ' 最終行に達するまで繰り返す
        Dim cellVal As String
        cellVal = Trim(ws.Cells(row, 1).Value)  ' A列: 顧客名

        If cellVal = "" Then
            ' 空白行はスキップ
            skippedCount = skippedCount + 1
        Else
            ' B列: 金額を数値型に変換してC列に丸め処理
            Dim amount As Double
            amount = CDbl(ws.Cells(row, 2).Value)
            ws.Cells(row, 3).Value = Int(amount / 1000) * 1000  ' 千円単位に切り捨て

            ' D列: 処理済みフラグを設定
            ws.Cells(row, 4).Value = "処理済"
            ws.Cells(row, 4).Interior.Color = RGB(198, 239, 206)  ' 緑背景
            processedCount = processedCount + 1
        End If

        row = row + 1  ' 必ず次の行へ進める
    Loop

    MsgBox "処理完了" & vbCrLf & _
           "処理行: " & processedCount & "件" & vbCrLf & _
           "スキップ（空白）: " & skippedCount & "件", vbInformation
End Sub

Do While Loopでシートを走査するとき、「最終行はどこか」を事前に知っておくパターンが安全です。ws.Cells(ws.Rows.Count, 1).End(xlUp).Rowは「A列の最後の行から上方向にCtrl+↑した行番号」を返す定番の書き方です。これを使ってDo While row <= lastRowとすれば、データ件数に関係なく安全に走査できます。

📚 用語解説

Do Loop While文（後判定）：VBAの条件付き後判定ループ構文。「Do ～ Loop While 条件式」の形で記述し、ループ末尾で条件を評価します。「前判定」のDo While Loopと異なり、条件の評価がループ本体の実行後に行われるため、条件に関わらず必ず最低1回はループ本体が実行されます。ユーザーへの入力要求・初回処理が必須の処理など「少なくとも1回は実行したい」場合に使います。

' Do Loop Whileの基本構文（後判定：必ず1回実行される）
Sub DoLoopWhileBasic()
    Dim x As Integer
    x = 100  ' 最初から条件(x <= 5)がFalseだが...

    Do
        MsgBox "x = " & x & "（条件がFalseでも1回は実行される）"
        x = x + 1
    Loop While x <= 5    ' ← 条件の評価はここ（ループ末尾）

    ' x = 101 で終了（1回だけ実行された）
    MsgBox "終了。x = " & x
End Sub

' ===
' ユーザーに正しい入力を求め続ける（入力検証ループ）
Sub InputValidationLoop()
    Dim userInput As String

    Do
        userInput = InputBox("1〜10の整数を入力してください")

        ' キャンセルボタン押下時（InputBoxが空文字列を返す）
        If userInput = "" Then
            MsgBox "キャンセルされました", vbInformation
            Exit Sub
        End If

        ' 数値かつ範囲内かチェック
        If IsNumeric(userInput) Then
            If CInt(userInput) >= 1 And CInt(userInput) <= 10 Then
                Exit Do  ' 正しい入力 → ループを抜ける
            End If
        End If

        MsgBox "1〜10の整数を入力してください", vbExclamation
    Loop While True  ' ← Exit Doで抜けるまで繰り返す（条件は常にTrue）
    ' ※ Loop While True より Loop While False の逆を使う場合もある

    MsgBox "入力値: " & CInt(userInput), vbInformation
End Sub

Do Loop Whileも無限ループになる可能性があります。特に「Loop While True」と書いてExit Doでしか抜けないパターンは、Exit Doの条件を誤って書くと永遠に終わらなくなります。後判定ループを使うときも「Exit Doが必ず到達できる条件になっているか」を確認してください。また、カウンタを使う場合はDo While Loopと同様にカウンタの更新を忘れないようにしましょう。

Do While Loopの「条件がTrueの間繰り返す」に対し、Do Until Loopは「条件がTrueになるまで繰り返す（条件がFalseの間繰り返す）」です。たとえば「Do While ws.Cells(row, 1).Value <> ""」は「Do Until ws.Cells(row, 1).Value = ""」と書き換えられます。どちらが読みやすいかは状況次第ですが、統一感を持たせるためにチーム内でどちらを使うか決めておくことをお勧めします。

📚 用語解説

For Next文：VBAの回数指定ループ構文。「For カウンタ変数 = 開始値 To 終了値 [Step 増分] ～ Next カウンタ変数」の形で記述します。繰り返し回数が事前に決まっている処理（配列の全要素処理・固定回数の試行など）に向いています。Do While Loopと異なり繰り返し回数が固定されるため、ループ変数の更新し忘れによる無限ループが発生しない安全な構文です。

📚 用語解説

条件式（複数条件）：VBAのWhile・Do While文では、And（論理積：両方の条件がTrueのときTrue）・Or（論理和：どちらか一方がTrueのときTrue）・Not（否定：TrueとFalseを反転）を使って複数の条件を組み合わせられます。複数条件を書くときは括弧を使って優先順位を明示することで、意図しない評価順序のバグを防げます。

' And（かつ）で複数条件を組み合わせる例
Sub MultiConditionAnd()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("データ")
    Dim row As Long
    row = 2
    Dim maxRows As Long
    maxRows = 1000  ' 安全上限（無限ループ防止）

    ' A列が空白でない AND 処理行が上限未満の間繰り返す
    Do While ws.Cells(row, 1).Value <> "" And row <= maxRows
        ' B列の数値が正の値のときだけ処理
        If ws.Cells(row, 2).Value > 0 Then
            ws.Cells(row, 3).Value = ws.Cells(row, 2).Value * 1.1  ' 10%増
        End If
        row = row + 1
    Loop

    If row > maxRows Then
        MsgBox "上限行数に達しました（" & maxRows & "行）。処理を中断しました。", vbWarning
    Else
        MsgBox "処理完了。処理行数: " & (row - 2) & "件", vbInformation
    End If
End Sub

' ===
' Or（または）で複数条件を組み合わせる例
Sub MultiConditionOr()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("処理キュー")
    Dim row As Long
    row = 2
    Dim errorOccurred As Boolean
    errorOccurred = False

    ' ステータスが「待機」または「再試行」のセルを処理する
    Do While ws.Cells(row, 1).Value = "待機" Or ws.Cells(row, 1).Value = "再試行"
        ' C列の処理を実行
        On Error Resume Next
        ws.Cells(row, 4).Value = ws.Cells(row, 2).Value * ws.Cells(row, 3).Value
        If Err.Number <> 0 Then
            ws.Cells(row, 1).Value = "エラー"
            errorOccurred = True
            Err.Clear
        Else
            ws.Cells(row, 1).Value = "完了"
        End If
        On Error GoTo 0
        row = row + 1
    Loop

    If errorOccurred Then
        MsgBox "一部の行でエラーが発生しました。ステータスを確認してください。", vbWarning
    Else
        MsgBox "全行処理完了", vbInformation
    End If
End Sub

' Notで条件を反転させる例（Do Until と同等の書き方）
Sub NotConditionExample()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim row As Long
    row = 2

    ' 「A列が空白である」の否定 = 「A列が空白でない」間繰り返す
    ' Do While ws.Cells(row, 1).Value <> "" と同等
    Do While Not (ws.Cells(row, 1).Value = "")
        Dim name As String
        name = Trim(ws.Cells(row, 1).Value)

        ' 空白文字のみの場合もスキップ（IsEmpty・Len両方確認）
        If Len(name) > 0 And Not IsEmpty(ws.Cells(row, 1).Value) Then
            ws.Cells(row, 2).Value = UCase(Left(name, 1)) & Mid(name, 2)  ' 先頭を大文字化
        End If

        row = row + 1
    Loop
End Sub

📚 用語解説

Exit Do：Do While Loop・Do Loop While文の中で使えるループ途中終了ステートメント。Exit Doに達した時点でLoopキーワードの次の行に処理が移ります。While Wendには対応するExit Wendがないため、While Wendをネストして使う場合のループ途中終了はGoToが必要でした。Exit Doは「エラーが発生したとき」「目的のデータが見つかったとき」「処理件数の上限に達したとき」などに使います。

' Exit Doで特定条件が満たされたらループを抜ける
Sub ExitDoSearchExample()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("顧客一覧")
    Dim row As Long
    row = 2

    Dim targetName As String
    targetName = InputBox("検索する顧客名を入力してください")

    Dim foundRow As Long
    foundRow = 0

    Do While ws.Cells(row, 1).Value <> ""
        If ws.Cells(row, 1).Value = targetName Then
            foundRow = row  ' 見つかった行番号を記録
            Exit Do         ' ← ここで即座にループを抜ける
        End If
        row = row + 1
    Loop

    If foundRow > 0 Then
        MsgBox targetName & "は" & foundRow & "行目に見つかりました。" & vbCrLf & _
               "会社名: " & ws.Cells(foundRow, 2).Value, vbInformation
    Else
        MsgBox targetName & "は見つかりませんでした", vbExclamation
    End If
End Sub

' ===
' エラーが発生したらExit Doでループを中断する例
Sub ExitDoOnError()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim row As Long
    row = 2
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    Dim hasError As Boolean
    hasError = False

    Do While row <= lastRow
        On Error Resume Next
        ' 外部システムへのデータ書き込み（エラーが起きる可能性）
        Dim result As Double
        result = ws.Cells(row, 2).Value / ws.Cells(row, 3).Value

        If Err.Number <> 0 Then
            ' エラーが発生 → エラー情報を記録してループを中断
            ws.Cells(row, 4).Value = "ERROR: " & Err.Description
            hasError = True
            Err.Clear
            On Error GoTo 0
            Exit Do    ' ← エラー発生時にループを即終了
        End If
        On Error GoTo 0

        ws.Cells(row, 4).Value = result
        row = row + 1
    Loop

    If hasError Then
        MsgBox row & "行目でエラーが発生したため処理を中断しました。", vbCritical
    Else
        MsgBox "全行処理完了（" & lastRow - 1 & "件）", vbInformation
    End If
End Sub

Do Loopをネスト（入れ子）している場合、Exit Doは最も内側のDo Loopだけを抜けます。外側のDo Loopには影響しません。外側のループも終了させたい場合は、フラグ変数（Boolean型）を使って外側のループの条件にフラグを組み込む設計が必要です。また、For Nextのループから抜けるにはExit Forを使います。Exit DoはFor Nextには使えないので注意してください。

' 無限ループになる典型的なミス
Sub InfiniteLoopBad()
    Dim i As Integer
    i = 1

    ' NG例1: カウンタ更新忘れ
    Do While i <= 10
        Debug.Print i
        ' i = i + 1 を書き忘れ！ → i は常に 1 → 無限ループ
    Loop

    ' NG例2: 条件が永遠にTrueになる
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim row As Long
    row = 2

    Do While ws.Cells(row, 1).Value <> ""
        ws.Cells(row, 2).Value = ws.Cells(row, 1).Value
        ' row = row + 1 を書き忘れ！ → 常に2行目を処理 → 無限ループ
    Loop
End Sub

' ===
' 安全なループ設計（カウンタ上限 + 更新を確実に）
Sub SafeLoopDesign()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim row As Long
    row = 2
    Const MAX_ROWS As Long = 100000  ' 安全上限の定数化

    Dim loopCount As Long
    loopCount = 0

    Do While ws.Cells(row, 1).Value <> "" And loopCount < MAX_ROWS
        ws.Cells(row, 2).Value = ws.Cells(row, 1).Value * 2
        row = row + 1         ' 必ずループの最後で更新
        loopCount = loopCount + 1  ' 安全カウンタも更新
    Loop

    If loopCount >= MAX_ROWS Then
        MsgBox "安全上限（" & MAX_ROWS & "行）に達しました。データを確認してください。", vbWarning
    End If
End Sub

Application.EnableCancelKey = xlDisabledを設定していると、Ctrl+Breakによる強制停止ができなくなります。デバッグ中にこの設定が残っていると、無限ループから抜け出せなくなります。EnableCancelKeyをxlDisabledに設定するコードは、必ず処理の直前だけに限定し、処理後にxlInterruptWithMessageOrxlErrorHandlerに戻すか、On Errorでリセットするように設計してください。

DoEvents関数をループ内に入れると、Excelが他のイベント（キー入力・マウス操作など）を処理できるようになります。これにより「長いループの実行中でもCtrl+Breakで停止できる」「画面が更新される」という効果があります。ただしDoEventsは処理速度を落とす副作用があるため、長大なループや視覚的なフィードバックが必要な場合にのみ使います。

' DoEventsでループの途中でも操作を受け付ける設計
Sub SafeLoopWithDoEvents()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim row As Long
    row = 2

    Application.ScreenUpdating = False  ' 画面更新を止めて高速化

    Do While ws.Cells(row, 1).Value <> ""
        ' 重い処理...
        ws.Cells(row, 2).Value = ws.Cells(row, 1).Value

        ' 100行ごとにDoEventsを呼び出して停止可能にする
        If row Mod 100 = 0 Then
            DoEvents  ' ← 他イベント処理（Ctrl+Breakも受け付ける）
            Application.StatusBar = row & "行目を処理中..."  ' ステータスバー更新
        End If

        row = row + 1
    Loop

    Application.ScreenUpdating = True
    Application.StatusBar = False  ' ステータスバーをリセット
    MsgBox "処理完了（" & (row - 2) & "行）", vbInformation
End Sub

📚 用語解説

For Each Next文：VBAのコレクション（WorksheetsコレクションやRangeオブジェクトなど）の全要素を処理するためのループ構文。「For Each 要素変数 In コレクション ～ Next 要素変数」の形で記述します。コレクションの件数を事前に取得する必要がなく、直感的に書けます。シートを全部処理したい・セルの範囲を全部スキャンしたいといった場面で最もシンプルに記述できます。

' For NextとDo While Loopの使い分け比較
Sub ForVsDoWhileComparison()

    ' ===== 繰り返し回数固定 → For Nextが適切 =====
    ' 5回繰り返してA1:A5にシリアル番号を入れる
    Dim i As Integer
    For i = 1 To 5
        Cells(i, 1).Value = i
    Next i

    ' ===== 件数不定のデータ処理 → Do While Loopが適切 =====
    ' B列のデータがある行を全処理（件数は毎回変わる）
    Dim row As Long
    row = 1
    Do While Cells(row, 2).Value <> ""
        Cells(row, 3).Value = Cells(row, 2).Value * 2
        row = row + 1
    Loop

    ' ===== コレクション全要素 → For Each Nextが最もシンプル =====
    ' 全シートに処理日を記録
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Sheets
        ws.Cells(1, 10).Value = "更新日: " & Format(Now(), "yyyy/mm/dd")
    Next ws

    MsgBox "全処理完了", vbInformation
End Sub

' 指定フォルダ内のすべてのExcelファイルを処理するパターン
Sub ProcessAllExcelFiles()
    Dim folderPath As String
    folderPath = "C:\Users\kohei\Documents\月次データ\"  ' 処理対象フォルダ

    ' フォルダ内の最初のxlsxファイルを取得
    Dim fileName As String
    fileName = Dir(folderPath & "*.xlsx")

    ' ファイルが見つからなくなるまでループ（Do While + Dir）
    Dim processedCount As Long
    processedCount = 0

    Do While fileName <> ""  ' ← Dirが空文字を返したら終了
        Dim fullPath As String
        fullPath = folderPath & fileName

        ' ファイルを開いて処理
        Dim wb As Workbook
        On Error Resume Next
        Set wb = Workbooks.Open(fullPath, ReadOnly:=True)
        On Error GoTo 0

        If Not wb Is Nothing Then
            ' 1シート目のA1の値を取得してイミディエイトウィンドウに出力
            Debug.Print fileName & " -> A1 = " & wb.Sheets(1).Cells(1, 1).Value
            wb.Close False
            processedCount = processedCount + 1
        End If

        ' 次のファイルを取得
        fileName = Dir()  ' ← Dir()を引数なしで呼ぶと次のファイルを返す
    Loop

    MsgBox processedCount & "ファイルを処理しました", vbInformation
End Sub

' Do While Loopで重複行を検出・マークするパターン
Sub FindDuplicateRows()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("売上明細")

    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    ' 外側ループ: 比較元の行
    Dim baseRow As Long
    baseRow = 2

    Do While baseRow < lastRow
        Dim compareRow As Long
        compareRow = baseRow + 1

        ' 内側ループ: 比較先の行（Do While Loopのネスト）
        Do While compareRow <= lastRow
            ' A列（顧客コード）とB列（日付）が一致したら重複
            If ws.Cells(baseRow, 1).Value = ws.Cells(compareRow, 1).Value And _
               ws.Cells(baseRow, 2).Value = ws.Cells(compareRow, 2).Value Then
                ' 重複行をE列に記録し、背景を黄色にする
                ws.Cells(compareRow, 5).Value = "重複（" & baseRow & "行目と）"
                ws.Cells(compareRow, 5).Interior.Color = RGB(255, 255, 0)
            End If
            compareRow = compareRow + 1
        Loop

        baseRow = baseRow + 1
    Loop

    MsgBox "重複チェック完了。黄色の行を確認してください。", vbInformation
End Sub

' Do Loop Whileでリトライ付きAPI呼び出し
Sub ApiCallWithRetry()
    ' ※ Microsoft XML v6.0参照設定が必要
    Dim apiUrl As String
    apiUrl = "https://api.example.com/data"

    Dim maxRetry As Integer
    Dim retryCount As Integer
    Dim isSuccess As Boolean
    maxRetry = 3
    retryCount = 0
    isSuccess = False

    Dim xmlHttp As Object
    Set xmlHttp = CreateObject("MSXML2.XMLHTTP")

    ' 後判定ループ: 少なくとも1回は試行する
    Do
        On Error Resume Next
        xmlHttp.Open "GET", apiUrl, False
        xmlHttp.send

        If Err.Number = 0 And xmlHttp.Status = 200 Then
            ' 成功
            isSuccess = True
            Err.Clear
        Else
            ' 失敗
            retryCount = retryCount + 1
            Err.Clear
            If retryCount < maxRetry Then
                Application.Wait Now + TimeValue("00:00:02")  ' 2秒待機してリトライ
                MsgBox "APIアクセス失敗。リトライ " & retryCount & "/" & maxRetry, vbInformation
            End If
        End If
        On Error GoTo 0

    Loop While Not isSuccess And retryCount < maxRetry  ' 成功 or 上限回数に達したら終了

    If isSuccess Then
        ' レスポンスを処理
        Dim responseText As String
        responseText = xmlHttp.responseText
        MsgBox "API呼び出し成功（" & retryCount + 1 & "回目）", vbInformation
        ' ... レスポンスをパースして処理 ...
    Else
        MsgBox "API呼び出しが" & maxRetry & "回失敗しました。ネットワークを確認してください。", vbCritical
    End If
End Sub

NEXT STEP

この記事の内容を、あなたのビジネスで
実践してみませんか？