在VB.NET中使用互操作设置excel单元格颜色时，HRESULT异常：0x800A03EC

在VB.NET中通过互操作设置excel单元格颜色时，我收到此错误“来自HRESULT的异常：0x800A03EC”

请注意，我几乎已经在stack overflow和其他论坛上浏览了关于此错误的所有帖子，并做了其中提到的解决方案，但问题仍然没有解决

这是我的密码：

Imports excel = Microsoft.Office.Interop.Excel

。 .

---

请让我知道是否有更多关于这个问题的信息。从上两周开始，我一直在讨论这个问题。

您的代码对我来说很好。您能验证您的Excel文档在索引1处是否有工作表吗？顺便说一下，请尝试一个新的（空白）Excel文档。如果有效，则Excel文档有问题。是的，代码正在使用新的Excel。我的excel有问题。请尝试通过excel修复文档

Dim ExcelApp As excel.Application = Nothing
Dim ExcelWorkBook As excel.Workbook = Nothing
Dim ExcelWorkSheet As excel.Worksheet = Nothing
Dim Workbooks As excel.Workbooks = Nothing


Try

    ExcelApp = New excel.Application
    Workbooks = ExcelApp.Workbooks
    ExcelWorkBook = Workbooks.Open("F:\ImpensaData.xlsx")
    ExcelWorkSheet = ExcelWorkBook.Sheets(1)

    ''''GETTING EXCEPTION ON THIS LINE
    ExcelWorkSheet.Cells(1, 1).interior.color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Red)

    ExcelWorkBook.Save()

Catch ex As Exception
    MsgBox(ex.Message)
Finally
    ExcelWorkBook.Close()
    Workbooks.Close()
    ExcelApp.Quit()
    System.Runtime.InteropServices.Marshal.ReleaseComObject(ExcelWorkSheet)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(ExcelWorkBook)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(Workbooks)
    System.Runtime.InteropServices.Marshal.ReleaseComObject(ExcelApp)
    GC.Collect()
    GC.WaitForPendingFinalizers()

End Try