|
▼りすりす さん:
レスありがとうございます。
>>(1)東京 現像
>>(2)東京 ←後ろが空白
>>(3) 現像 ←前が空白
>>(4) ←どちらも空白
このcsvファイルはAccessVBAで操作して作ったファイルでして、エクセルで開くとセルごとに区切られてますが、テキストエディタで開くと(1)でしたら「東京,現像」となってます。
(2)、(3)、(4)もそれぞれ「東京,」「,現像」「,」としたいのですが、出力するときに空白の状態だとカンマで区切られないみたいです。それで今のソースだとデータがないとエラーがでてしまうみたいです。
ためしに「東京, 」とカンマの後にスペースを入れて
If EOF(fno) = False Then
'一旦String型で受けてVariant型に入れなおす
Input #fno, sts, sts2
col(0) = sts
col(1) = sts2
Range(Cells(2, 19), Cells(2, 20)).Value = col
End If
こういう感じに書き直してみたら出力されました。
AccessVBAで操作しているんですが、csvを作るときにスペースを入れるようにすれば大丈夫な気がしてきました。
今自宅なので確認できませんが、明日試してみます。
そのときに正式なお礼をしますので、よろしくです。
レスありがとうございます。
|
|