只有高手才能帮我了....

先退出，再設置為Nothing
objExcelapp.Quit()
objExcelapp = Nothing
objWorkBook= Nothing
objWorkSheet = Nothing

這句
objWorkBook.Close(False)
你想實現什麽？

以下函數刪除進程
  Private Sub KillExcel() '避免進程沖突，殺死現有excel進程
        Dim pProcess() As Process
        pProcess = Process.GetProcesses()
        Dim i As Integer
        For i = 0 To pProcess.Length() - 1
            If (pProcess(i).ProcessName.ToUpper = "EXCEL") Then
                pProcess(i).Kill() '關閉進程
            End If
        Next
    End Sub