エクセルのマクロについて教えてください。

マクロ
Sub 保存()
Application.ScreenUpdating = False
Dim wb As Workbook
Set wb = ThisWorkbook
wb.Worksheets("一戸建て等（機構承認住宅用）").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=wb.Path & "\" & ActiveSheet.Range("B7").Value & ".xlsx", FileFormat:=xlOpenXMLWorkbook
ActiveWorkbook.Close False
Application.DisplayAlerts = True
Application.Quit
wb.Close False
End Sub
があります。
このマクロを実行すると
指定セル値に表示される文字をファイル名として「.xlsx」方式で保存されます。
このマクロを実行し
ファイルが保存された
タイミングで
マクロがある、作業ブックを削除できる方法を教えてください。
（警告文のダイナログ無し）
ファイル名が保存された後は
作業ブックは必要無くなりますので。
よろしくお願いします。

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2023/05/23 16:07

作業ブックとはThisWorkbookを指すと思われるのですが

この作業にまつわる処理は行わないと言う事で良いのでしょうか？
であれば、どうせ1度しか行わないので手作業で削除するのがよろしいかと思いますよ

With wb
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
Application.Quit
.Close (False)
End With
Application.DisplayAlerts = True

End Sub

wb.Pathを取得できているので関係ないですが
もし作業ブック（ThisWorkbook）がテンプレートなどから作られ
保存していない場合は、単純に保存せずに閉じれば良いです
（wb.Pathの代わりを明示する必要がありますが）

この回答へのお礼

いつも、回答をありがとうございます。
参考にさせていいただきます。

お礼日時：2023/05/23 16:18