ChatGPT × Excel VBA：オルカンの基準価額を自動取得するマクロを作ってみた

以下のExcel VBAのコードを書いてください。
１、HTTPリクエストを送ってCSVを取得
２、HTTPリクエストの送信先は「https://www.am.mufg.jp/fund_file/setteirai/253425.csv」
３、CSVファイルの最下行のデータを、今開いているExcelファイルのA1セルからカンマで分割して書き込む

Sub GetAndSplitLastCSVLine()

Dim http As Object
Dim url As String
Dim responseText As String
Dim lines() As String
Dim lastLine As String
Dim values() As String
Dim i As Long

‘ 1. ダウンロードするCSVのURL
url = “https://www.am.mufg.jp/fund_file/setteirai/253425.csv”

‘ 2. HTTPリクエストを送信
Set http = CreateObject(“MSXML2.XMLHTTP”)

On Error GoTo ErrorHandler

http.Open “GET”, url, False
http.setRequestHeader “User-Agent”, “Mozilla/5.0” ‘ 一部403回避のため
http.Send

‘ 3. ステータスが成功（200）の場合
If http.Status = 200 Then
responseText = http.responseText

‘ 改行で分割して配列に格納
lines = Split(responseText, vbLf)

‘ 4. 最下行のデータ（空白行は無視）
Dim j As Long
For j = UBound(lines) To 0 Step -1
If Trim(lines(j)) <> “” Then
lastLine = Trim(lines(j))
Exit For
End If
Next j

‘ 5. 最下行をカンマで分割
values = Split(lastLine, “,”)

‘ 6. A1から横方向に書き込み
For i = 0 To UBound(values)
ActiveSheet.Cells(1, i + 1).Value = values(i)
Next i
Else
MsgBox “HTTPリクエスト失敗: ステータスコード = ” & http.Status, vbCritical
End If

Exit Sub

ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical

End Sub