调用Excel.Worksheet.Open函数时出现COM异常HRESULT 0x800AC472

Question

我也无法打开Excel文件"。xls"；也不是"；。xlsx"；Book1.xlsx是一个示例文件，它是一张空白页。

Dim excelApp As New Excel.Application
Dim wBook1 As Excel.Workbook
excelApp.Workbooks.Open("C:Book1.xlsx", False, False)

如果调用Excel.Workbooks.Open((函数，它将得到错误。

错误消息

COM exception HRESULT: 0x800AC472.

Answer 1

我找到了原因。无法打开，因为Sheet1正在打开。它将显示保存对话框。所以我必须强制关闭工作簿中的所有工作表。

Dim excelApp As New Excel.Application
If Not excelApp Is Nothing Then
For Each wb As Excel.Workbook In excelApp.Workbooks
wb.Close(False)
Next
excelApp.Quit()
End If

但我不明白。每次我创建Excel.Application的新实例时，它都会自动创建一个Sheet1。为什么？