【关于Excel数组赋值出错的问题|关于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
= "https://www.it610.com/article/FirstName" &
vbTab
& "
LastName
" &
vbCr _
& "
Bill
" &
vbTab
&
debugStr
'
Clipboard.SetText sData
nowRange2.select
'
'call SetRangeNumberFormat("@",nowRange2,2,2)
nowRange2.value
=
https://www.it610.com/article/arrayobj2
找到半天,也没有看见相关解决方法和产生的原因,
特请教各位大侠..
