51Testing软件测试论坛

标题: vbs读取excel要怎样运行？ [打印本页]

作者: deadhunter 时间: 2010-9-9 10:21
标题: vbs读取excel要怎样运行？
下面的函数是读取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

作者: 鹭岛 时间: 2010-9-9 11:33
getrowandcol 这个没返回值？

作者: deadhunter 时间: 2010-9-10 09:49
是我的原因，谢谢

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)