怎样释放excel？

Question

以下是把查到的内容转入excel，可关闭excel后，excel还有运行，无法再次打开，
如何解决？
Dim xlSheet As Excel.Worksheet
   Dim MyXL As Object  
   Set MyXL = CreateObject("excel.application")
   Set MyXL = GetObject("c:\a.xls")
   MyXL.Application.Visible = True
   MyXL.Parent.Windows(1).Visible = True
   Set xlSheet = MyXL.Worksheets("sheet1")   tsql = "select * from abc"
   Set trs = executesql(tsql)
   
   xlSheet.Range("e34").Value = tRs!VDate
   xlSheet.Range("e35").Value = tRs!M    Set MyXL = Nothing
     Set xlSheet = Nothing

Answer 1

myxl.application.quit
set myxl=nothing

Answer 2

uExcel.DisplayAlerts = False '不保存后退出
uExcel.Quit
uExcel.DisplayAlerts = TrueSet uExcel = Nothing