QTP中如何使用外部的excel数据?

maplee

新手求助。。。
有一个webedit输入框，在输入框中输入序列号后，会提示相应的信息。
要输入的序列号以及相应的提示信息，是存储在一个外部的excel文件中的，
例如：A列存储序列号，B列存储提示信息，一共100行（也就是100个不同的序列号和提示信息）
要在QTP中从1~100依次输入序列号，并和B列的提示信息进行校验，该怎么实现啊？

赵佳乐SMILE

得写代码
看你这个应该不难实现

http://user.qzone.qq.com/3051324 ... &pos=1361440904

joykao

你需要读写excel中的数据，A 列是测试输入数据，B列是检查数据当做检查点

具体的你可以去看看Excel的读写

比如datatable.importsheet 或者使用EOM

maplee

嗯，搞定了，谢谢楼上两位。

赵佳乐SMILE

回复 4# maplee


    这么速度 厉害啊

maplee

回复  maplee


    这么速度 厉害啊
赵佳乐SMILE 发表于 2013-7-3 15:01

呵呵，我是这么写的，求指正~

Dim excelApp
Set excelApp =CreateObject("excel.application")
        excelApp.Visible = true
        excelApp.Workbooks.Open "D:\KEN_ALL.CSV"

Dim cRow, RowCount
RowCount = excelApp.ActiveSheet.UsedRange.Rows.Count
Dim oSheet, zipCode, City, District_1, District_2, District
Dim City_Check, District_Check
Set oSheet =excelApp.Sheets.Item(1)


For cRow = 0 To RowCount -1
        zipCode = oSheet.Cells(cRow+1, 3)
        City = trim(oSheet.Cells(cRow+1,7))
        District_1 = Trim(oSheet.Cells(cRow+1,8))
        District_2 = Trim(oSheet.Cells(cRow+1,9))
        District = Trim((District_1&"　"&District_2))

       dataInput
Next

赵佳乐SMILE

回复 6# maplee


    简洁 比我规范多了 哈哈

黑羽祭

不错啊~

maplee

谢谢楼上两位夸奖，我是新手，学习中遇到很多麻烦，
经过二位一表扬，信心增强了很多

450174661

maplee真犀利，学习了