Sub シートをCSVファイルとして別ファイルで出力保存する() '"Sheet1"が対象シート '保存CSVフルパスで指定 Worksheets("Sheet1").SaveAs Filename:="C:\サンプル.csv", FileFormat:=xlCSV End Sub