VBA＿httpリクエストを利用してWebページのCSVデータをExcelシートに形式を変換して貼付

Option Explicit '変数宣言の強制

Sub TEST()
    Dim ws As Worksheet '出力先のシート
    Set ws = Worksheets("Sheet1")

    'Microsoft XML, v6.0の参照設定が必要
    Dim httpReq As XMLHTTP60

    'データの取得
    Set httpReq = New XMLHTTP60
    httpReq.Open "GET", "http://XXXXXXX//YYYYYY.csv"
    httpReq.send

    'リクエストが終了するまで待機
    Do While httpReq.readyState < 4
        DoEvents
    Loop

    '②の回答
    'httpReq.responseTextでhttpリクエストで取得した内容が取り出せます。
    'htmlを取得した場合htmlのコードが表示されます

    '取得結果を改行コード単位に分割する
    Dim line
    line = Split(httpReq.responseText, vbCrLf)

    'ループ内で使う変数群
    Dim csList            '一行の内容をカンマで分割したものを格納する配列
    Dim indexA, indexB    'ループカウンタ
    Dim gyouIndex, retuIndex '行と列のインデックス
    'インデックス初期化
    gyouIndex = 1
    retuIndex = 1

    ' メモ:分割した配列の長さを取得する関数 -> UBound

    '各行を取り出しながら処理する
    For indexA = 0 To UBound(line)
        'ログ表示
        Debug.Print "処理対象の行    >>>" & line(indexA)

        '行の内容をカンマ単位に分割する
        csList = Split(line(indexA), ",")

        'カンマで分割したものを取り出しながら処理する
        For indexB = 0 To UBound(csList)
            'ログ表示
            Debug.Print "処理対象の要素  >>>" & csList(indexB)

            'ワークシートに出力する
            ws.Cells(gyouIndex, retuIndex).Value = csList(indexB)

            '出力の列数をカウントアップする
            retuIndex = retuIndex + 1
        Next indexB

        '出力の列数を初期化する
        retuIndex = 1
        '出力の行数をカウントアップする
        gyouIndex = gyouIndex + 1
    Next indexA


End Sub

        Debug.Print csList(indexB)

        ws.Cells(gyouIndex, retuIndex).Value = csList(indexB)


        retuIndex = retuIndex + 1

For indexB = 0 To UBound(csList)

        Debug.Print csList(indexB)

        ws.Cells(gyouIndex, retuIndex).Value = csList(indexB)


        retuIndex = retuIndex + 1
Next indexB

    For indexA = 0 To UBound(line) '<1>

        For indexB = 0 To UBound(csList) '<2>

            retuIndex = retuIndex + 1 '<3>
        Next indexB

        retuIndex = 1 '<4>
        gyouIndex = gyouIndex + 1 '<5>

    Next indexA

   'ログ表示
   Debug.Print "処理対象の行    >>>" & line(indexA)
   'ログ表示
   Debug.Print "処理対象の要素  >>>" & csList(indexB)

Dim ws As Worksheet
Set ws = Worksheets("Paste01")

Dim httpRe As XMLHTTP60

Set httpReq = New XMLHTTP60
httpReq.Open "get", Worksheets("Setting").Range("B20").Value
httpReq.send

Do While httpReq.readyState < 4
    DoEvents
Loop

Dim line
line = Split(httpReq.responseText, vbLf)

Dim csList
Dim indexA, indexB


For indexA = 0 To UBound(line)

    Debug.Print line(indexA)

    csList = Split(line(indexA), ",")

    For indexB = 0 To UBound(csList)

    Debug.Print csList(indexB)

    ws.Cells(indexA + 1, indexB + 1).Value = csList(indexB)



    Next indexB


Next indexA