VBA 確認メッセージを非表示で保存

質問

VBA初心者です。
素人質問ですが、どうぞよろしくお願いいたします。

BOOK1のSheet1にwebクエリが設定されています。
Sheet１にはコマンドボタンが二つあり、
CommandButtun1にはクエリを更新するマクロ。
CommandButtun2にはクエリを更新してブックを閉じるマクロがあります。

コマンドボタン２をクリックすると、Webクエリを更新して、
ブックをメッセージなしで上書き保存したいのですが、
下記のマクロではうまく動作しません。
クエリ更新のあとの、ブック保存、クローズするマクロが動作しない状況です。

CommandButtun1のWSH.Popupが原因のようですが、
何か回避方法がありましたら、ご教授いただけませんか？

CommandButtun1には下記のマクロ
Private Sub CommandButton1_Click()

'独自のエラーメッセージを表示する（On Errorステートメント）
On Error GoTo Err_Msg

'webクエリ更新
Range("H6").Select
Selection.QueryTable.Refresh BackgroundQuery:=False

中略

Exit Sub

'エラーメッセージの指定
Err_Msg:
Dim WSH As Object
Set WSH = CreateObject("Wscript.Shell")
WSH.Popup "完了しました。", 3, "自動的に閉じます", vbYesNo + vbInformation
Set WSH = Nothing
End
End Sub
-------------------------------------------------------------------------
CommandButtun2には下記のマクロ
Private Sub CommandButton2_Click()

CommandButton1.Value = True

If ThisWorkbook.Saved = False Then
ThisWorkbook.Save
End If
ActiveWorkbook.Close
End Sub

回答No.1

keithin · ベストアンサー

現象は
１．コマンドボタン２をクリックする
２．コマンドボタン１のWEBクエリ更新が実行される
３．エラーが発生して「自動的に閉じます」が表示される
４．コマンドボタン２に復帰して保存するつもりがされない
という事ですか？

だとしたらエラーメッセージの指定部分に書いているEnd命令で終了しているのが原因なので，
対策１：End命令を削る
対策２：エラーメッセージの指定ブロックに行かない（エラーを出さない）ようにコマンドボタン１のプログラムを改修する？
対策３：何かの理由でEnd命令が削れないなら，コマンドボタン２内にWEBクエリの更新を書いて（endさせず）引き続き保存を行う
などかなと思います。

お礼

ありがとうございます。
現象ですが、

"１．コマンドボタン２をクリックする
２．コマンドボタン１のWEBクエリ更新が実行される
３．エラーが発生して「自動的に閉じます」が表示される
４．コマンドボタン２に復帰して保存するつもりがされない"

3.の部分のエラーはありません。
クエリ更新のあと”完了しました”のポップアップ表示後、
EXCELに戻り、次のプログラムには移行しません。

End　はクエリ更新処理を繰り返し行っているため、
削除はできない状態です。
プログラムの改修を試みたいと思います。

回答No.2

ShowMeHow

エクセル使ったことないけど（詳しくないけど）まず、
On error goto Err_Msg
をコメント化して（先頭に’をつけて）、実行しどの行で問題が発生しているのかを調べ、なんでそこでエラーが起きるのかを質問したほうが良いと思う。　エラーが起きた後のフローだけを書いてもらっても、わからない。　（問題は中略部分にあるんじゃないかな）