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

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

SetExcelFile="E:\logininfo.xls"
Call datatable.AddSheet("login_check")
Call datatable.AddSheet("transferinfo")
Call datatable.ImportSheet(SetExcelFile,"login_check","login_check")
Call  datatable.ImportSheet(SetExcelFile,"transferinfo","transferinfo")

'得到某个sheet的行数
 sheetcount =DataTable.getsheet("login_check").GetRowCount
 Reporter.ReportEvent 0,"sheetnumber" ,"there are "&sheetcount&" sheets in the sheet"