QTP-基础实例（1）

最新推荐文章于 2017-11-15 21:19:00 发布

dbqz77292

最新推荐文章于 2017-11-15 21:19:00 发布

阅读量126

点赞数

原文链接：http://www.cnblogs.com/sgtb/p/3719392.html

版权

新手初学有什么不对的地方请指出

对于Excel表和datatable的基础知识点应用代码仅供参考，应为我是用的WPS啊！！！坑爹的，公司不准装office 。

QTP对于WPS的支持度不高，我暂时没找到如何自动创建WPS的Excel 所以是手动在桌面创建的需要的Excel环境。

话不多说上例子吧

首先题目

有一个瓶子放入2只虫子 2只虫子同时不停的循环分裂 1分2 2分4这样当虫子分裂到装满瓶子时停止

模拟需求：

1：我们需要拿到每次分裂数量放入Excel表内全部显示

2：拿另一份Excel表内的数值做对比当然另一份表的内容需要我们自己填

3：对比结束时 Excel表内显示正确的数值并且 2份表内有不一样的地方显示出不一样数值

配置需要的条件

1：datatable内写入3个参数2只虫子的基数各为1只所以往 Global A，B列下填入基础数值1，还有一个瓶子这个瓶子的装满数量我们就随便输入一个1000就可以了

2：应为使用的是WPS不知道怎么自动创建文档只能手动了，好想吐槽啊！！在桌面创建一个Excel表我的表名为 Flc_1 这个是用来存入正确数据的再创建一个叫flc表表的格式要和前面一个一样数据随便填好了

（1）自己写的Excel表如果QTP想读取到数据，必须在每列的第一行写入列名，并不是Excel上面已经写好的ABCD这种 QTP往Excel表内写入则不用写

（2）表里的Sheet名要跟QTP内Sheet名一致要不然会出一些奇怪的问题

3：在datatable创建Action1,Action2两个表，用于存储临时数据，这步其实很省掉，但是是个知识点所以还是加上了

上实例

'设置一个数组用来添加2个数0据

Dim arrArray(2)
Dim c1,c2
Dim arrNew
Dim arrcount
Dim arr_1
Dim arr
Dim count

count=DataTable.GetRowCount
arrcount=cint(DataTable.Value(3,"Global"))
DataTable.localsheet.AddParameter "错误报告",""
DataTable.LocalSheet.AddParameter "错误数据",""
mian()
shuju()

Function flc(arrArray_1)

'当数组内数值小于1时才执行从Datatable内读取数据
If arrArray(0)<1 Then
    arrArray(0)=DataTable.Value(1,"Global")
    arrArray(1)=DataTable.Value(2,"Global")
End If

'分裂虫
arrArray(0)=arrArray(0)*2
arrArray(1)=arrArray(1)*2

'返回数组
flc=arrArray

End Function

'保存到Data
Function panduan

DataTable.GetSheet("Action1").SetCurrentRow(count)

    MsgBox " A= " &arrNew(0) &"  B=" &arrNew(1)
    DataTable.Value("A","Action1")=arrNew(0)
    DataTable.Value("B","Action1")=arrNew(1)
    arr=arrNew(0)+arrNew(1)

        DataTable.Value("C","Action1")= arr
        count=count+1




End Function

'做数据对比
Function shuju

Dim age(100)
Dim age_1(100)
    a= "C:\Documents and Settings\Administrator\桌面\Flc_1.xls"
    b= "C:\Documents and Settings\Administrator\桌面\flc.xls"


    '导入指定的sheet
    DataTable.ImportSheet a,"Action1","Action2"
    DataTable.ImportSheet b,"Action1","Action1"
    count=DataTable.GetSheet("Action1").GetRowCount
    MsgBox count

    For i = 1 To count Step 1

        DataTable.GetSheet("Action2").SetCurrentRow(i)
        age(i)=DataTable.GetSheet("Action1").GetParameter("C").ValueByRow(i)
        age_1(i)=DataTable.GetSheet("Action2").GetParameter("C").ValueByRow(i)
        MsgBox "age=" &age(i) &"   age_1=" &age_1(i)

        If age(i)=age_1(i) Then
            DataTable.Value("错误报告","Action2")="Pass"
            else
            DataTable.Value("错误报告","Action2")="Ng"
            DataTable.Value("错误数据","Action2")=age(i)

        End If


    Next


DataTable.Export "C:\Documents and Settings\Administrator\桌面\Flc_1.xls"



End Function

'主结构
Function mian

While arrcount>0

    arrNew =flc(arrNew)
    panduan()


    If arr >= arrcount Then
    arrcount=0
    End If

    '保存到一个excel里面
    DataTable.Export "C:\Documents and Settings\Administrator\桌面\Flc_1.xls"

Wend


End Function
最后在Excel的显示结果