从 VB.Net 应用程序复制到 Excel 在某些环境中会导致 0x800A03EC 错误

Question

这是错误：

System.Runtime.InteropServices.COMException，粘贴，来自 HRESULT 的异常：0x800A03EC

所有计算机都是 Windows XP，具有相同版本的 Excel (2003)。 有些机器会出现错误，有些则不会。 我们还没有找到模式。

这是代码：

Public Shared Sub ExportToExcel(ByVal dt As System.Data.DataTable)
        Dim app As New Microsoft.Office.Interop.Excel.Application
        app.Visible = False
        Dim Book = app.Workbooks.Add
        Try
            Dim Sheet = CType(Book.Worksheets(1), Microsoft.Office.Interop.Excel.Worksheet)
            With Sheet
                Dim c As Long = Asc("A")
                For Each dc As DataColumn In dt.Columns
                    .Range(Chr(CInt(c)) & "1").Value = dc.ColumnName.ToString
                    .Range(Chr(CInt(c)) & "1").Font.Bold = True
                    c += 1
                Next

                Sheet.Activate()
                Sheet.Range("A2:A2").Select()
                Sheet.Paste()
                .Columns.AutoFit()
                CType(app.ActiveWorkbook.Sheets(2), Microsoft.Office.Interop.Excel.Worksheet).Delete() 
                CType(app.ActiveWorkbook.Sheets(2), Microsoft.Office.Interop.Excel.Worksheet).Delete()
            End With
            app.Visible = True
            app.UserControl = True
        Catch ex As Exception
            ExceptionManager.HandledException(ex, "Unable to Copy to Excel.", "You are SOL", , False)
        Finally
            Book = Nothing
            System.Runtime.InteropServices.Marshal.ReleaseComObject(app)
            app = Nothing
            GC.Collect()
            GC.WaitForPendingFinalizers()
        End Try

    End Sub

Answer 1

COM 是引用计数的。 系统会在每次使用东西时保留一个计数器，因此您应该在退出之前清理这些引用，如下所示：

Marshal.ReleaseComObject(myVaraible);

您可能不需要 WaitForPendingFinalizers，甚至 GC.Collect 也是一个不应该需要的昂贵调用如果您使用上面的代码释放每个 com 对象来降低引用计数。

另外，我不确定您是否使用主互操作程序集，但您需要确保针对您的目标 Excel 版本使用正确的版本，否则您可能会遇到类似您遇到的错误。