On Error Resume Next
Dim objExcel
Set objExcel = GetObject(, "Excel.Application")
If Not objExcel Is Nothing Then
    objExcel.DisplayAlerts = False
    objExcel.Quit
    Set objExcel = Nothing
End If
WScript.Echo "Excel closed"