只有高手才能帮我了....(页 1) - VB.NET论坛

zh2208 发表于 2008-4-16 20:49

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

在windows2000中,我用
dim objExcelapp As Excel.Application
objExcelapp = CreateObject("Excel.Application")
创建了一个excel对象
程序结束时,我用以下方法关闭excel
         objWorkBook.Close(False)
         objWorkSheet = Nothing
         objWorkBook = Nothing
         objExcelapp.Quit()
但是在进程中,excel.exe还是存在,删除不了...
请教高手如何删除进程中的excel...

另外,在xp中,关闭应用程序后,进程中的excel会自动关闭...不提示任何信息
但在windows中,则会弹出一个错误信息.如何写代码,让这个错误信息不在windows2000中报出来..

fairy4 发表于 2008-4-17 10:50

先退出，再設置為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

页: [1]