VBAでCSVの1行目だけを書き換える方法

解決済

質問者：liquidengine7a
質問日時：2011/12/22 10:58
回答数：3件

VBAでCSVの1行目だけを書き換える方法について質問させて頂きます。

例として、以下のようなCSVファイルが存在したとします。
１行目がデータラベルで、２行目から数値がデータとして記録されています。

A,B,C,D
1,2,3,4
1,2,3,4
1,2,3,4
1,2,3,4
1,2,3,4

一方、マクロを含んだエクセルのセル（例えばA1, B1,C1,D1)に
Anew, Bnew, Cnew, Dnew
というように新しいデータラベルが入力されています。

今回実現したい動作は、CSVファイルのデータラベルA,B,C,Dを
新しいデータラベルAnew, Bnew, Cnew, Dnewに置き換えることです。

VBAのappend機能を用いて実現しようと思いましたが、最終行に追加することはできても1行目を書き換えることができません。
ポイントとして、データは下に約50万行ほど続いているので、ワークブックとして開いたりすると最悪の場合メモリ不足で
止まってしまいます。１行目の操作だけで作業を完結させたいところです。

良い方法をご存知の方がいらっしゃればご教授いただきたく思います。
よろしくお願いします。

(以下に、最終行に追加するのに用いたコードを参考として記載します)

sub macro()

dim ch as integer
ch=freefile

open "C:\***\data.csv" for append as #ch
j=1
do while cells(1,j)<>"" 'cells(1,1)からcells(1,4)にAnew, Bnew, Cnew, Dnewが記録されています。
print #ch, cells(1,j) & ","; '改行させないため　;　を付ける
j=j+1
loop
close #ch

end sub

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： keithin
回答日時：2011/12/22 14:57

Excel VBAには可変長のランダムアクセスが無いので，一回スルーで読み書きが必要になりますね。

簡単に作ってみた例：
sub macro1()
　dim FSO as object
　dim s1 as object
　dim s2 as object
　dim buf as string

　set fso = createobject("Scripting.FileSystemObject")
　set s1 = fso.opentextfile(thisworkbook.path & "\data.csv", 1)
　set s2 = fso.opentextfile(thisworkbook.path & "\out.csv", 2, true)
　buf = "Anew,Bnew,Cnew,Dnew"

　s1.skipline
　s2.writeline buf
　s2.write s1.readall
　s1.close
　s2.close
　set fso = nothing
end sub

- 0
- 件

通報する

この回答へのお礼

サンプルまで示して頂き、ありがとうございました。
やはり基本的に書き換えることは出来ないようなので、時間はかかりますがその方針で行こうと思います。

通報する

お礼日時：2011/12/25 06:26

No.3

回答者： imogasi
回答日時：2011/12/24 15:02

1行だけの変更でも

今あるデータはあくまでデータとして、作るものは別に新しく全部作ることになる。
（１）第１レコート（見出しの１行＝１レコードデータ）はプログラムでつくり、新しいファイルに書き出す
（２）今あるファイルの１行目は、読んで読み飛ばし
（３）今あるファイルの第２レコードを読む
新しいレコードとして新しいファイルに書き出しする。
（４）（３）を最後のレコードまで繰返す。
（５）両ファイルをＣＬＯＳＥする
この基本線を抑えてないから質問になる。
固定長のランダムファイル以外はファイルの一部書き換えはしないのだ。
そういうことをスクールででも行って（や先輩から聞いて）学習してないで、ＶＢＡに入るからこういう質問になる。