将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