如何让网站运行excel里的数据

ouqtp

我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


万分感谢

风过无息

楼主的用法有问题，应该该import，然后使用datatable里面的数据。

MarsNoNo

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