关于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
找到半天,也没有看见相关解决方法和产生的原因,
特请教各位大侠..