|
始めまして。
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
|
|