【VBA】CSVファイルの値を取得する

以下のコードでCSVファイル内の値を取得できる。

Dim filePath As Variant     'ファイルパス
Dim line As String          'CSVファイルの行方向の値
Dim lineArry() As String    'CSVファイルの値を取得する配列
Dim i As Long               'ループカウンタ用

'ファイルパスの取得
filePath = ThisWorkbook.Path & "\CSVファイル.csv"

'上記ファイルを開いてファイル内の値を以下の配列に抽出する
Open filePath For Input As #1

    i = 0
    Do Until EOF(1)
    
        Line Input #1, line 'lineにCSVファイルの行ごとの値が入る
        '動的配列でlineからダブルクォーテーションを除いた要素分の値を抽出する
        ReDim Preserve lineArry(i) As String
        lineArry(i) = Replace(line, Chr(34), "")
        i = i + 1

    Loop
Close #1