日付の書式がm/d/yyに変わってしまう。
どーもおかしいと思ったら、そういう仕様のようだ。
SaveAsメソッドでテキストファイル保存すると書式が変更される
Microsoft Excel 2002以降なら、SaveAsのLocal 引数に True を指定すると、思い通りの形式で 保存されます。
ActiveWorkbook.SaveAs Filename:="aaa.csv", FileFormat:=xlCSV, Local:=True
日付の書式がm/d/yyに変わってしまう。
どーもおかしいと思ったら、そういう仕様のようだ。
SaveAsメソッドでテキストファイル保存すると書式が変更される
Microsoft Excel 2002以降なら、SaveAsのLocal 引数に True を指定すると、思い通りの形式で 保存されます。
ActiveWorkbook.SaveAs Filename:="aaa.csv", FileFormat:=xlCSV, Local:=True
COUNTIF()を使う
=IF(COUNTIF($B$3:B3,B3)>1,"重複","")
詳しくはこちら
デスクトップに出力のパターンはこんな感じ
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
ネタ元
バージョンによって場所が違うから困る。
ネタ元