Question

按键精灵编写EXCEL程序下标越界怎么解决

rwmc = Plugin.lxj_Office.lxj_ExcelRead(1, a, 5, index2)
Call Plugin.Window.Active(Hwnd1)
R=Plugin.lxj_Office.lxj_ExcelColumns(1,3,"精确查找",rwmc,index4)
i=1
For R(0)
s=s&chr(13)&R(i)
i=i+1
EndFor
h=R(1)
If h = "" Then
Goto x2
Else
Goto x3
End If
Rem x3
h=R(1)
Plugin.lxj_Office.lxj_ExcelWrite 1, h, 42, "'3", index1
Plugin.lxj_Office.lxj_ExcelRange 1, "A" & h & ":AP" & h, "背景颜色", 45, index1
pihao = Plugin.lxj_Office.lxj_ExcelRead(1, 2, 1, index1)
Plugin.lxj_Office.lxj_ExcelWrite 1, x, 1, pihao, index1

Plugin.lxj_Office.lxj_ExcelWrite 1,x,3,Var1,index1
提示h=R（1）这条下标越界

Answer 1

事先声明一下R

追问

要怎么申明啊？