如何让程序在中间暂停?
Dim xl As New Excel.Application
Dim WorkbookOpen As Workbook
Set WorkbookOpen = xl.Workbooks.Open("c:\test.xls", , False)
xl.Visible = True
DoEvents
MsgBox "ok"
On Error Resume Next
WorkbookOpen.Close
Set WorkbookOpen = Nothing
Set xl = Nothing
On Error GoTo 0
我想等用户关闭EXCEL后弹出"ok"提示框,怎么做?