Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


50818 / 76738 ←次へ | 前へ→

【30804】Re:CSVファイルの取込について
発言  ichinose  - 05/11/4(金) 22:39 -

引用なし
パスワード
   セブン さん、みなさん、こんばんは。
>
>
>タイトル1,タイトル2,タイトル3,タイトル4DATE1,DATE2,DATE3,DATE4,
実はこれ↑タイトル4とDATE1の間には、表示されないコードがあるのでは
ありませんか?例えば、VbcrコードとかVblfコードとか

そうだと仮定すると・・・、


Sub testread()
  Dim dat1 As Variant
  Dim rw As Long
  Dim myarray As Variant
  Dim partarray As Variant
  Open "d:\csvtest.csv" For Input As #1
'       ↑これは、実際のファイルを指定して下さい
  rw = 1
  Do Until EOF(1)
    Line Input #1, dat1
    myarray = Split(dat1, vbLf)
    For idx = LBound(myarray) To UBound(myarray)
     partarray = Split(myarray(idx), ",")
     Range(Cells(rw, 1), Cells(rw, UBound(partarray) - LBound(partarray) + 1)).Value = partarray
     rw = rw + 1
     Next idx
    Loop
  Close #1
End Sub

0 hits

【30798】CSVファイルの取込について セブン 05/11/4(金) 21:03 質問
【30799】Re:CSVファイルの取込について かみちゃん 05/11/4(金) 21:32 発言
【30800】Re:CSVファイルの取込について セブン 05/11/4(金) 22:07 質問
【30801】Re:CSVファイルの取込について Kein 05/11/4(金) 22:28 回答
【30804】Re:CSVファイルの取込について ichinose 05/11/4(金) 22:39 発言
【30808】Re:CSVファイルの取込について Hirofumi 05/11/4(金) 23:23 回答
【30824】Re:CSVファイルの取込について セブン 05/11/5(土) 9:47 お礼

50818 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free