5

当我运行以下代码时,出现以下异常:

''# 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))

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

请帮助我诊断并克服此错误。

4

1 回答 1

9

RPC_DISCONNECTED...可怕的“被调用的对象已与其客户端断开连接。 ”问题。这有很多原因,看起来你已经用Excel.. 你能把第一个放在ReleaseCOM(ReportSheet)下面ReportBook(Close)并运行它吗?另外,看看这个

于 2010-03-10T23:27:54.153 回答