excelvbaでファイル読み込み

excelvba 
Sub Sample2()
    Dim buf As String
    Open "C:\Sample\Data.txt" For Input As #1
        Do Until EOF(1)
            Line Input #1, buf
            セル = buf
        Loop
    Close #1
End Sub


ネタ元