テキストファイルを開く

テキストファイル（CSVファイル）を開くには、以下のようにします。

参照設定に「Microsoft Scripting Runtime」を追加します。

Private Sub Command1_Click()

    Dim f As New FileSystemObject
    Dim stream As TextStream
    
    'CSVファイルを開く。
    Set stream = f.OpenTextFile("c:\test\a.csv", ForReading, False)
        
    '最後の行までループする
    Do Until stream.AtEndOfLine
        Dim line As String
        '1行読む
        line = stream.ReadLine
        
        Dim arr() As String
        'カンマ区切りで配列に変換する
        arr = Split(line, ",")
        
        '何らかの処理
        Dim i As Integer
        For i = 0 To UBound(arr)
            MsgBox arr(i)
        Next
    Loop
     
    '閉じる
    stream.Close
    
    Set stream = Nothing
    Set f = Nothing

End Sub