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

ネタ元

• http://officetanaka.net/excel/vba/file/file08b.htm