获取外部Excel中的数据时出错，

jino007

获取外部Excel中的数据时出错，he retrieve DataTable.Value operation failed. The <Selectltem> column doesnot exist.
是什么问题啊？

souchy

脚本被调用时，原本对应的本地表名会有些许改变，如Login，会变成Login[Login]
如果在导入时直接用原名称的话，会发生错误！

lamuda

sheetName=DataTable.GetSheet(dtlocalsheet).Name  '考虑到被调用时本地表名称会变化而事先获取本地表名称
---------------本地表名为什么会起变化呢？

jino007

问题解决了~谢谢各位。

wolaizhinidexin

已经提示了你啊.selectitem does not exist

你再仔细对比一个excel和global表

souchy

sheetName=DataTable.GetSheet(dtlocalsheet).Name  '考虑到被调用时本地表名称会变化而事先获取本地表名称
DataTable.ImportSheet "..\..\Data"&"\AddGift.xls","AddGift",sheetName
RowCount=datatable.GetSheet(dtlocalsheet).GetRowCount
i=0
Do until i>=RowCount
i=i+1
datatable.GetSheet(dtlocalsheet).SetCurrentRow(i)
Browser("***").Page("***").Frame("leftFrame").Link("添加礼品").Click
Browser("***").Page("***").Frame("main").WebEdit("tbName").Set  DataTable("礼品名称",dtlocalsheet)
Browser("***").Page("***").Frame("main").WebList("ddlType").Select DataTable("礼品类型", dtlocalsheet)
Browser("***").Page("***").Frame("main").WebList("ddlKind").Select "#"& DataTable("礼品种类", dtlocalsheet)
Browser("***").Page("***").Frame("main").WebEdit("tbMarketPrice").Set DataTable("市场价格", dtlocalsheet)
Browser("***").Page("***").Frame("main").WebEdit("tbChargeValue").Set DataTable("兑换积分", dtlocalsheet)
Browser("***").Page("***").Frame("main").WebEdit("tbChargeMoneyValue").Set DataTable("兑换现金",dtlocalsheet)
Browser("***").Page("***").Frame("main").WebEdit("tbBalanceValue").Set DataTable("结算价格", dtlocalsheet)
Browser("***").Page("***").Frame("main").WebButton("下一步").Click
Browser("***").Page("***").Frame("main").WebButton("新增").Click
Browser("***").Dialog("Windows Internet Explorer").WinButton("确定").Click
Loop

jino007

datatable.ImportSheet "D:\aa.xls","sheet1","Global"
Dim dtvalue,dtsheet
Set dtsheet=datatable.GetSheet("Global")

Browser("Browser").Page("Find a Flight: Mercury").WebList("passCount").Select "4"
Browser("Browser").Page("Find a Flight: Mercury").WebList("fromDay").Select "20"
Browser("Browser").Page("Find a Flight: Mercury").WebList("toPort").Select "Frankfurt"
Browser("Browser").Page("Find a Flight: Mercury").Image("findFlights").Click 64,11
Browser("Browser").Page("Select a Flight: Mercury").Image("reserveFlights").Click 60,9
For i=0 to dtsheet.GetRowCount
        dtvalue=datatable("selectltem","Global")
Browser("Browser").Page("Book a Flight: Mercury").WebEdit("name:=passFirst"&i).Set dtvalue
wait 2
dtsheet.SetNextRow
Browser("Browser").Page("Book a Flight: Mercury").WebEdit("name:=passLast"&i).Set dtvalue
wait 2
i=i+2
Next

各位 ，见笑了，我是刚刚开始学的。

superliming

应该是选择的列不存在

sc_zk2008

检测不到colum名，建议还是把语句贴出来看看

bounty

把你获取外部EXCEL语句贴出来看一下先