CSVデータについての質問です。

質問

現在、EXCELのマクロを使用して会計システムに取込むCSVデータを作成しております。
データフォーマットを見るとディテール（細かなデータ）をヘッダーとトレーラーで挟み込む形になっています。
ヘッダーは3列、ディテールは20列、トレーラーは5列です。
これらをCSV形式で作成し、メモ帳を開くと以下のようになります。
＜例＞
1,200,090,624,2,,,,,,,,,,,,,,,（←ヘッダー）
2,1,2415,2415,0,1,2009,802,1915,,0,0,1,1,,1,1915,1915,111,200908
2,1,3125,3125,0,1,2009,802,2225,,0,0,1,1,,1,2225,2225,111,200908
2,1,3233,3233,0,1,2009,802,1563,,0,0,1,1,,1,1563,1563,111,200908
8,84,435053,0,0,,,,,,,,,,,,,,,（←トレーラー）
このように20列に満たない分、ヘッダーとトレーラーに,（カンマ）が入ってしまい、この部分に,（カンマ）があるとデータを取込めません。
この部分のカンマを取るマクロがあれば教えていただきたいのですが。
よろしくお願いします。

回答No.5

rukuku · ベストアンサー

#3のrukukuです。
実際のコードの例です。
この例は（実際に使用した例です）、各列のデータが文字列と数値が混ざっていますので適宜ダブルコーテーションをつけています。…変数、DCやDcCで行っています。

Cells(Rows.Count, "A").End(xlUp).Row
はデータの行数が変化するため、最終行を拾うようにしています。
同様に、
Cells(i, Columns.Count).End(xlToLeft).Column
で各行の最終列が分かります（iはこれから書き出しをしようとしている行番号です）。考え方として簡単なのは、この行数で判断して、ヘッダ、ディテール、トレーラーと処理を分けることです。

Open "C:\xxx\yyyy.csv" For Output As #1
C = ","
DC = Chr(34)
DcC = Chr(34) & ","
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
data = DC & Cells(i, "A") & DcC
data = data & DC & Cells(i, "B") & DcC
data = data & Cells(i, "C") & C
data = data & Cells(i, "D") & C
data = data & DC & Cells(i, "E") & DcC
'…（中略）
data = data & Cells(i, "W") & C
data = data & Cells(i, "X") & C
data = data & DC & Trim(Cells(i, "Y")) & DcC
Print #1, data
data = ""
Next i
Close #1

もしデータが数値だけでしたら、
Open "C:\xxx\yyyy.csv" For Output As #1
C = ","
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
For j=1 To Cells(i, Columns.Count).End(xlToLeft).Column
data = data & Cells(i, j) & C
Next j
data = Left(data, Len(data) - 1) '最後のコンマを取り除く
Print #1, data
data = ""
Next i
Close #1

でできます。

補足

rukuku様
ご丁寧な回答ありがとうございます。早速、何度か試みてみたのですが、データが消えてしまいうまくいきませんでした。
ヘッダーとトレーラーの末尾に存在する連続するカンマだけいらない（末尾以外のカンマはいります）のですが、他に方法があればご教示ください。よろしくお願いします。

回答No.7

rukuku

>早速、何度か試みてみたのですが、データが消えてしまいうまくいきませんでした。
正確な状況が分かりませんが、説明不足の部分もありましたので補足します。

このマクロでは、ブックやシートの指定を省略しています。
従って、元のデータとして使われるのは、マクロを起動した時点でのアクティブなブックのアクティブなシートです。
別のブックやシートがアクティブになっている状態で起動した場合には思い通りの結果になりません。

＞ヘッダーとトレーラーの末尾に存在する連続するカンマだけいらない（末尾以外のカンマはいります）のですが
それを行っているのが、
data = Left(data, Len(data) - 1) '最後のコンマを取り除く
です。最後のカンマ（正確には最後の１字）を取り除いています。

回答No.6

Cmi

>早速、何度か試みてみたのですが、データが消えてしまいうまくいきませんでした。
rukukuさんは例を挙げてくださっていますので、ある程度の変更は必要です。
iは2からスタートだと1行目が消えてしまうかも？

>ヘッダーとトレーラーの末尾に存在する連続するカンマだけいらない
この例では、全行の末尾カンマを取り除きますが、If文などで条件を指定して、ヘッダーとトレーラーのみカンマ削除の処理を行うようにすれば良いとおもいます。

補足

式を変更してみました。
マクロの式で連続するカンマを取り除くとひとつの数字になってしまいました。
＜例＞のヘッダーですと、“1,200,090,624,2,,,,,”が“12000906242”というように。
カンマをひとつ残すようにすると“1,200,090,624,2,”となるのですが、やはり最後のカンマはいりません。

異なるカラム数にデータを作りたいのですが、うまくいきません。

回答No.4

cistronezk

要は、連続するカンマ１７個と連続するカンマ１５個を消去できればいいということではないかと思います。
それならフリーソフトを使って全ファイルの一括置換をすればいいのでは？
ここにいくつかあります。
http://freesoft-100.com/pasokon/replace.html

参考URL：

http://freesoft-100.com/pasokon/replace.html

補足

回答ありがとうございました。
早速、試してみました。CSVをTXTに変換してできましたが、置換後の文字列が空白を指定できないこと、フリーソフトを起動させてからカンマを取り除くのは手間がかかることから、できればマクロでできないかと考えている次第でございます。
でも面白いソフトがあるものですね。

回答No.3

rukuku

こんばんは

単純に、「ファイル→名前をつけて保存→csv形式を選択」という方法では、ご質問のようになります。マクロから行っても同じです。

しかし、マクロを使えば、１行ずつテキストファイルに書き込んでいくことも可能です。この方法ならば、行によって列数が違っても対応できます。詳細の説明を用意するには少々時間がかかるので、お待ちください。

回答No.2

Sinogi

全てのデータを1行づつ書き出したらどうでしょう？

Const sFilePath = "C:\～\ファイル名.CSV"
Open sFilePath For Output As #1
Print #1, "1,200,090,624,2"
Print #1, "2,1,2415,2415,0,1,2009,802,1915,,0,0,1,1,,1,1915,1915,111,200908"

ってなかんじでいかがですか?

補足

回答ありがとうございます。
データ数、データ内容共に変動するため、残念ながらひとつひとつプログラムすることができません。

回答No.1

Cmi

CSV形式というのはそういうものだと思いますので、
CSV形式で扱っている以上、こうなるものだと思います。

会計システムというのは市販のものなのでしょうか？
CSV形式を読込めていない、会計システム側が問題のような気がしますが。

補足

回答ありがとうございます。
CSV形式でもできます。
今までオフコンでデータを加工しておりましたが、オフコン廃止に伴いマクロでデータを作ることになりました。
オフコン経由で作られたデータではヘッダーとトレーラーのカンマ(,)は取れています。