EXCELでCSV形式保存時、""をつけたい

質問

EXCELで、"～","～","～" の形式になっているCSVファイルを読み込み、再び保存すると、～,～,～ のように、""を削除されてしまいます。
これを、保存時にも""がつくようにしたいのですが、何か方法はないでしょうか？

回答No.2

imogasi · ベストアンサー

ＶＢＡでやってみます。
ＷＲＩＴＥ　＃という便利なステートメントがありますので利用します。
シートのＡ１；Ｃ３に
1 aa 京都
3 dfg 神戸
45 大阪 ＃４５
とあるとします。
標準モジュールに
Sub test01()
Dim a(5)
Open "C:\Documents and Settings\XXXX\My Documents\test01X.csv" For Output As #1
d = Range("A65536").End(xlUp).Row
For i = 1 To d
For j = 1 To 3
a(j) = Cells(i, j)
'MsgBox a(j)
Next j
Write #1, a(1); a(2); a(3)
Next i
Close #1
End Sub
を実行すると
メモ帳で見ると
1,"aa","京都"
3,"dfg","神戸"
45,"大阪","＃４５"
となりました。
昔のＤＯＳ－Ｂａｓｉｃ時代はこれが標準だったと思いますが
（１）””なしの、カンマだけで区切る（質問のエクセルＣＳＶ）
（２）上記の形式（数値はダブルコーテーションをつけず、文字列だけにつける）
（３）全フィールドにダブルコーテーションを着ける
の３種類考えられるが（３）なら修正が必要ですが、どうでしょうか。上記コードのアウトプットファイルのＰＡＴＨと列数は自分のケースに修正してください。
列数もEnd(xlToLeft)で取れますが略。

回答No.1

KenKen_SP

こんにちは。KenKen_SP です。

結論から言えば、VBAで自力書き出しすることになります。
Excel の CSV はセル内改行ある場合、そこだけ””と括られますが、全体を
となると書き出しオプションがないので、 VBA でやるしかないと思います。