将数组写入excel时出错

Question

我已经使用相同的例程超过1。5年没有问题然后突然今天我收到以下错误：

来自HRESULT的异常：0x800A03EC

我的代码将一个excel范围读入一个数组处理该数组，然后将该数组放回到excel表中。它已经处理了超过52000行，但今天却失败了5000行！

我真的很困惑。

我的代码如下：

Dim arrProcess As Array
Dim intRowNum As Integer = xlWorksheet1.Cells.CurrentRegion.Rows.Count

arrProcess = xlWorksheet1.Range("A2:AD" & intRowNum).Value

'do some processing

'Put array back to worksheet
xlWorksheet1.Range("A2:AD" & intRowNum).Value = arrProcess

'empty array
arrProcess = Nothing

即使我根本不处理数组并将其直接放回，我也会收到错误。

干杯