QTP 讀取本地Excel表格數據

  QTP 讀取本地Excel表格數據
當Excel表中只有一個sheet有數據使用Import方法
Dim rowcount '存取數據總行數
Dim filepath '獲取Excel表格路徑
Dim i '循環變量    
filepath=pathfinder.Locate("E:\Program Files\Mercury Interactive\Data Base\tel_Info.xls")
datatable.Import(filepath) 'Excel表中只有一個sheet有數據使用Import，如果Excel中多個sheet有數據，這里就要使用ImportSheet 來指
定具體導入那一個sheet表的數據了
rowcount=datatable.GetRowCount '統計行數
For i=0 to rowcount-1
datatable.GetRowCount '置當前行為活動行
tel_num=datatable.Value("cartel") '這里Value("cartel")中的cartel為excel列名，是在設計測試數據時確定的
password=datatable.Value("password") '同上

Msgbox tel_num '彈出的文本框是做一個輸出驗證

Browser("多普達俱樂部-首頁").Page("多普達俱樂部-首頁").WebEdit("Login1$ctl00$UserName").Set tel_num
Browser("多普達俱樂部-首頁").Page("多普達俱樂部-首頁").WebEdit("Login1$ctl00$PassWord").SetSecure password
Browser("多普達俱樂部-首頁").Page("多普達俱樂部-首頁").Image("Login1$ctl00$submit").Click 5,5
Browser("多普達俱樂部-首頁").Page("多普達俱樂部-首頁_2").Image("Login1$ctl00$lbtnLogout").Click 20,12
datatable.SetNextRow '下一行
If datatable.GetCurrentRow>rowcount Then '如果當前行大于總行數，退出循環
  Exit for
End If
Next



當Excel表中有多個sheet時：
Dim filepath, rowcount, i
filepath=pathfinder.Locate("E:\Program Files\Mercury Interactive\Data Base\test.xls")
DataTable.AddSheet("qtpSheet")
DataTable.ImportSheet filepath, "mySheet", "qtpSheet"
rowcount=DataTable.GetSheet("qtpSheet").GetRowCount
For i=0 to rowcount-1
DataTable.GetCurrentRow
tel_num=DataTable.GetSheet("qtpSheet").GetParameter("tel_card").Value
password=DataTable.GetSheet("qtpSheet").GetParameter("password").Value
Msgbox "帳戶為："&tel_num
Msgbox "密碼為："&password

Browser("多普達俱樂部-首頁").Page("多普達俱樂部-首頁").WebEdit("Login1$ctl00$UserName").Set tel_num
Browser("多普達俱樂部-首頁").Page("多普達俱樂部-首頁").WebEdit("Login1$ctl00$PassWord").SetSecure password
Browser("多普達俱樂部-首頁").Page("多普達俱樂部-首頁").Image("Login1$ctl00$submit").Click 5,5
Browser("多普達俱樂部-首頁").Page("多普達俱樂部-首頁_2").Image("Login1$ctl00$lbtnLogout").Click 12,10
DataTable.SetNextRow
If DataTable.GetCurrentRow > rowcount  Then
  Exit for
End If
Next