[Exel VBA]シートをカンマ区切りCSV形式で保存する

エクセルシートをCSV形式でエクスポートするマクロ。
Sub saveAsCSV()

    Application.DisplayAlerts = False
    
    Sheets("Sheet1").Copy
    ActiveWorkbook.SaveAs Filename:="C:\test\test.csv", _
        FileFormat:=xlCSV
    ActiveWindow.Close
    
    Application.DisplayAlerts = True

End Sub
最初と最後の Application.DisplayAlerts は無しでも動きます。 ですが、これがないと下記のような警告ダイアログが2回も出て邪魔なので、 Application.DisplayAlertsは書いた方が便利です。
excel_alert_1.JPG
excel_alert_2.JPG
カテゴリ: