UFT開發代碼實例：將Excel中的數據保存爲數組

一、核心代碼 

'讀取Excel表格到一個數組的函數
' 輸入：
'             sFileName： Excel文件
'             sSheetName：表單名稱
' 返回：
'             包含Excel數據的數組
Function ReadFile(sFileName,sSheetName)
       Dim oExcel
       Dim oSheet
       Dim oRange
       Dim arrRange
       On Error Resume Next
           ' 建立Excel應用程序對象
              Set oExcel = CreateObject("Excel.Application")
              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

arrRange = ReadFile("C:\Documents and Settings\Administrator\桌面\test1.xls","Sheet1") 
'Msgbox UBound (arrRange,1)
'Msgbox UBound (arrRange,2)
' 讀取其中一個單元格的數據

For i=1 to 10
	For k = 1 to 2

Msgbox arrRange(i,k)

	Next
Next

二、完整工程

解壓後導入UFT中便可。

https://yunpan.cn/cBVx3mFvLgSi8 （提取碼：a8d8）