VB中的Excel Interop获取错误HRESULT:0x800A03EC

Question

我正在尝试逐行向工作表添加信息。如果我+1任何东西，我总是给我一个错误。

如果我只是直接更改一个单元格，它运行良好，没有像那样的错误或崩溃

ws.Cells(2, 1) = "Test Data"

但当我试图自动穿过我的行时，它就崩溃了。

有什么想法吗？我在谷歌上搜索了很多，但0x800A03EC似乎是一个通用的错误代码。

这是我的代码

    Dim app As New Excel.Application
    Dim ws As Excel.Worksheet
    Dim workBook As Excel.Workbook
    workBook = app.Workbooks.Open("P:CADRhinoDekColor StorageTWO_SHEETS.xlsx")
    ws = workBook.Worksheets("Sheet1")
    Dim uRange = ws.UsedRange
    Dim rRange = uRange.Rows
    Dim cRow = rRange.Count + 1
    ws.Cells(cRow, 1) = "Test Data" (It throws the error here at cRow)
    workBook.Save()
    workBook.Close()
    app.Quit()

谢谢你在这方面的帮助。

Answer 1

在Excel中已达到最大行数的问题。

尝试此操作以获取最后使用的行：

dim cRow = ws.Cells(1048576, 1).End(Excel.XlDirection.XlUp).row +1 

或

dim cRow = ws.Columns("A").Cells.Find("*", SearchOrder:=Excel.XlSearchOrder.xlByRows, LookIn:=Excel.XlFindLookIn.xlValues, SearchDirection:=Excel.XlSearchDirection.xlPrevious).Row +1