VB 中的 Excel 互操作得到错误 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:\CAD\RhinoDek\Color Storage\TWO_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