Excel終了時にcsvを保存

実現したいこと

【Xxxx.xlsm】を“✕”で閉じると、タイトルバーが【Xxxx.xlsm】から、【Xxxx.csv】へと変わる。
また、所定のフォルダに【Xxxx.csv】が作成される。

【Xxxx.csv】が、変更内容を保存しますか？と聞いてくるので、確認画面なしで【Xxxx.csv】を閉じたい。

また.xlsmの、ThisWorkbookに書いたモジュールに追記する形にしたい。

発生している問題・分からないこと

.Close SaveChanges:=True／False　を使うことで、確認画面を無くすことが出来そうだと分かった。

該当のソースコード

ThisWorkbookに記載。 Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False Dim filePath As String ' ファイルの保存先とファイル名を指定 filePath = "C:\Test\" & Replace(ThisWorkbook.Name, "xlsm", "csv") ThisWorkbook.Worksheets("Sheet2").SaveAs Filename:=filePath, FileFormat:=xlCSV End Sub

試したこと・調べたこと

上記の詳細・結果

コンパイルエラー等が出てしまった。

補足

特になし