TA的每日心情 | 郁闷 2018-11-15 14:58 |
---|
签到天数: 2 天 连续签到: 2 天 [LV.1]测试小兵
|
下面的函数是读取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 |
|