EXCELでCSVファイルの読込み

質問

VBA超初心者でとても困っています。
仕事でEXCELのVBAを使って
現在開いているシートの中に
1つのCSVファイルからデータを読み込むのですが
CSVデータの２行目をEXCELのC2へ。
４～１０行目までを、EXCELのB5～B14へ
マクロを使い、ボタン一つで自動入力させたいのです・・・。

Line Input も、やり方が悪いのかうまくいきません。
ヒントとなるやり方があればぜひ教えてください。

回答No.1

pauNed · ベストアンサー

こんにちは。
>４～１０行目までを、EXCELのB5～B14へ
B14？...B11でいいですか？

Sub sample()
　　Const fName As String = "D:\test\test.csv"
　　Dim s0 As String
　　Dim sC As String
　　Dim sB(4 To 10, 1 To 1) As String
　　Dim n As Long
　　Dim i As Long

　　n = FreeFile
　　Open fName For Input As #n
　　Do While Not EOF(n)
　　　　i = i + 1
　　　　Select Case i
　　　　Case 2
　　　　　　Line Input #n, sC
　　　　Case 4 To 10
　　　　　　Line Input #n, sB(i, 1)
　　　　Case Is > 10
　　　　　　Exit Do
　　　　Case Else
　　　　　　Line Input #n, s0
　　　　End Select
　　Loop
　　Close #n
　　Range("C2").Value = sC
　　Range("B5:B11").Value = sB
End Sub
...と、単純に分岐させては如何でしょう。

お礼

ありがとうございます！
できました！
本当に助かります。