deadhunter 发表于 2010-9-9 10:21:09

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)) = datathen '将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                                                   
setopenexcel=nothing      
Setexcel=nothing
End Function

鹭岛 发表于 2010-9-9 11:33:47

getrowandcol这个没返回值？

deadhunter 发表于 2010-9-10 09:49:58

是我的原因，谢谢
页: [1]
查看完整版本: vbs读取excel要怎样运行？