关于使用函数返回值时提示：类型不匹配“return”

liaojianguo

写了一个简单的函数，函数功能是打开一个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)

17800455

openexcel =  XFSSHEET.cells(x,y).value   ‘这里报错

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

fly_away

本人写VBS脚本函数，从未见过有return这个关键字，楼主最好下个VBS的官方帮助文档看看

liaojianguo

问题已经解决。vbs是以函数名做为返回值，故return那句只要改成 openexcel = XFSSHEET.cells(x,y).value即可。

liaojianguo

如果我想要返回某一个表格里的一个数据呢？我该怎么写？我就是想返回XFSSHEET.cells(x,y).value   这个值，以方便调用。

superliming

vbs中没有return

iQuickTest

老了，睡不着

lyscser

都起这么早……

iQuickTest

vbs返回不是这样写的，是直接返回给函数名。

liaojianguo

回复 2# liaojianguo

liaojianguo

附件