VBAでシートをCSVとして出力すると特定の文字列が勝手に書き換えられる

Question

シートに設置したボタンをクリックすると、シート内のセルに入力されている内容をCSVとして保存するマクロを組みました。

Dim ws As Worksheet
    Set ws = Worksheets("sheet1")
    
    Dim csvFile As String
        csvFile = "保存先ディレクトリ￥出力.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 ws.Cells(i, j + 1).Value <> ""
    
            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

出力されたcsvをエクセルで開いて確認すると「01－1」という文字列が勝手に日付に変換されていたり、「01」「02」といった文字列が「1」「2」に変換されてしまいます。
メモ帳で開いて確認すると、「01－1」という文字列は日付に変換されずに正常に表示されるのですが、「01」「02」といった文字列は相変わらず「1」「2」に変換されてしまいます。

どうすれば勝手な変換・変更を止められますか

win10 64bit
excel 2013 64bit

Answer 1

原因は質問本文に書いたマクロでは、空白セルを検出した時点で次の行を処理することになることが原因で改行直前のセルの内容と直後のセルの内容が融合してしまっていたことでした。
日付に書き換わるのはエクセルの使用とごっちゃにして考えていたので、融合によって文字列が変わっていることに気がつかず、なにか変換されているのだと決め付けてしまっていました。

ActiveWorkbook.SaveAs filename:="保存先ディレクトリ￥出力.csv", FileFormat:=xlCSV, CreateBackup:=False

これでCSV出力すれば解決しました。
日付に変換される問題については、出力時ではなく、CSVをエクセルに入力した時点で発生していることがわかり、当方の環境では問題がないことが発覚したのでこれで解決ということにさせていただきます。

Answer 2

ws.Cells(i, j + 1).Value の部分を ws.Cells(i, j + 1).Text としたらどうでしょう。

Comments

[tatatace]

ご回答ありがとうございます。
試してみましたが、結果変わらずでした。