VB如何释放EXCEL

Sub ConExcel() '连接EXCEL表
    Set ModPublic.xlApp = CreateObject("Excel.Application") '创建EXCEL对象
    Set ModPublic.xlBook = xlApp.Workbooks.Open(FrmSystemMain.Tdz.Text) '打开EXCEL文件
End Sub

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function WinStationTerminateProcess Lib "winsta.dll" (ByVal hServer As Long, ByVal ProcessID As Long, ByVal ExitCode As Long) As Long
Sub QuitExcel() '关闭并保存EXCEL表
    ModPublic.xlBook.Save
    xlHwnd = xlApp.hwnd
    Dim PID As Long
    Call GetWindowThreadProcessId(xlHwnd, PID)
    ModPublic.xlBook.Close (True)
    Set ModPublic.xlBook = Nothing
    ModPublic.xlApp.Quit
    Set ModPublic.xlApp = Nothing
End Sub

这样写进程中的EXCEL释放不了~！？
[解决办法]
请参考这个例子
[解决办法]
此类回答过N遍了，不会用 Google 吗？
http://bbs.csdn.net/topics/310268336