vbs读取excel要怎样运行？

deadhunter

下面的函数是读取excel的数据，保存后双击脚本，但脚本没有生效，数据都没提取成功，请问这样的脚本要怎样运行？


function getrowandcol()
  '函数作用：在EXCEL中获取指定字符串存入其它工作表
  '参数说明
  'data：需要查找的字符串
  Dim url,ot,t
  Set excel=CreateObject("Excel.Application")
  set openexcel=excel.Workbooks.Open("D:\工作报告\自动化测试报告\8-10.xls")
  excel.Visible = True
  data = "testurl = http://xg.788111.com"
  j=1
  openexcel.WorkSheets("Sheet1").Activate
  rowcount =openexcel.ActiveSheet.UsedRange.Rows.Count     '获sheet总行数
  Columnscount =openexcel.ActiveSheet.UsedRange.Columns.count '获sheet总列数
    For i=1 to rowcount
            '获取字符串
                openexcel.WorkSheets("Sheet1").Activate
                url = openexcel.Cells(i,1).Value
                ot = openexcel.Cells(i,2).Value
                t = openexcel.Cells(i,3).Value
        If cstr(openexcel.WorkSheets("Sheet1").Cells(i,1)) = data  then '将EXCEL中数据转化为字符串类型与传入的字符串进行比较
               openexcel.WorkSheets("Sheet2").Activate
               openexcel.Columns(1).columnswidth = 20
               openexcel.Cells(j,1).Value=url
               openexcel.Cells(j,2).Value=ot
               openexcel.Cells(j,3).Value=t
               j=j+1
                end if
    Next
  openexcel.save
  openexcel.Close                                   
  excel.Quit                                                   
  set  openexcel=nothing      
  Set  excel=nothing
End Function

鹭岛

getrowandcol  这个没返回值？

deadhunter

是我的原因，谢谢