51Testing软件测试论坛

标题: 关于使用函数返回值时提示：类型不匹配“return” [打印本页]

作者: liaojianguo 时间: 2011-5-18 18:01
标题: 关于使用函数返回值时提示：类型不匹配“return”
写了一个简单的函数，函数功能是打开一个excel，并且返回某一个格的值。但是在运行时，却提示：类型不匹配“return”。。以下为脚本，报错见附件。

function openexcel(filename,sheetname,x,y)
Dim XFS,XFSBOOK,XFSSHEET
Set XFS = createobject("Excel.Application")
Set XFSBOOK = XFS.WorkBooks.Open(filename)
Set XFSSHEET = XFSBOOK.worksheets(sheetname)
return XFSSHEET.cells(x,y).value ‘这里报错
Set XFS=nothing
XFSBOOK.close
XFSSHEET.close
end function

msgbox openexcel ("C:\project\data\qtp.xls","sheet2",1,2)

作者: liaojianguo 时间: 2011-5-18 18:03
附件

作者: liaojianguo 时间: 2011-5-18 18:04
回复 2# liaojianguo

作者: iQuickTest 时间: 2011-5-19 07:30
标题: null
vbs返回不是这样写的，是直接返回给函数名。

作者: lyscser 时间: 2011-5-19 08:41
都起这么早……

作者: iQuickTest 时间: 2011-5-19 09:08
老了，睡不着

作者: superliming 时间: 2011-5-19 09:33
vbs中没有return

作者: liaojianguo 时间: 2011-5-20 10:34
如果我想要返回某一个表格里的一个数据呢？我该怎么写？我就是想返回XFSSHEET.cells(x,y).value 这个值，以方便调用。

作者: liaojianguo 时间: 2011-5-20 10:49
问题已经解决。vbs是以函数名做为返回值，故return那句只要改成 openexcel = XFSSHEET.cells(x,y).value即可。

作者: fly_away 时间: 2011-5-24 13:06
本人写VBS脚本函数，从未见过有return这个关键字，楼主最好下个VBS的官方帮助文档看看

作者: 17800455 时间: 2011-5-24 18:04
openexcel = XFSSHEET.cells(x,y).value ‘这里报错

vbs不支持return返回.
如果要返回值的话.
直接函数名=返回的值
这样就可以了.

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