- ベストアンサー
EXCELでCSVファイルの読込み
VBA超初心者でとても困っています。 仕事でEXCELのVBAを使って 現在開いているシートの中に 1つのCSVファイルからデータを読み込むのですが CSVデータの2行目をEXCELのC2へ。 4~10行目までを、EXCELのB5~B14へ マクロを使い、ボタン一つで自動入力させたいのです・・・。 Line Input も、やり方が悪いのかうまくいきません。 ヒントとなるやり方があればぜひ教えてください。
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
こんにちは。 >4~10行目までを、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 ...と、単純に分岐させては如何でしょう。
お礼
ありがとうございます! できました! 本当に助かります。