こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

EXCELでCSVファイルの読込み

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

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

投稿日時 - 2007-01-24 18:58:18

QNo.2692925

すぐに回答ほしいです

質問者が選んだベストアンサー

こんにちは。
>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
...と、単純に分岐させては如何でしょう。

投稿日時 - 2007-01-24 21:46:47

お礼

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

投稿日時 - 2007-01-25 09:08:59

ANo.1

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問