-PR-
解決済み

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

  • 困ってます
  • 質問No.9428792
  • 閲覧数51
  • ありがとう数2
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 94% (191/202)

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

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

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
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

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

  • 回答No.1
レベル14

ベストアンサー率 18% (314/1658)

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

http://officetanaka.net/excel/vba/file/file03.htm
お礼コメント
shibushijuko

お礼率 94% (191/202)

ご回答ありがとうございます。ご指摘いただいたサイトを見て下記内容を追加しました。
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
このQ&Aのテーマ
このQ&Aで解決しましたか?
関連するQ&A
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-

特集


開業・独立という夢を持つ人へ向けた情報満載!

ピックアップ

-PR-
ページ先頭へ