关闭 Excel.Workbook 时出现 COMException (0x80010108 - RPC_E_DISCONNECTED)

Question

当我运行以下代码时，出现以下异常：

''# NOTE: ExcelApp is a Private main form variable
Dim ReportBooks As Excel.Workbooks = ExcelApp.Workbooks
Dim ReportBook As Excel.Workbook = ReportBooks.Open(localFilename)
Dim ReportSheet As Excel.Worksheet = ReportBook.Sheets("Report")

''# Retreive data from sheet

ReleaseCOM(ReportSheet)
ReportBook.Close(True) ''# Error raised here
ReleaseCOM(ReportBook)
ReleaseCOM(ReportBooks)

ERROR:
COMException was unhandled
The object invoked has disconnected from its clients.
(Exception from HRESULT: 0x80010108 (RPC_E_DISCONNECTED))

注意：所有数据似乎都已正确检索。

请帮助我诊断并解决此错误。

Answer 1

RPC_DISCONNECTED...可怕的“调用的对象已与其客户端断开连接。”问题。这有很多原因，看起来你已经用Excel. 覆盖了全局变量问题。你能把第一个ReleaseCOM(ReportSheet)放在ReportBook(Close)下面并运行它吗？另外，请查看this。