51Testing软件测试论坛

标题: 如何让网站运行excel里的数据 [打印本页]

作者: ouqtp 时间: 2007-7-12 01:30
标题: 如何让网站运行excel里的数据
我import了一个.xls文件，但是到我运行时发现excel里的数据没有被网站运行比如说，有一个textbox里记录了一个城市的名字。我在.xls文件里存了两个其它城市的名字。当我运行脚本时，datatable里出现了excel里的数据，但是当运行结束时datatable 里没有这些数据了。另外当运行时textbox 里是空的，并没有显示任何值。（没有像直接设置参数那样显示datatable里的值）下面是我的代码，麻烦各位帮我看看
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("userName").Set "xouyang"
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").WebEdit("password").SetSecure "46950da0377ebbfe"
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours").Image("Sign-In").Click 13,12
Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury_2").Image("findFlights").Click 15,10
Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury_2").Image("reserveFlights").Click 46,10
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury_2").WebEdit("passFirst0").Set "xin"
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury_2").WebEdit("passLast0").Set "ouyang"
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury_2").WebEdit("creditnumber").Set "123"
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury_2").WebEdit("billCity").Set DataTable.Import("C:\Global.xls")
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury_2").Image("buyFlights").Click 2,12
Browser("Welcome: Mercury Tours").Page("Flight Confirmation: Mercury_2").Image("home").Click

万分感谢

作者: 风过无息 时间: 2007-7-12 07:07
楼主的用法有问题，应该该import，然后使用datatable里面的数据。

作者: MarsNoNo 时间: 2007-7-12 19:34
LZ可以这样试试，把xls文件中的数据读出来，然后再set给对象的text属性。
简单代码我附上：

Set xlApp = CreateObject("Excel.Application")
xlApp.application.visible=true
Set xlbook=xlApp.WorkBooks.Open("d:\calc.xls")

Set xlSheet = xlBook.Worksheets("Sheet1")

For i=2 to 24
usrname = xlSheet.cells(i,1).value
usrpwd = xlSheet.cells(i,2).value
expvalue = xlSheet.cells(i,3).value
msgbox usrname
msgbox usrpwd
msgbox expvalue
''''''代码段'''''''

If expresult <> actresult Then

else

End If
xlSheet.cells(i,5) = formatnumber(actresult,2,0)
Next

xlbook.save
xlApp.DisplayAlerts = False
xlbook.close(true)
xlApp.quit
Set excel=nothing

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)