[求助]用VB打开excel后关闭它，再运行时VBA代码不执行。

On Error Resume Next
Set AppExcel = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
bolExcelWasNotRunning = True
Set AppExcel = CreateObject("Excel.Application") '建立EXCEL对象
Set ExcelBook = AppExcel.Workbooks.Add() '建立一个新的Excel文档
ExcelBook.Activate
AppExcel.Visible = True
Set ActiveSheet = ExcelBook.Sheets.Add() '建立一个新的工作表
ActiveSheet.Name = "统计表"
XlsName = ActiveSheet.Name
End If
Err.Clear

'''上面是打开excel的代码，第一次运行时，可以通过，当我关闭了excel后（进程里的excel.exe也关闭了，但VB程序没关）。打开excel表，可以打开。我单步执行时发现，下一条执行到VBA代码时就跳出来了。我试了很多办法。AppExcel.quit， set ExcelBook =nothing 都没用。如果不用 On Error Resume Next，等执行到Set AppExcel = GetObject(, "Excel.Application")时就出错。希望能得到高手们的指点。先谢了。