WithWorksheets(1).QueryTables(1)If.RefreshingThenMsgBox"Query is currently refreshing: please wait"Else.Refresh BackgroundQuery :=False.ResultRange.SelectEndIfEndWith サポートとフィードバック Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィ...