QTP讀取Excel資料的方法

2021-04-17 16:21:08 字數 1546 閱讀 8307

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...