エクセルからCSVへ出力時のセル内改行の処理方法

Question

エクセルのシート情報をCSVへ変換するマクロを作成しております。
下記のコードでエクセルデータをCSVに変換するには出来たのですが、
セル内改行データを含んでいるので
その部分の処理結果がセル内の改行ではなく、セル内の各行ごとに一つのセルで出力されてしまいます。
エクセルデータと同様にセル内改行をCSVに出力して欲しいのですが
","区切りでセルを分けているので、セル内改行をどう処理すればいいか、いまいちわかりません。
わかる方いたらご教授お願いいたします。

Sub エクセル出力CSV()

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)

Dim csvFile As String
csvFile = ActiveWorkbook.Path & "\テスト.csv"

Open csvFile For Output As #1

Dim i As Long, j As Long
i = 1

Do While ws.Cells(i, 1).Value <> ""

    j = 1
    Do While j < 100

        Print #1, ws.Cells(i, j).Value & ",";
        j = j + 1

    Loop

    Print #1, ws.Cells(i, j).Value & vbCr;
    i = i + 1

Loop

Close #1

MsgBox "テスト.csvに書き出しました"

End Sub

コード

Answer 1

セルの文字列(ws.Cells(i, j).Value)を、ダブルコーテションで囲むようにするとよいのでは？

（例）
Print #1, """" & ws.Cells(i, j).Value & """" & vbCr;

Comments

[tkt1964]

アドバイスありがとうございました。
参考にして少し工夫して出来ました！！

[Takeshi_Ueda]

解決してなによりです。

[Takeshi_Ueda]

解決済みに更新しておいてください。