怎么结束不了进程的?

[LichKingSZ]

我用以后代码联Excel,但是结束后在任务管理器里还是看到"EXCEL.EXE"进程,有什么办法结束呀?
Set sApp = CreateObject("Excel.Application")
Set sBook = sApp.Workbooks.Open(App.Path & "\data\15.xls")
Set sSheet = sBook.Worksheets("stat")
'在Excel中写入数据
For i = 3 To 18
.Row = i - 2
For j = 3 To 7
.Col = j - 1
sSheet.Cells(i, j) = .Text
Next j
Next i
Set sApp = CreateObject("Excel.Application")
Set sBook = sApp.Workbooks.Open(App.Path & "\data\15.xls")
Set sSheet = sBook.Worksheets("stat")
sApp.Visible = True
'预览
sSheet.PrintPreview
sApp.DisplayAlerts = False '不提示储存
sApp.Save
sBook.Close
sApp.Quit '强行把Excel给关闭
Set sSheet = Nothing
Set sBook = Nothing
Set sApp = Nothing

[coolsky]

Set sApp = CreateObject("Excel.Application")

你看看，你create了两次，却只关闭了一次。
一个文件你为什么要打开两次呐？

[LichKingSZ]

是啦,哈...最近脑子锈豆啦,哈....给你分

[pupufang]

来迟了，不好意思，给我点