QTP读取EXCEL文件
Function getcell(filepath,sheetname,rownum,colnum)
Set excobj = createobject("Excel.Application")
Set excfile = excobj.workbooks.open(filepath)
Set excsheet = excfile.worksheets(sheetname)
getcell = excsheet.cells(rownum,colnum)
msgbox getcell
End Function
getcell "d:\1.xls","Sheet2",2,"A"