Option Explicit

Private Sub Command1_Click()
    
    Dim xlsApp      As Object
    Dim xlsBook     As Object
    Dim xlsSheet    As Object
    Dim strFileName As String
    Dim strRecBuff  As String
    Dim intFileNo   As Integer
    Dim intCol      As Integer
    Dim intRow      As Integer

    'ドライブを変更する
    ChDrive "D:"
    'フォルダを変更する
    ChDir "D:\work\"

    'Excelへの参照
    Set xlsApp = CreateObject("Excel.Application")

    'Excelにブックを追加
    Set xlsBook = xlsApp.WorkBooks.Add

    'SheetコレクションからSheet1を取得
    Set xlsSheet = xlsBook.Sheets("Sheet1")

    '読み込むCSVファイル名
    strFileName = "test.csv"

    '空いているファイル番号を取得
    intFileNo = FreeFile

    'CSVファイルを開く
    Open strFileName For Input As intFileNo

    'ファイルの最後に達するまでループ
    Do Until EOF(intFileNo)
        '読み込んだ行数をカウント
        intRow = intRow + 1

        '１行分のデータを読み込む
        For intCol = 1 To 4
            'ファイルから読み込んだ内容を変数に保存
            Input #intFileNo, strRecBuff

            '変数の内容をExcelに送る
            xlsSheet.cells(intRow, intCol) = strRecBuff
        Next
    Loop

    'Excelを表示
    xlsBook.Application.Visible = True

    'CSVファイルを閉じる
    Close intFileNo

    'オブジェクトを開放
    Set xlsSheet = Nothing
    Set xlsBook = Nothing
    Set xlsApp = Nothing

End Sub