无法关闭Excel进程的问题

Question

通过vb代码打开一个Excel模版，然后修改其中单元格的颜色后，把excel关掉后，任务管理器还是有一个Excel进程。而且不退出程序，第二次跑代码就会出错，求高手指点，谢谢了！代码如下：//创建对象
Public appReport As Excel.Application
Public wbReport As Excel.Workbook
Public shtReport As Excel.Worksheet
Public rngReport As Excel.RangeSet appReport = CreateObject("Excel.Application")
Set wbReport = appReport.Workbooks.Open(XlsName)
Set shtReport = wbReport.Sheets(1)
Set rngReport = shtReport.Columns(1)//改变表格颜色
Range(A3:Q3).Select     
With Selection.Interior
     .ColorIndex = 36
End With//省略一堆代码。。//关闭对象
wbReport.SaveAs ToFileName
wbReport.Close False
    
Set rngReport = Nothing
Set shtReport = Nothing
Set appReport = Nothing
Set wbReport = Nothing

Answer 1

wbReport.Close False
appReport.quit

Answer 2

king06，试过改成appReport.quit，还是不行。dbcontrols，这句是否有什么问题？请明示。

Answer 3

//创建对象
Public appReport As Excel.Application
Public wbReport As Excel.Workbook
Public shtReport As Excel.Worksheet
Public rngReport As Excel.RangeSet appReport = CreateObject("Excel.Application")
Set wbReport = appReport.Workbooks.Open(XlsName)
Set shtReport = wbReport.Sheets(1)
Set rngReport = shtReport.Columns(1)//改变表格颜色
Range(A3:Q3).Select   
With Selection.Interior
  .ColorIndex = 36
End With//省略一堆代码。。//关闭对象
wbReport.SaveAs ToFileName
wbReport.Close False
appReport.quit  '结束excel对象
    
Set rngReport = Nothing
Set shtReport = Nothing
Set wbReport = Nothing  '这两个颠倒一下，这样更符合大小逻辑
Set appReport = Nothing

Answer 4

不是改,是加那么一句. 先确认你的进程里面没有EXCEL在运行了.
另外,一般情况下加上错误处理的好,释放对象的顺序最好"从内到外".比如
errHandle:
    '不覆盖时释放对象
    appReport.DisplayAlerts = False
    wbReport.Close
    appReport.DisplayAlerts = True
    Set rngReport = Nothing
    Set shtReport = Nothing
    Set wbReport = Nothing
    Set appReport= Nothing

Answer 5

我只要把下面这段注释了，程序就没有问题，我受不了了//改变表格颜色
Range(A3:Q3).Select   
With Selection.Interior
  .ColorIndex = 36
End With

Answer 6

改成
shtReport.Range(A3:Q3).Interior.ColorIndex = 36

Answer 7

关于改变表格背景颜色，可以改成：
shtReport.UsedRange.Interior.Color = vbBlue