こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

開いているブックをバックアップ後閉じる方法

開いているマクロブックのバックアップを実行すると、開いているマクロブックは閉じられ、バックアップファイルが作成されるまではいいのですが、バックアップファイルが開いたままになります。

出来ればバックアップファイルも閉じるようにしたいのですが、何を追記すればよいでしょうか?

Sub バックアップ()
Dim rc As Long
rc = MsgBox("バックアップしますか?", vbYesNo + vbQuestion, "確認")
If rc = vbYes Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\excel\" & Format(Date, "yyyymmdd") & ".xlsm"
Application.DisplayAlerts = True
End If
End Sub

投稿日時 - 2018-02-13 21:58:09

QNo.9428792

困ってます

質問者が選んだベストアンサー

ファイル名を、取得して
クローズする事は、
試されましたか?

http://officetanaka.net/excel/vba/file/file03.htm

投稿日時 - 2018-02-14 01:37:07

お礼

ご回答ありがとうございます。ご指摘いただいたサイトを見て下記内容を追加しました。
ActiveWorkbook.Close

これで保存されたブックは閉じますが、Excel自体が閉じないので、以下のVBAを作成して、希望通りになりました。


Sub バックアップ()

Dim rc As Integer
rc = MsgBox("バックアップを続行しますか?", vbYesNo + vbQuestion, "バックアップ")
If rc = vbYes Then
MsgBox "バックアップ完了しました。全てのウインドウが閉じられます。"

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "C:\excel\" & Format(Date, "yyyymmdd") & ".xlsm"
Application.DisplayAlerts = True

ActiveWorkbook.Saved = True
Application.Quit
ActiveWorkbook.Close

Else
MsgBox "処理は中断されました"
End If

Application.Quit
ThisWorkbook.Close

End Sub

投稿日時 - 2018-02-14 12:46:32

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)