请求帮助

npy912

DataTable.Import ("C:\flights.xls")
当然也可以针对具体的一个sheet导入

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

杀人跳舞

参数化的时候选择Current action sheet(local)

npy912

不是那个意思 我是说不在data table里面写参数直接调用excel表

npy912

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

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

这么复杂啊  我得研究研究 还是先谢谢了啊 sdlkfj2

ybbiagu

写个函数直接读excel表里的数据就搞定了，干么还用datatable 这样就没必要用excel表了呀

stone821021

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做中转.