【VBA】CSVで保存すると日付が逆になる時の対処法

VBAでCSVファイルを出力した際に日付データの形式が勝手に「yyyy/m/d」から「m/d/yyyy」に変換されて困ることがありました💦

対処法はFileFormatのあとに「,Local:=True」を追記するだけで解消します。

コードで具体的に説明していきます。

30日間無料登録できる「Amazonプライム会員」に登録すれば、翌日に購入した商品が届くお急ぎ便・お届け日時指定便の指定ができるので、荷物をなるべく早く受け取りたい人にオススメ！

無料体験期間中もAmazonプライムビデオや1億曲以上聞き放題のAmazon Musicなど、すべてのプライム会員特典がセットになっています！

　　30日間の無料体験はこちら！　　

うめ

30日間以内に解約すれば費用は発生しません！

NGパターン
OKパターン

NGパターン

これでCSVファイルを出力するとDateの部分が「m/d/yyyy」に変わります。

Sub Sample_NG()

    Application.DisplayAlerts = False
    
    '新規ファイル作成
    Workbooks.Add
    
    With ActiveSheet
        .Cells(1, 1) = "動作確認"
        .Cells(1, 2) = Date
    End With
    
    'CSVで保存
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "Sample.csv", FileFormat:=xlCSV
    ActiveWorkbook.Close True
    
    Application.DisplayAlerts = True

End Sub

Sub Sample_NG()

Application.DisplayAlerts = False

'新規ファイル作成

Workbooks.Add

With ActiveSheet

.Cells(1, 1) = "動作確認"

.Cells(1, 2) = Date

End With

'CSVで保存

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "Sample.csv", FileFormat:=xlCSV

ActiveWorkbook.Close True

Application.DisplayAlerts = True

End Sub

OKパターン

NGとの違いはFileFormatのあとに「,Local:=True」を付けるだけです！

Sub Sample()

    Application.DisplayAlerts = False
    
    '新規ファイル作成
    Workbooks.Add
    
    With ActiveSheet
        .Cells(1, 1) = "動作確認"
        .Cells(1, 2) = Date
    End With
    
    'CSVで保存
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "Sample.csv", FileFormat:=xlCSV, Local:=True
    ActiveWorkbook.Close True
    
    Application.DisplayAlerts = True

End Sub