關於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

找到半天,也沒有看見相關解決方案和產生的原因,
特請教各位大俠..