关于VB.net关闭EXCEL进程的问题

2010-04-24 03:09:39 855 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

vb.net操作Excel后进程残留Excel.exe问题方案一调用Kill方法，结束进程，居然很多人就这么干了，居然也还有弄不掉的问题。首先，这样不能区分正常打开的Excel和软件调用的Excel，进程名称完全一样。于是要找一个关联的标签或者进程ID，也许能走通。方案二垃圾回收，System.GC.Collect()。百度的结论大多是这样，在程序结尾加上。事实上没有用。奇葩的事情：如果你把System.GC.Collect()放在程序入口，虽然不能帮你清理这次的Excel.exe，但是下一次运行的时候，会帮你清理掉，也就是说，不会反复运行，产生一堆E. 阅读详情

我有一台服务器，一台客户端PC机.
开发的软件是VB.NET2003, 实现的功能是将EXCEL文件用dialog下载后，关闭EXCEL进程。
用过Kill进程，也用过
System.Runtime.InteropServices.Marshal.ReleaseComObject(mySheet)
System.Runtime.InteropServices.Marshal.ReleaseComObject(myBook)
System.Runtime.InteropServices.Marshal.ReleaseComObject(myExcel)
在服务器上单独运行是可以的，EXCEL进程是可以杀掉的。
但是如果在客户端PC机上用WEB方式浏览系统，文件下载后，进程还保留在SERVER上面。也就是说没有杀掉进程。
在执行For Each p In System.Diagnostics.Process.GetProcesses()的时候，会有错，错误是：
couldn't get process information from remote machine.
但是用上面ReleaseComObject的方法怎么也杀不掉呢。
想问一下，大家有啥解决办法么？谢谢！



    Private Function CreateFile() As Boolean

        Dim rValue As Boolean = False

        Dim myExcel As New Excel.Application

        Dim myBook As Excel.Workbook

        Dim mySheet As Excel.Worksheet

        Dim Folder as string="C:\File\"

        Dim FileName as string = "A.csv"



        Try

            myBook = myExcel.Workbooks.Add()

            mySheet = CType(myBook.Worksheets.Item(1), Excel.Worksheet)

            mySheet.Activate()





            mySheet.Cells(2, 1) = "Name"

            mySheet.Cells(3, 1) = "Sex"



            myBook.SaveAs(Folder & FileName)

            myBook.Close(True)

            myExcel.Quit()

            myBook = Nothing

            myExcel = Nothing

            ProcessKill()

            GC.Collect()



            bReturnVal = True

        Catch ex As Exception

            mErrMsg = ex.Message

            myBook.Close()

            myExcel.Quit()

            myBook = Nothing

            myExcel = Nothing

            ProcessKill()

            rValue= False

        End Try

        Return rValue

    End Function



    Private Sub ProcessKill()

        Dim p As System.Diagnostics.Process

        p = New System.Diagnostics.Process

        For Each p In System.Diagnostics.Process.GetProcesses()

            If p.ProcessName.ToUpper() = "EXCEL" Then

                p.Kill()

            End If

        Next

    End Sub