QTP中读入外部excel文件内容

'读取外部ＥＸＣＥＬ中的数据进行参数传递搜索
'从外部指定的路径下读取excel文件，第二个参数是读取的外部excel文件的哪一个sheet,输入的是sheet名称。
'如果外部的excel文件只有一个sheet,,可以直接使用datetable.import("filepath","Golbal"),如果是多个的话那么就
'一定要使用datatable.ImportSheet了；第三个参数是指把外部excel内容读到ＱＴＰ中的哪个Data Table中，
'可以使用datatable.AddSheet("51sheet")增加一个Data Table中。
datatable.ImportSheet "d:\11.xls","sheet1","Global"
Dim dtvalue,dtsheet
'把外部的excel数据提取到dtsheet这个对象中
set dtsheet = datatable.GetSheet("Global")
'设置当前的数据为第一行，然后使用循环取值到baidu去搜索，以三种方法去取各行的值。_211是excel文件导入进来后对应的列名
dtsheet.SetCurrentRow(1)
For  i=0 to dtsheet.GetRowCount
 dtvalue = datatable("_211","Global")
   msgbox dtvalue
   dtvalue = dtsheet.GetParameter("_211").Value
  msgbox dtvalue
  dtvalue = dtsheet.GetParameter(1).value
  msgbox dtvalue
   Browser("百度一下，你就知道").Page("百度一下，你就知道").WebEdit("wd").Set dtvalue
   Browser("百度一下，你就知道").Page("百度一下，你就知道").WebButton("name:=百度一下").Click
   '循环查询的的时候注意页面要返回到最开始的页面
   Browser("百度一下，你就知道").Back
   dtsheet.SetNextRow
   i=i+1
Next