QTP导入EXCEL文件

找了很久，结合资料和VB。终于可以从EXCEL中读入数据

Dim conn,rst,filename

Dim var
filename="E:\test.xls"
Set conn= createobject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="&filename&";
Extended Properties='Excel 8.0;hdr=yes'"Set rst= createobject("ADODB.Recordset")
rst.Open "select  *   from [Sheet1$] " ,conn,1,1
result = rst.RecordCount
msgbox "RecordCount = "&result
 While Not rst.EOF 
  var = rst.fields("a")
  msgbox "Data="&var 
      rst.MoveNext          
   Wend
rst.close
Set rst=nothing