Excel csvファイル取込時、文字列が日付に自動変換されるのを防ぐ方法

Question

前提・実現したいこと

VBAで作成したcsvファイルを別Excelに取込む際、すべてのデータを文字列として表示したい。

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

文字列データが日付形式で表示される。

試したこと

・データを”で囲む
例）"01-01" → 1月1日

・各データの先頭に’をつける
例）'01-01 → '01-01 （’まで表示されてしまう）
※’を置換&削除すると日付で表示される

・取込む際に各列の表示形式を「文字列」に設定すると解決するが、取込む度に設定するのは面倒なので不採用

csv出力のソースコード

Sub CSV出力_Click()
    Dim filePath As String ' 保存先のパス
    Dim firstRow As Long ' 開始行
    Dim firstCol As Long ' 開始列
    Dim lastRow  As Long ' 終了行
    Dim lastCol  As Long ' 終了列6
    Dim i As Long ' For文用
    Dim j As Long ' For文用
    Dim line As String ' 1行分のデータ

    ' 保存先のパスを取得
    filePath = ActiveWorkbook.Path & Format(Now(), "yymmdd") & ".csv"
    
    ' 作成するファイルを開く
    Open filePath For Output As #1
    
    ' CSV作成
     With Sheets("csv出力シート")
        '「データ」シートの開始行を取得
        firstRow = .ListObjects(1).Range.Cells(1, 1).row
        '      〃          開始列を取得
        firstCol = .ListObjects(1).Range.Cells(1, 1).Column
        '      〃          終了行を取得
        lastRow = .Cells(Rows.Count, 1).End(xlUp).row
        '      〃          終了列を取得
        lastCol = .Cells(6, Columns.Count).End(xlToLeft).Column
        
        For i = firstRow To lastRow
            line = ""
            ' 非表示と1列目が空白のデータは出力しない
            If .Rows(i).Hidden = False And .Range(.Cells(i, 1).Address).value <> "" Then
                For j = firstCol To lastCol
                    line = line & """" & .Range(.Cells(i, j).Address).value & """" & ","
                Next
                Print #1, line
            End If
        Next
    End With

    ' 作成するファイルを閉じる
    Close #1
    
    MsgBox "本マクロを起動したフォルダに、CSVファイルを作成しました。", vbInformation, "出力完了"

End Sub

補足情報（FW/ツールのバージョンなど）

csvファイルを右クリック→プログラムから開く→Excel
でcsvファイルを取込むのでcsv出力する際のVBAの修正で解決したいのですが、方法はございますでしょうか。

Win 10
Excel 2019

Comments

[退会済みユーザー]

VBA は触ったこともないので大ハズレかもしれませんが、schema.ini は試してみましたか？

JET / ACE プロバイダはデフォルトで最初の 8 行のデータをスキャンして各列のデータ型を推測しますが、その際、予期しない型に推測されてしまうことがあるのですが、それと同様なことが起こっていて「文字列データが日付形式で表示される」のかもしれません。

VB.NET + ADO.NET の話ですが、schema.ini というファイルを作り、それに文字コードや各列の型を指定して CSV ファイルと同じディレクトリに配置することにより、Shift_JIS 以外の文字コードへの対応や、上に書いた予期しない型への変換が避けられます。

[D0NKAMA]

schema.ini の存在を知らなかったので調べて試してみましたがなにも変化がありませんでした。

[220114.csv]
ColNameHeader=True
Format=CSVDelimited
Col1=番号 Text With 10
Col2=氏名 Text With 10
Col3=市町村 Text With 10

上記をメモ帳で作成→csvファイルと同じフォルダ内に保存→csvファイルをExcelで開く
としました。間違っている個所がありますでしょうか？

Answer 1

セルの見た目が01-01となるようにしたいということであれば、該当セルの値を
="01-01"
とすればCSV開いた際に文字列として読み込まれます。
データをダブルクォーテーションで囲むのはできるようなので、先頭に＝足すだけ、お試しください。

なお、数式バーには、そのまま「="01-01"」と表示されますので悪しからず…

Comments

[D0NKAMA]

まさに求めていた解決方法です！
印刷する際も正しく表示されました。確かに数式バーには「="01-01"」と表示されますが全く問題ありません！
ためになる知識を教えていただきありがとうございました。

Answer 2

変換は読み込む時に起こるので、書く側での対処は不可能でしょう。

読み込む際になんとかします。
案1：txtファイルとして読み込んで、「データ」→「区切り位置」で分割する時に文字列と指定する
案2：「データ」→「テキストまたはCSVから」でテーブルとして読み込む。その際に「データ型を検出しない」を指定。その後必要に応じて「テーブルデザイン」→「範囲に変換」する
案3：VBAで、読み込んで分割して順番にセルに突っ込むようなコードを書く