樱桃宝宝 发表于 2009-2-20 15:05:58

qtp dictionary 问题

setFileExcel ="E:\中交测试脚本\loan.xls"
sheet_name ="loan"
Call datatable.AddSheet(sheet_name)
Call datatable.ImportSheet (setFileExcel,sheet_name,sheet_name)
rows =datatable.GetSheet (sheet_name).GetRowCount
setvalus =CreateObject("Scripting.Dictionary")

For i=1 to rows
DataTable.SetCurrentRow (1)
For j=1 to 10
   str =datatable.Value(j,sheet_name)
       valus .Add Cstr(j),str                         
Next
Next

其中加红的地方在保存的时候老是提醒又错误，但是我找不出什么错误，请帮我找找！谢谢

樱桃宝宝 发表于 2009-2-20 15:06:47

现谢谢大家，知道的帮帮忙

morrith 发表于 2009-2-20 16:06:41

多个空格？
valus.Add Cstr(j),str
我不清楚，就是看你的多了个空格。。

jifeng 发表于 2009-2-20 17:17:22

提示什么错误啊，
页: [1]
查看完整版本: qtp dictionary 问题