最大1万円超分の電子書籍プレゼント♪

VBAで保存しないで閉じると空のBookが残る

解決済

  • 質問者：さわ子
  • 質問日時：
  • 回答数：2件

質問させてください、VBAで保存しないでBookを閉じるコードを使用すると
「Excel」という名前の真っ白な空のBookが残っている？または開いてる？のです。
手動で閉じれば問題ないのですがせっかくVBAを使っているのでこの手間を省きたいのです。

原因のわかる方、宜しくお願い致します。

Sub　閉じる　()
Application.DisplayAlerts = False
Workbooks("××××.xlsm").Close
Application.DisplayAlerts = True
End Sub

通報する

この質問への回答は締め切られました。

質問の本文を隠す
gooドクター

A 回答 (2件)

No.1ベストアンサー

  • 回答者： WindFaller
  • 回答日時：

>「Excel」という名前の真っ白な空のBookが残っている


それだけのマクロでは、おっしゃっている現象は現れません。

>Workbooks("××××.xlsm").Close
ブックが自ブックに限るはずです。そして、その残ったものは、Excel.Application のはずです。
Excelが終わりという命令を出していないからですが、

Sub　閉じる　()
Application.Quit '命令を先にしてあげないと、マクロが途切れてしまいます。
　Application.DisplayAlerts = False
　Workbooks("××××.xlsm").Close 'または、ThisWorkbook.Close
　Application.DisplayAlerts = True
End Sub

とします。
状況が違うようでしたら、更に情報を加えてください。

ただし、Excel2010以下では、別のコードが必要になります。
    • good
    • 8
    • 件
通報する
この回答へのお礼

無事にBookを閉じることができました、ありがとうございます！

通報する
お礼日時：2019/10/12 13:47

No.2

他のブックが開かれているかもしれないので以下のようなものはいかがですか？



Sub 閉じる()

　Application.DisplayAlerts = False
　If (Workbooks.Count = 1) Then
　　Application.Quit
　Else
　　ThisWorkbook.Close
　　Application.DisplayAlerts = True
　End If

End Sub
    • good
    • 12
    • 件
通報する

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

gooドクター

関連するカテゴリからQ&Aを探す

今、見られている記事はコレ!

ページトップページトップ

Q質問する（無料）

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング

おすすめ情報

教えて!goo ウォッチ

新着一覧

ウォッチ 人気記事ランキング

ランキングをもっとみる