qtp dictionary 问题
上一篇 /
下一篇 2009-02-20 14:57:38
/ 个人分类:qtp脚本
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
set valus =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
其中加红的地方在保存的时候老是提醒又错误,但是我找不出什么错误,请帮我找找!
收藏
举报
TAG: