Sub ki028()
Myfile = "c:\My Documents\Book.csv"
Sheets("Sheet1").Select
 Dim dat(13) As String
'txtデ−タ取り込み
    i = 1: j = 1
    Open Myfile For Input As #1
Do Until EOF(1)
    Input #1, dat(1), dat(2), dat(3), dat(4), dat(5), dat(6), _
     dat(7), dat(8), dat(9)
'セルへ書き込み
    For j = 1 To 13
        Cells(i, j) = dat(j)
    Next
    i = i + 1
Loop
Close #1

End Sub