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

2008/05/29

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は書いた方が便利です。

カテゴリ: VBA Excel