Excel VBA 質問スレ Part74

[814 デフォルトの名無しさん (ﾜｯﾁｮｲ f1ce-Xc5L) 2022/01/30(日) 02:59:23.74 ID:MQJLXGaO0]

>>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