みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

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

締切り済みの質問

Excel VBA ブックが閉じれない

Excel2016を使用してVBAを使用しています。
VBA初心者ですが、よろしくお願いします。

質問内容は以下になります。
EXCEL起動と同時にUserFormを表示させ、UserForm上のコマンドボタンから
ダイアログボックスを表示し、他ブックを開く処理なのですが、
他ブックを開くまでは問題ないのですが、他ブックが閉じれない状態になります。

Private Sub Workbook_Open()
UserForm1.Show
End Sub

Private Sub UserForm_Initialize()
 各種処理
End Sub

Private Sub CommandButton1_Click()
Dim OpenFileName As String
SetCurrentDirectory (Worksheets(1).Cells(11, 3))
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
Workbooks.Open OpenFileName
End Sub

UserFormを閉じると開いたブックも閉じることが可能です。
タスクマネージャーから強制的に終了しようとすると、以下メッセージが出ます。

”開いているダイアログボックスがあるため、Microsoft Excel を終了できません。[OK]をクリックしてから、Microsoft Excelに切り替えてダイアログを閉じて下さい。"

UserFormを閉じないで他ブックを閉じるには、どうすれば宜しいでしょうか。
申し訳ございませんがご教授下さい、よろしくお願いいたします。

投稿日時 - 2019-03-12 11:16:48

QNo.9596063

すぐに回答ほしいです

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

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

回答(1)

ANo.1

別なExcelオブジェクトを作って開いてみては?
質問の意味を取り違えていたらごめんなさい。

Workbooks.Open OpenFileName

Set oXl = CreateObject("Excel.Application")
oXl.Workbooks.Open OpenFileName
oXl.Visible = True

投稿日時 - 2019-03-12 13:30:03

お礼

コメント有難うございます。
UserForm1.Show vbModeless で閉じることが出来ました。
お手数をおかけしました。

投稿日時 - 2019-03-12 14:02:07

あなたにオススメの質問