SaveAsメソッドでテキストファイル保存すると書式が変更される

日付の書式がm/d/yyに変わってしまう。

どーもおかしいと思ったら、そういう仕様のようだ。
SaveAsメソッドでテキストファイル保存すると書式が変更される


Microsoft Excel 2002以降なら、SaveAsのLocal 引数に True を指定すると、思い通りの形式で 保存されます。

ActiveWorkbook.SaveAs Filename:="aaa.csv", FileFormat:=xlCSV, Local:=True

ExelVBAシートをカンマ区切りCSV形式で保存するマクロ

デスクトップに出力のパターンはこんな感じ

Sub saveAsCSV()

    Application.DisplayAlerts = False

    'デスクトップへ出力
    Dim MyWSH  As Object
    Set MyWSH = CreateObject("WScript.Shell")
    myDeskTopPath = MyWSH.SpecialFolders("Desktop")
    Set MyWSH = Nothing

    Sheets("Sheet1").Copy
    ActiveWorkbook.SaveAs Filename:= myDeskTopPath + "\test.csv", FileFormat:=xlCSV
    ActiveWindow.Close

    Application.DisplayAlerts = True

End Sub

ネタ元