将数组写入excel时出错

我一直使用这个相同的例程超过1.5年没有问题，然后突然今天我得到以下错误：

来自HRESULT的exception：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 

即使我根本不处理这个数组，直接把它放回去，我也会得到一个错误。

干杯