Excel閉じる時にCSVも保存

Question

実現したいこと

“✕”を押下して閉じるタイミングで、4枚あるシートのうち、sheet2のみを指定したフォルダにブック名と同じ名前のcsvファイルとして保存する事は出来ますか。

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

マクロを登録したボタンを押すと、CSVを出力するというものはあった。

該当のソースコード

特になし

試したこと・調べたこと

• teratailやGoogle等で検索した
• ソースコードを自分なりに変更した
• 知人に聞いた
• その他

上記の詳細・結果

✕で閉じたタイミングで、CSV出力という動きをさせるものは見つけることが出来ませんでした。

補足

特になし

Comments

[tatsu99]

下記URLに、ブックが閉じる時にマクロを自動実行する方法が書かれています。
https://excel-ubara.com/excelvba4/EXCEL240.html
「マクロを登録したボタンを押すと、CSVを出力するというものはあった。」ということなので
そのマクロを、実行するようにすれば、良いかと。

Answer 1

ThisWorkbook のモジュールに下記のコードを記述すればいいでしょう。

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

Workbook.BeforeClose イベント (Excel) | Microsoft Learn

Worksheet.SaveAs メソッド (Excel) | Microsoft Learn

Comments

[ATSUHAYAshi]

ありがとうございます。

閉じる度に、変更内容を保存しますか？と聞いてくるので、保存を選択し同じ名前を選び、上書き保存をする必要があるのですが、同じ名前のcsvがあれば、上書にする事はできますでしょうか？

[ATSUHAYAshi]

詳細な動き。
.
.xlsmを閉じるとファルダ内に、.csvが作成される。

.csvの変更内容を保存しますか？と聞かれる。

【保存しない】を選んでも、csvファイルは間違いなく保存されている。

再度、xlsmを開き追記して、上書き保存をして閉じる。
csvの更新日時が変わる。

同じ様に保存を聞かれるので、保存しないを選ぶ。

csvを確認すると、追記した内容は反映されている。

上記から、保存するか聞いてくる不要な動きをしてるかと思います。