- 820 名前：デフォルトの名無しさん mailto:sage [2022/01/30(日) 02:59:23.74 ID: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
