檔案關閉!(編號:5731)

我開一個檔案,如何知道它關閉了?
以下是我的程式碼!Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open "c:\project\interface\Input.xls"
xlApp.Visible = True

pHnd = OpenProcess(PROCESS_QUERY_INORMATION, 0, xlApp)
Do
Call GetExitCodeProcess(pHnd, ExitCode)
DoEvents
Loop While ExitCode = STILL_ALIVE
Call CloseHandle(pHnd)