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

不行，有错误。

谢谢！你帮我测试一下。