qtp讀取excel資料的方法
在構建自己的測試框架時,或者是從excel讀入外部資料進行檢查時都要用到excel的com物件程式設計方法,下面指令碼中的readfile函式就實現了這樣的功能,首先建立excel應用程式物件,然後開啟excel檔案,把excel資料讀取到乙個陣列中。
arrrange = readfile("d:/qtp/mywork/readexcelfiletest1/objecttree.xls","tree")
'msgbox ubound (arrrange,1)
'msgbox ubound (arrrange,2)
' 讀取其中乙個單元格的資料
msgbox arrrange(3,1)
' 輸入:
' sfilename: excel檔案
' ssheetname:表單名稱
' 返回:
' 包含excel資料的陣列
function readfile(sfilename,ssheetname)
dim oexcel
dim osheet
dim orange
dim arrrange
on error resume next
' 建立excel應用程式物件
if err.number <> 0 then
msgbox "未能初始化excel" & vbcrlf & _
"請確保excel已安裝", vbcritical
exit function
end if
on error goto 0
on error resume next
' 開啟excel檔案
oexcel.workbooks.open(sfilename)
if err.number <> 0 then
msgbox "未能載入excel檔案" & vbcrlf & _
"請確保excel檔案路徑正確或格式正確", vbcritical
exit function
end if
on error goto 0
' 獲取**的使用範圍
set osheet = oexcel.worksheets(ssheetname).usedrange
' 獲取從a列到z列,從第1行到第1000行的範圍i中的所有值
set orange = osheet.range("a1:z1000")
'把excel資料轉換到陣列
arrrange = orange.value
' 關閉工作簿
oexcel.workbooks.item(1).close
' 退出excel
oexcel.quit
set oexcel = nothing
' 返回包含excel資料的陣列
readfile = arrrange
end function
QTP讀取Excel資料的方法
qtp讀取excel資料的方法 在構建自己的測試框架時,或者是從excel讀入外部資料進行檢查時都要用到excel的com物件程式設計方法,下面指令碼中的readfile函式就實現了這樣的功能,首先建立excel應用程式物件,然後開啟excel檔案,把excel資料讀取到乙個陣列中。arrrange...
讀取Excel資料
方法2 相當簡單,excel就像資料庫,每個sheet就是乙個table.microsoft.jet.oledb驅動.之後是datareader迴圈,或dataset處理都非常簡單.注意 資料型別的轉換 region set connection string strconn provider mi...
讀取Excel資料
excel2007的連線字串與excel2003的不同。datatable tbsheetname connection.getoledbschematable oledbschemaguid.tables,null 用來獲得sheet的名字 using system using system.io...