Excel VBA質問箱 IV

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

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


50818 / 76732 ←次へ | 前へ→

【30798】CSVファイルの取込について
質問  セブン E-MAIL  - 05/11/4(金) 21:03 -

引用なし
パスワード
   始めまして。
CSVファイル取り込みについて質問いたします。
CSVファイルをVBAで取り込むようにしました。

NOU.CSV
タイトル1,タイトル2,タイトル3,タイトル4
DATE1,DATE2,DATE3,DATE4,
DATE5,DATE6,DATE7,DATE8,

上記のCSVファイルでは問題なく取り込むことができましたが、
これから取り込もうとしているCSVファイルは

タイトル1,タイトル2,タイトル3,タイトル4DATE1,DATE2,DATE3,DATE4,
DATE5,DATE6,DATE7,DATE8,
というタイトル行とデータ1行目(2行目)が1行になっています。

EXCELで「開く」では問題なく読み込めるのですが、VBAではうまくいきません。
どのような方法があるのでしょうか。
皆さんのお知恵をお借りできればと思います。

参考までコードを記しておきます。

Sub データ取込()
Dim dat(200, 200) As String

'txtデ−タ取り込み
  i = 0
  Open fname For Input As #1
Do Until EOF(1)
 For j = 0 To 165
  Input #1, dat(i, j)
  Cells(i + 1, j + 1) = dat(i, j)
Next
  On Error GoTo 0
   i = i + 1
Loop
Close #1
Range(Cells(1, 1), Cells(i, j)).Value = dat

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 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free