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:

 

评分:0

我来说两句

日历

« 2024-03-22  
     12
3456789
10111213141516
17181920212223
24252627282930
31      

数据统计

  • 访问量: 3495
  • 日志数: 11
  • 建立时间: 2009-02-11
  • 更新时间: 2009-06-23

RSS订阅

Open Toolbar