Excel VBA 質問スレ Part61

Excel VBA 質問スレ P ..

330:デフォルトの名無しさん
19/05/24 01:42:55.95 9kKOGm+S0.net
Excel2016にてpersonal.xlsbに「保存せず閉じて開き直すマクロ」を作ったところ挙動が変です
Sub ReOpen()
　　Dim wb As Workbook
　　Dim path As String
　　Set wb = ActiveWorkbook
　　path = wb.fullName
　　'※1
　　If MsgBox("本当に変更を取り消しますか？", vbYesNo) <> vbYes
　　　　Exit Sub
　　End If
　　wb.Close(False)
　　Application.Wait([Now() + "00:00:01"])
　　'※2
　　Workbooks.Open(path)
End Sub
このマクロ自体は動くのですが、※1のIf～EndIfを消すと※2のOpen実行直後にExcelが通知無く落ちます
また、※1※2を両方消してマクロ実行した後、手動でブックを開き直すとやっぱりExcelが落ちます
対象のブックはフォームやマクロを含んだ3MB程度のxlsmファイルです
MsgBox出さないだけでなぜ不安定になるのか、思いつく原因を教えて頂けると幸いです

次ページ

続きを表示

1を表示