Private Sub Command1_Click()
Dim i As Long
XlSheet.application.statusbar = "兴趣是最好的老师"
Do
    For i = 1 To 100000
        DoEvents
    Next
    XlSheet.application.statusbar = Right(XlSheet.application.statusbar, Len(XlSheet.application.statusbar) - 1) _
        & Left(XlSheet.application.statusbar, 1)
    If XlApp.Quit Then Exit Do          这句出错      
Loop
End Sub
我向用VB控制EXCEL表格状态栏显示滚动文字，以上是代码。
我想关闭EXCEL后，退出DO LOOP循环，可是出错

如何解决？谢谢！

搞定了。
Private Sub Command1_Click()
Dim i As Long
XlSheet.Application.StatusBar = "兴趣是最好的老师"
On Error GoTo lblErr
Do
    For i = 1 To 100000
        DoEvents
    Next
    XlSheet.Application.StatusBar = Right(XlSheet.Application.StatusBar, Len(XlSheet.Application.StatusBar) - 1) _
        & Left(XlSheet.Application.StatusBar, 1)
    'If XlApp.Application = Nothing Then Exit Do
Loop
lblErr:
    MsgBox "Excel已关闭"
End Sub

If XlApp.Application is Nothing Then Exit Do
好像可以这样用。
手头上这个电脑上没VB了，没办法测试。

不行，有错误。

回头明天测试一下。
按理来有状态可以检测的，一般情况下，不要使用 错误捕捉 去处理正常的程序。

要么就是可能就是 只需要测试
XlApp is Nothing

--------------------
运行这报错，点调试，然后点菜单，窗口，本地窗口 ，检查这个对象是什么状态，写什么判断。

谢谢！你帮我测试一下。