1. 程式人生 > >QTP資料驅動和關鍵字驅動

QTP資料驅動和關鍵字驅動


Dim conn,input,filename
filename="D:公基本情況(tb_gsgk)-標準格式.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 input= createobject("ADODB.Recordset")
input.Open "select  *   from [公基本情況-標準格式$] " ,conn,2,2 
input.close
Set input=nothing