如何判定Excel已经打开？

[cyp503]

Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open(fileName)

由于Excel数据比较多，打开比较慢，我想做一个打开的进度显示，请问如何实现？

[Intelement]

Dim appXls As Excel.Application

Private Sub Form_Load()

On Error GoTo ErrHandler

Set appXls = GetObject(, "Excel.Application")

'...

Set appXls = Nothing

Exit Sub

ErrHandler:

If Err.Number = 429 Then ' Excel Application has not been opened.

'...

Resume

End If

End Sub