将Excel数据导入QTP Data Table

Set Excelobj=createobject("Excel.Application")

excelpath="E:\1.xls"

Excelobj.Workbooks.Open(excelpath)

Set newsheet=Excelobj.Sheets.Item(1) '打开excel的sheet

colcount=newsheet.UsedRange.Columns.Count 'Add to Header

For i = 1 To colcount

param=newsheet.Cells(1,i)

DataTable.GetSheet("Action1").AddParameter param,""

next

rowcount=newsheet.UsedRange.Rows.Count 'Add to content

colcount=newsheet.UsedRange.Columns.Count

For i = 2 To rowcount

DataTable.GetSheet("Action1").SetCurrentRow i-1

For j =1 To colcount

param=newsheet.Cells(i,j)

DataTable.value(j,"Action1")=param

Next

Next

Excelobj.Quit