VBAでCSVのヘッダーを取得

'VBAでCSVを取得しヘッダーのみを書き込む

Sub WriteCSVHeaderToActiveSheet()
Dim filePath As String
Dim delimiter As String
Dim headerRow As String
Dim headerItems() As String
Dim i As Integer

' CSVファイルのパスを指定してください
filePath = "C:\path\to\your\file.csv"

' CSVファイルの区切り文字を指定してください
delimiter = ","

' CSVファイルをテキストとして開き、ヘッダー行を読み込む
Open filePath For Input As #1
Line Input #1, headerRow
Close #1

' ヘッダー行を区切り文字で分割し、配列に格納する
headerItems = Split(headerRow, delimiter)

' 配列の要素をアクティブシートのA列に書き込む
For i = LBound(headerItems) To UBound(headerItems)
    Cells(i + 1, 1).Value = headerItems(i)
Next i

End Sub