22/01/30 02:59:23.74 MQJLXGaO0.net
>>813
Sub save_sheet_as_csv()
Dim this As Worksheet: Set this = ActiveSheet
Dim sheet_name As String: sheet_name = this.Name 'ワークシート名取得
Dim save_folder As String: save_folder = "c:\tmp\" '保存先フォルダ指定
Dim save_fullpath As String: save_fullpath = save_folder & sheet_name & ".csv"
this.SaveAs Filename:=save_fullpath, FileFormat:=xlCSV 'CSVで保存
End Sub