Excel 应用程序未退出答案

【问题标题】：Excel Application not quittingExcel 应用程序未退出
【发布时间】：2013-04-15 03:48:52
【问题描述】：

检查我的代码，我正在 vb.net 中从 excel 自动上传这是我的代码

进口声明

Imports Excel = Microsoft.Office.Interop.Excel

释放对象函数

Private Sub releaseObject(ByVal obj As Object)
    Try

        System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)


        obj = Nothing
    Catch ex As Exception
        obj = Nothing
    Finally

        GC.Collect()

    End Try
End Sub

按钮点击事件

Protected Sub ButtonUpload_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ButtonUpload.Click
    If IsPostBack Then
       Dim xlApp As Excel.Application
        Dim xlWorkBooks As Excel.Workbooks
        Dim xlWorkBook As Excel.Workbook
        Dim xlWorkSheet As Excel.Worksheet
        Dim range As Excel.Range
        connStr = ConfigurationManager.ConnectionStrings("LocalSqlServer").ConnectionString
        conn = New SqlConnection(connStr)
        dat = System.DateTime.Now

        Filepath = Path.GetFullPath(fileUploadBOM.PostedFile.FileName)
        sFileName = Path.GetFileName(fileUploadBOM.PostedFile.FileName)
        FileFormat = Path.GetExtension(Filepath)

        v_bom_type = "IMPORT"
        If FileFormat.Equals(".xls") Or FileFormat.Equals(".xlsx") Then
            System.IO.File.Delete("C:\inetpub\wwwroot\Uploads\" & sFileName)
            fileUploadBOM.PostedFile.SaveAs(sFileDir + sFileName)
            Try
                xlApp = New Excel.ApplicationClass
                xlWorkBooks = xlApp.Workbooks
                xlWorkBook = xlWorkBooks.Open(sFileDir + sFileName)
                xlWorkSheet = xlWorkBook.Worksheets("BOM for Import")
                range = xlWorkSheet.Cells
            Catch ex As Exception
                releaseObject(xlApp)
                'GetWindowThreadProcessId(xlApp.Hwnd, processID)
                'release(processID)

            End Try

如果条件类似..

             Dim R As String
            R = CType(range.Cells(4, 2), Excel.Range).Value()
            If Not R Is Nothing Then
                If (R.Trim = "") Then
                    Me.Page.ClientScript.RegisterStartupScript(Me.GetType(), "SetStatusText", "<script type='text/javascript'> alert('please enter the OEM for logistics cost'); </script>")
                    releaseObject(range)
                    releaseObject(xlWorkSheet)
                    xlWorkBook.Save()
                    xlWorkBook.Close()
                    releaseObject(xlWorkBook)
                    xlWorkBooks.Close()
                    releaseObject(xlWorkBooks)

                    xlApp.Quit()

                    releaseObject(xlApp)



                    'GetWindowThreadProcessId(xlApp.Hwnd, processID)
                    'MsgBox(processID)
                    'release(processID)

                    Exit Sub
                Else
                    v_logiccost = CType(range.Cells(4, 2), Excel.Range).Value()
                End If
            Else
                Me.Page.ClientScript.RegisterStartupScript(Me.GetType(), "SetStatusText", "<script type='text/javascript'> alert('please enter the OEM for logistics cost'); </script>")
                releaseObject(range)
                releaseObject(xlWorkSheet)
                xlWorkBook.Save()
                xlWorkBook.Close()
                releaseObject(xlWorkBook)
                xlWorkBooks.Close()
                releaseObject(xlWorkBooks)

                xlApp.Quit()

                releaseObject(xlApp)


                'GetWindowThreadProcessId(xlApp.Hwnd, processID)
                'MsgBox(processID)
                'release(processID)

                Exit Sub
            End If


            '' No of yrs of support

            Dim P As String
            P = CType(range.Cells(6, 2), Excel.Range).Value()
            releaseObject(range)
            If Not P Is Nothing Then
                If (IsNumeric(P) = True) Then
                    v_year = P
                Else
                    Me.Page.ClientScript.RegisterStartupScript(Me.GetType(), "SetStatusText", "<script type='text/javascript'> alert('No Of Years Support Should Be A Number.'); </script>")
                    releaseObject(range)
                    releaseObject(xlWorkSheet)
                    xlWorkBook.Save()
                    xlWorkBook.Close()
                    releaseObject(xlWorkBook)
                    xlWorkBooks.Close()
                    releaseObject(xlWorkBooks)

                    xlApp.Quit()

                    releaseObject(xlApp)



                    'GetWindowThreadProcessId(xlApp.Hwnd, processID)
                    'MsgBox(processID)
                    'release(processID)


                    Exit Sub
                End If
            End If

函数调用到最后释放

releaseObject(range)
                    releaseObject(xlWorkSheet)
                    xlWorkBook.Save()
                    xlWorkBook.Close()
                    releaseObject(xlWorkBook)
                    xlWorkBooks.Close()
                    releaseObject(xlWorkBooks)

                    xlApp.Quit()

                    releaseObject(xlApp)

这是我的全部代码，我猜问题出在 Range.cells 对 RCW 的引用建议我哪里做错了

【问题讨论】：

尝试颠倒释放对象的顺序，以便按照依赖性递减的顺序删除它们
我也试过了，但没用。这是我多次使用的 Range.cells 的问题
为什么要在If 中释放对象，为什么不在最后呢？阅读您的代码也非常困难。你能在它自己的子目录中正确缩进它吗？我的意思是R = CType(range.Cells(4, 2), Excel.Range).Value() 行在end sub 之后如何开始你能发布整个子，正确缩进，正如我上面建议的那样。
另外，我刚刚注意到您在所有 IFs 的 Else 部分和其他一些地方释放对象。如果代码进入了您未发布的代码部分，会发生什么？那你是在释放对象吗？（我在代码中看不到）
Tushar...如果您希望我帮助您，这是我对LAST 时间的请求...您能否更新您的帖子，而不是在 cmets 中输入代码？这种方式真的很难理解。

标签： vb.net excel vba

【解决方案1】：

几件事

A) 在编码方面，我一直坚信 1 个入口点和 1 个出口点。在您的代码中，您有几个退出点。您的代码现在看起来像这样

    If A = B Then
        '
        '~~> Rest of the code
        '
        'release object
        Exit Sub
    Else

    End If

    If C = D Then

    Else
        '
        '~~> Rest of the code
        '
        'release object
        Exit Sub
    End If

    releaseObject(xlrange)
    releaseObject(xlWorkSheet)
    releaseObject(xlWorkBook)
    releaseObject(xlApp)

如果我们正确地关闭我们的对象，追踪变得非常困难。最好的方法是将它们组合起来，然后在离开潜艇之前释放对象。你上面的代码可以重写为

    If A = B Then
        '
        '~~> Rest of the code
        '
    Else
        If C = D Then

        Else
            '
            '~~> Rest of the code
            '
        End If
    End If

    releaseObject(xlrange)
    releaseObject(xlWorkSheet)
    releaseObject(xlWorkBook)
    releaseObject(xlApp)

B) 正如 Alex 和 Chris 所提到的，以正确的顺序释放您的对象（您在最后而不是在代码中间执行此操作）。像这样

    releaseObject(xlrange)
    releaseObject(xlWorkSheet)
    releaseObject(xlWorkBook)
    releaseObject(xlApp)

如果您采纳我的第一个建议，那么您将不必在任何地方维护发布目标代码，而只是在最后。

C) 我看到您已将您的 Excel 对象声明为 PUBLIC 除了ButtonUpload_Click 之外，您还在其他地方使用它们吗？

如果是，例如Form Load，请确保您正确释放它们
如果不是，则将它们移入ButtonUpload_Click

如果您采纳了上述建议，那么在使用 TWO DOT 规则时，我认为释放对象不会有问题。

休息一下，我认为您现有的代码没有任何问题。它对我来说很好用。

【讨论】：

很高兴看到开发人员在方法中强制执行一致的“流程”（A 点）。我有同样的信念和严格遵守。遵循能够清楚地看到执行路径的想法只能从长远来看对您有所帮助，尤其是从维护的角度来看。我也尽量避免让我的“流程”像“继续”一样跳跃的语句。我也倾向于将“ELSE”编码到我的大多数 IF 语句中，并将“CASE ELSE”编码到“SELECT CASE”中，而不管它实际上做了什么（只是为了表明它故意不做任何事情，因为当我回来时几年后）
@tusharpathak：如果你决定不听我的建议，那我想我只是在浪费时间 :) 祝你好运！
我也试过了，但我需要放那么多 if 和 else 块我不能放单个入口和出口点。我也分享了我更新的代码，如果你可以检查它，那就是真的很有帮助...
@SiddharthRout 感谢您的帮助，我已经解决了问题不在我的代码中，而是在 releaseObject 子中，最后我没有使用 gc.collect，它对我来说很好

【解决方案2】：

感谢一切都解决了

Private Sub releaseObject(ByVal obj As Object)
Try

    System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)



Catch ex As Exception

Finally
obj = Nothing


End Try
End Sub

【讨论】：