VBAでダブルコーテーションで囲んだ文字列をcsv出力するとエスケープコードまで出てしまう

Question

前提・実現したいこと

　VBAでcsvの情報を変更するコードを書いています。
最終的にダブルコーテーションで囲まれた文字列のcsvを書き出したい

発生している問題・エラーメッセージ

xlsmではダブルコーテーション1つで囲まれていますが、CSVをテキストエディタで確認するとエスケープコードまで含んだ3つのダブルコーテーションになってしまいます。

　* 　出力したいCSV文字列　　"1"
* 　現状のCSV文字列　　　"""1"""

該当のソースコード

Sub test()
 Dim i As Long
    For i = 2 To 4
        Cells(i, 1) = Chr(34) & Cells(i, 1) & Chr(34)
    Next
End Sub

出力したい結果

テキストエディタやメモ帳で開いた時にダブルコーテーションが1つになっている状態

　変数かループによるセル指定をダブルコーテーションで囲む出力方法についてご教示頂けると幸いです。

初心者なので質問自体がわかりずらい点があるかと思います。ご容赦ください。

Comments

[neconekocat]

値が「"1"」ならCSVで「"""1"""」と出力するのは正常だと思うんですが。
どういう出力を望んでいましたか？

[tf-nagai]

ありがとうございます。出力したい結果として、テキストエディタやメモ帳で開いた時にダブルコーテーションが1つになっている状態にしたいです。
質問内容に画像を追記させて頂きました。

[neconekocat]

それが目的であればExcel上で「"1"」となっているセルを「1」にすれば解決すると思いますが。

[tf-nagai]

ありがとうございます。そうするとダブルコーテーションのないcsvになってしまうのです。。

[neconekocat]

そういった特殊な出力(A列の2行目以降のフィールドのみくくる？)をしたいなら自力で出力処理を書くしかないですね。CSVとしては何の意味もないですけど。

[tf-nagai]

わかりました。ありがとうございます。

Answer 1

マクロの記録を使って、商品ID［"12"]と入力してみてください。
そしてマクロの記録をみてください
ActiveCell.FormulaR1C1 = """12"""
ダブルコーテーションは３つ付きます
詳しくはネットで検索してみてください
参考まで
http://officetanaka.net/excel/vba/tips/tips90.htm

Answer 2

戯れに作ったもので、ちゃんとテストしてないですが、せっかくなので置いときます。

Sub test_makeCSV()
    Debug.Print makeCSV(ActiveSheet)
End Sub

Function makeCSV(ws As Worksheet)
    makeCSV = WorksheetFunction.TextJoin(Split(WorksheetFunction.Rept(", ", ws.UsedRange.Columns.Count - 1) & vbLf), False, ws.UsedRange)
End Function

---

＜追記＞
元のセル値に関わらず全てのセルをダブルクォーテーションで括るのがお望みだったでしょうか。
考えてみましたが今一つスッキリと書けませんでした。

Function makeCSV(ws As Worksheet)
    Const wxw = """*""", x = "*"
    With ws.UsedRange
        Dim r, c, i, j, t
        r = .Rows.Count: c = .Columns.Count
        ReDim arr(1 To r, 1 To c)
        For i = 1 To r: For j = 1 To c
            t = .Cells(i, j).Text
            arr(i, j) = IIf(t Like wxw, t, Replace(wxw, x, t))
        Next j, i
        makeCSV = WorksheetFunction.TextJoin(Split(WorksheetFunction.Rept(", ", c - 1) & vbLf), False, arr)
    End With
End Function

Comments

[tf-nagai]

ありがとうございます。
確かにこれで行けそうな気がしたので、動かしてみましたが期待する結果ではありませんでした。
折角作って頂いたのに申し訳ありません。

なんか私の期待している応えそのものがズレてるような気がしてきました。
メモ帳で開いた時に「ダブルコーテーションがない」あるいは「ダブルコーテーションが3つになる」という現象自体こちらの問題な気がしてきました。