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