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

2008年5月29日 04:53 | カテゴリ:

Excel,
VBA

エクセルシートを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は書いた方が便利です。