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")时就出错。希望能得到高手们的指点。先谢了。
[求助]用VB打开excel后关闭它,再运行时VBA代码不执行。