.net互操作Excel ExportAsFixedFormat（）异常HResult：0x800A03EC

我目前正在实现一种方法，生成多个工作表并将其导出为PDF。为此，我在.NET 4.5.2中使用Microsoft.Office.Interop库（v14.0.0.0）。运行Office是2016.net互操作Excel ExportAsFixedFormat（）异常HResult：0x800A03EC

我的代码：

Dim excel As New Application() 
excel.Visible = False 
excel.DisplayAlerts = False 
Dim workbooks As Workbooks 
workbooks = excel.Workbooks 
Dim workbook As Workbook = workbooks.Add(Type.Missing) 

[...] 

workbook.ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, String.Format(<a Path>) 
ReleaseComObject(workSheet) 
workbook.Close() 
ReleaseComObject(workbook) 
excel.Quit() 
ReleaseComObject(excel)

的ReleaseComObject的（）看起来像这样（根据Microsoft Support）：

Private Sub ReleaseComObject(objectToRelease As Object) 
     While System.Runtime.InteropServices.Marshal.ReleaseComObject(objectToRelease) > 0 
     End While 
     objectToRelease = Nothing 
End Sub

，如果我对一个迭代运行这段代码也能正常工作但是我注意到EXCEL-Process仍在运行。

如果我试图做到这一点在批处理模式（在含义的for循环）我得到进入第二互为作用时EXCETION：

System.Runtime.InteropServices.COMException（0x800A03EC）：Ausnahme von HRESULT：0x800A03EC bei Microsoft.Office.Interop.Excel.WorkbookClass.ExportAsFixedFormat（XlFixedFormatType类型，对象文件名，对象质量，对象IncludeDocProperties，Object IgnorePrintAreas，Object From，Object To，Object OpenAfterPublish，Object FixedFormatExtClassPtr） bei Controller .CreateListing（DataTable data，Int32 year，String mandantShortName）in ...

行抛出异常：

workbook.ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, String.Format(<a Path>)

对于研制/测试我重新进入循环之前调试并杀死了Excel的过程，但W/O任何变化。

任何人都面临这个问题？解决方案/建议？

来源

2017-02-22 dpa

请看这篇文章http://stackoverflow.com/questions/15697282/excel-application-not-quitting-after-calling-quit – Codexer

为了与Excel不能正常关闭更换来解决这个问题：

Private Sub ReleaseComObject(objectToRelease As Object) 
    While System.Runtime.InteropServices.Marshal.ReleaseComObject(objectToRelease) > 0 
    End While 
    objectToRelease = Nothing 
End Sub

随着该位的code通过Siddharth Rout所示：

Private Sub ReleaseObject(ByVal obj As Object) 
    Try 
     Dim intRel As Integer = 0 
     Do 
      intRel = System.Runtime.InteropServices.Marshal.ReleaseComObject(obj) 
     Loop While intRel > 0 
     obj = Nothing 
    Catch ex As Exception 
     obj = Nothing 
    Finally 
     GC.Collect() 
    End Try 
End Sub

你可以使用你的While语句代替Do声明，但我觉得它读取更好这种方式。这里的重要一点是GC.Collect()。

您还必须确保您按照正确的顺序发布并发布的所有内容。这通常在后退的顺序。所以你的情况，开始了与workSheet那么workbook然后workbooks然后最后excel：

ReleaseObject(workSheet) 
workbook.Close() 
ReleaseObject(workbook) 
ReleaseObject(workbooks) 
excel.Quit() 
ReleaseObject(excel)

这是我放在一起测试代码：

Dim app As New Excel.Application() 
app.Visible = False 
app.DisplayAlerts = False 

Dim wbs As Excel.Workbooks = app.Workbooks 
Dim wb As Excel.Workbook = wbs.Add() 
Dim ws As Excel.Worksheet = CType(wb.Sheets(1), Excel.Worksheet) 

ReleaseObject(ws) 
wb.Close() 
ReleaseObject(wb) 
ReleaseObject(wbs) 
app.Quit() 
ReleaseObject(app)

的过程开始，一旦ReleaseObject(app)被称为过程然后关闭。

来源

2017-02-22 13:31:20 Bugs

我只是想通了问题所引起的（自己的Bug）。

但是，它仍然使问题开放，为什么Excel-Proccess没有关闭。

来源

2017-02-22 12:10:54 dpa

嗯，我只是有一个内部的执行错误，在这种情况下无关紧要。 – dpa

.net互操作Excel ExportAsFixedFormat（）异常HResult：0x800A03EC

回答

相关问题