複数のCSVファイルに追記

Question

フォルダ内にCSVファイルが20～30くらいあります。
フォルダ内のすべてのCSVファイルのAI1、AJ1に
それぞれ「状況」「結果」と追記したいです。
VBScriptで処理したいのですが知識が薄くよくわかりません。
すみませんが助けていただけませんでしょうか。

Comments

[gentaro]

丸投げの質問は推奨されません。
https://teratail.com/help/avoid-asking
CSVはタダのテキストファイルなので
「vbscript テキストファイル 追記」
あたりでググって、それでもわからない場合に具体的にわからない点を質問してください。
（わかった場合は自分で回答を書いて自己解決にすると良いと思います）

Answer 1

＜基礎知識＞
CSVファイルのCSVは、カンマで区切った(Comma-Separated)値(Values)の略で、ファイルの中身はテキスト(文字列）です。
なので、CSVファイルに「AI1、AJ1」というようなExcelのセル番地がついている訳ではありません。

例えば、以下のような内容のcsvファイルをExcelで開くと

名前,住所,電話番号

阿部,中央区銀座,080-1234-6547
伊能,港区新橋,070-2933-8765
宇賀神,北区赤羽,050-9876-7654

"名前"がA1セル、"住所"がB1セル、"電話番号"がC1セルに表示されるので、csvファイルの中にA1とか、C3というようなセル番地がついているように見えますが、単にCSVファイルの１行目の１項目目の値が、Exdelのシートの１行目の１列目(A1セル)に読み込まれるというだけです。

＝＝
＜回答＞
質問に書かれた「AI1、AJ1」のセルに読み込まれる値は、csvファイルの何処にあるかというと、
・１行目の左から34個目のカンマの右側、次のカンマの手前までがAI1セルに読み込まれる
・１行目の左から35個目のカンマの右側、次のカンマの手前までがAJ1セルに読み込まれる
ということになります。
アルファベットで表現された列番号は、A-Zが1列目から26列目、AA-AZが27列目から54列目に対応しますから、AIは35列目、AJは36列目になる訳です。

AI1、AJ1に追記したいという事であれば、
csvファイル(元ファイル)の１行目を読みだして、split関数で項目を分ける。
35項目目と36項目目の値を修正する（追記する）
join関数で、分けた項目をカンマ区切り文字列にする。
データを修正したcsvデータを書き込むcsvファイル(出力ファイル)をつくり、
join関数で作ったカンマ区切り文字列を書き込む。
「元ファイルから１行読みだして、それを出力ファイルに書き込む」
という操作を、元ファイルから読みだすデータがなくなるまで繰り返す。
最後に元ファイルと出力ファイルを閉じる。

というような事をプログラムで書けばOKです。