51Testing软件测试论坛

标题: 请求帮助 [打印本页]

作者: npy912 时间: 2007-7-5 10:43
标题: 请求帮助
DataTable.Import ("C:\flights.xls")
当然也可以针对具体的一个sheet导入

请问这种方法具体怎么实现啊？就是直接用excel表作为参数。

作者: 杀人跳舞 时间: 2007-7-5 11:02
参数化的时候选择Current action sheet(local)

作者: npy912 时间: 2007-7-5 11:11
不是那个意思我是说不在data table里面写参数直接调用excel表

作者: npy912 时间: 2007-7-5 13:19
Browser("uWorld").Page("uWorld").Frame("top").Link("用户管理").Click
Browser("uWorld").Page("uWorld").Frame("incFrame").Link("用户注册").Click
Browser("uWorld").Page("uWorld").Frame("incFrame_2").WebEdit("userDTO.userid").Set DataTable.Import ("C:\参数.xls")
Browser("uWorld").Page("uWorld").Frame("incFrame_2").WebEdit("userDTO.userpwd").SetSecure "468c526fd85be5aef38f909a5a66d53817d7359b"
Browser("uWorld").Page("uWorld").Frame("incFrame_2").WebEdit("reUserpwd").SetSecure "468c527186a725bb05db9644cb2e66e1a58cc233"
Browser("uWorld").Page("uWorld").Frame("incFrame_2").WebEdit("userDTO.safecode").SetSecure "468c52745309d9764e146392f4cfdf3c1d5677ac"
Browser("uWorld").Page("uWorld").Frame("incFrame_2").WebEdit("reSafecode").SetSecure "468c5277c83d73ffc16138f6dc710c55323aaeb9"
Browser("uWorld").Page("uWorld").Frame("incFrame_2").WebEdit("validateCode").Set "1111"
Browser("uWorld").Page("uWorld").Frame("incFrame_2").WebButton("提交注册").Click
Browser("uWorld").Page("uWorld").Frame("incFrame_3").WebButton("进入系统").Click
Browser("uWorld").Page("uWorld").Frame("topFrame").WebButton("退出系统").Click
Browser("uWorld").Page("uWorld").Frame("topFrame_2").WebEdit("userDTO.userid").Set "liuliuliu"
Browser("uWorld").Page("uWorld").Frame("topFrame_2").WebEdit("userDTO.userpwd").SetSecure "468c528a0bf70eae152f7fb3c85ccfba7a1d8810"
Browser("uWorld").Page("uWorld").Frame("topFrame_2").WebButton("登录").Click
Browser("uWorld").Page("uWorld").Frame("topFrame").WebButton("退出系统").Click
Browser("uWorld").Page("uWorld").Frame("top").Link("用户管理").Click
Browser("uWorld").Page("uWorld").Frame("incFrame").Link("用户注册").Click
Browser("uWorld").Page("uWorld").Sync
Browser("uWorld").Close
我这样设置的还是没有成功，实在不知道是哪里错了

作者: rivermen 时间: 2007-7-5 13:51
Browser("uWorld").Page("uWorld").Frame("incFrame_2").WebEdit("userDTO.userid").Set DataTable.Import ("C:\参数.xls")
把这句改掉。

Dim filePath
filePath="C:\参数.xls"
datatable.Importsheet filepath,1,2
' DataTable.ImportSheet(FileName, SheetSource, SheetDest)
' 1为Excel 中的第一张 Sheet
' 2 为 DataTable 中的第二张，暨Action1

wait 10
Browser("uWorld").Page("uWorld").Frame("incFrame_2").WebEdit("userDTO.userid").Set DataTable("自定义参数名", dtLocalSheet)

[ 本帖最后由 rivermen 于 2007-7-5 13:52 编辑 ]

作者: npy912 时间: 2007-7-5 14:25
这么复杂啊我得研究研究还是先谢谢了啊 sdlkfj2

作者: ybbiagu 时间: 2007-7-5 21:21
写个函数直接读excel表里的数据就搞定了，干么还用datatable 这样就没必要用excel表了呀

作者: stone821021 时间: 2007-7-5 21:57
标题: 回复 #7 npy912 的帖子
Set xlApp= CreateObject("Excel.Application")
Set wkBook= xlApp.Workbooks.Open("E:\test.xls")
Set wkSheet= wkBook.Worksheets("Sheet1")
msgbox CStr(wkSheet.Cells(1, 1))
msgbox CStr(wkSheet.Cells(1, 2))
这样的方法可以直接从excel中读取数据,不用拿DataTable做中转.

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