关于Excel数组赋值出错的问题, 800A03EC 错误

因为遍寻结果无果,特放首页恳请大侠执教:



碰到一个问题,

如果vbscript操作Excel的时候,进行数组赋值,却发现报这个错误.
仔细分析了一下,
发现数组中有个一个字符串长度大于了912,则赋值的时候,出错.

reDim arrayobj2(2, 26)  
 ''print left range  
arrayobj2(0,0) = "238"  
arrayobj2(0,1) = "167"  

 
arrayobj2(1,0) = "237"  
dim debugStr
for i=1 to 1200
debugStr =debugStr&"f"
next

arrayobj2(1,1) =debugStr

 
set nowRange2 = nowRange  
set nowRange2 = nowRange2.Resize(2,2) 

nowRange2.WrapText = true  


Dim sData 
sData = "FirstName" & vbTab & "LastName" & vbCr _
       & "Bill" & vbTab &debugStr


' Clipboard.SetText sData


nowRange2.select



''call SetRangeNumberFormat("@",nowRange2,2,2)
  
nowRange2.value =  arrayobj2

找到半天,也没有看见相关解决方法和产生的原因,
特请教各位大侠..