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
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。