マクロ
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ベストアンサー
- 回答日時:
作業ブックとは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の代わりを明示する必要がありますが)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/20 14:46
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/02/07 09:58
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/06/01 14:45
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フォルダ内の全ブックのシート...
-
ExcelVBAで今開いているユーザ...
-
エクセルVBA Workbook変数に変...
-
VBA、Excelのworkbook.open に...
-
すでに開いているブックのマク...
-
excelマクロ、任意セルの値で名...
-
【ExcelVBA】指定の書式で、マ...
-
EXCELマクロでxlsとxlsxを開く方法
-
Excel VBAを後ろで動かす方法
-
フォルダ内の全ブックのシート...
-
VBAでEXCELのワークシートを削...
-
マクロで新規BOOKを複数作成(...
-
同じ名前で拡張子が違うファイル
-
エクセルのマクロについて教え...
-
フォルダ内の全てのBookに同じ...
-
複数のデータ系列の線の太さを...
-
エクセル終了時の保存確認メッ...
-
エクセルでツールバーに「縮小...
-
Powerpointでランダムな数字の...
-
ピボットグラフの書式の固定に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フォルダ内の全ブックのシート...
-
ExcelVBAで今開いているユーザ...
-
エクセルVBA Workbook変数に変...
-
【Excel VBA】ブックを複数開い...
-
【ExcelVBA】指定の書式で、マ...
-
VB2010でExcelの行をコピーして...
-
フォルダ内の全ブックのシート...
-
EXCELマクロでxlsとxlsxを開く方法
-
他のBookのユーザー定義関数を使う
-
VBA、Excelのworkbook.open に...
-
すでに開いているブックのマク...
-
フォルダ内の全てのBookに同じ...
-
[Excel VBA] フォルダ内の複数...
-
personal.xlsの削除方法
-
excelマクロ、任意セルの値で名...
-
excelでハイパーリンク 別ブッ...
-
VBA セル入力された日付データ...
-
Excel マクロでファイル名を変...
-
EXCEL VBA起動時の処理
-
VBAでEXCELのワークシートを削...
おすすめ情報