UFT_基础14_动态数组重构excel,字典

最新推荐文章于 2025-03-28 19:54:50 发布

tjjingpan

最新推荐文章于 2025-03-28 19:54:50 发布

阅读量413

点赞数

分类专栏： QTPUFT系列

本文链接：https://blog.youkuaiyun.com/tjjingpan/article/details/78571443

版权

QTPUFT系列专栏收录该内容

10 篇文章

订阅专栏

本文介绍如何使用VBA中的Scripting.Dictionary进行数据管理，包括添加、删除条目及检索数据的方法。此外，还展示了如何通过VBA操作Excel文件，读取指定工作表的数据并进行处理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

字典 Scripting.Dictionary
1、CreateObject(“Scripting.Dictionary”)
(1)Add
(2)Remove

//定义一个字典
Set objDic = CreateObject("Scripting.Dictionary")
objDic.Add "1","aa"
objDic.Add "2","bb"
objDic.Add "3","cc"
objDic.Add "4","dd"

//移除一个
objDic.Remove("3")

//显示字典个数
msgbox objDic.Count

//字典中所有key组成一个数组，下标从0开始
key = objDic.Keys
//显示数组key中第2个元素，值为2
msgbox key(1)

//根据key值获取字典中的数据
value=objDic.Item("1")
msgbox value


----------


//动态数组
Dim Arr()
For i = 1 To 3
    ReDim preserve arr(i-1)
    arr(i-1)=i
Next
msgbox ubound(Arr)
msgbox Arr(1)


----------

//excel表格
'Set ExcelApp=CreateObject("Excel.Application")
'Set ExcelPath=ExcelApp.Workbooks.Open("D:\UFT\data.xlsx")
'Set ExcelSheet=ExcelPath.Worksheets("Sheet1").UsedRange
'rowCount=ExcelSheet.Rows.count
'columnCount=ExcelSheet.Columns.count
'ExcelPath.Close
'ExcelApp.Quit
'set  ExcelApp = Nothing


----------

//excel
Function excel(path,sheet)
    Dim Arr()
    Set ExcelApp=CreateObject("Excel.Application")
    Set ExcelPath=ExcelApp.Workbooks.Open(path)
    Set ExcelSheet=ExcelPath.Worksheets(sheet).UsedRange
    rowCount=ExcelSheet.Rows.count
    columnCount=ExcelSheet.Columns.count
    For i = 1 To rowCount
        ReDim preserve Arr(i-1)
        Arr(i-1)=ExcelSheet.cells(i,1)
    Next

    Set ExcelSheet=NOthing
    ExcelPath.Close
    ExcelApp.Quit
    set  ExcelApp = Nothing
    excel =Arr
End Function


----------

//调用函数excel
b = excel("D:\UFT\data.xlsx","sheet1")
msgbox ubound (b)
msgbox b(0)

For i = 1 To ubound(b)
    msgbox b(i)
Next

Set fromCity =Wpfwindow("HPE MyFlight Sample Applicatio").WpfComboBox("fromCity")

For i = 0 To fromCity.GetItemsCount -1
    If fromCity.GetItem(i)=b(i) Then
        print i& " is right"
    else
        print i& " is wrong"    
    End If
Next