Set Excelobj=createobject("Excel.Application")
excelpath="E:/testQTP"
Excelobj.Workbooks.Open(excelpath) '打开excel的文件
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
【软件自动化测试-QTP实战技能 9】== 从外部excel中读出数据导入到qtp的data中
最新推荐文章于 2021-08-24 17:02:28 发布