VB 读取excel中的内容并给数组赋值，提示下标越界

 Set  excel=CreateObject("Excel.Application")
DataPath="D:\Web\400_tao\QTP\Test1\Action1\test.xls"
Set xlApp= CreateObject("Excel.Application")
Set wkBook= xlApp.Workbooks.Open(DataPath)
Set wkSheet1= wkBook.Worksheets("sheet1")
Set wkSheet2= wkBook.Worksheets("sheet2")
test1=wkSheet1.usedrange.Columns(1)
test2=wkSheet2.usedrange.Columns(1)
rowcount1 =wkSheet1.usedrange.rows.count
rowcount2 =wkSheet2.usedrange.rows.count
For i=1 to rowcount1
 test1(i)=split(trim(CStr(wkSheet1.Cells(i,1)))," ")
Next
For i=1 to rowcount2
 test2(i)=split(trim(CStr(wkSheet2.Cells(i,1)))," ")
Next
wkBook.Close
excel.Quit
set openexcel=nothing
Set  excel=nothing