liaojianguo 发表于 2011-5-18 18:01:56

关于使用函数返回值时提示：类型不匹配“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:36

附件

liaojianguo 发表于 2011-5-18 18:04:00

回复 2# liaojianguo

iQuickTest 发表于 2011-5-19 07:30:27

null

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

lyscser 发表于 2011-5-19 08:41:55

都起这么早……

iQuickTest 发表于 2011-5-19 09:08:14

老了，睡不着

superliming 发表于 2011-5-19 09:33:51

vbs中没有return

liaojianguo 发表于 2011-5-20 10:34:00

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

liaojianguo 发表于 2011-5-20 10:49:35

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

fly_away 发表于 2011-5-24 13:06:02

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

17800455 发表于 2011-5-24 18:04:23

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

vbs不支持return返回.
如果要返回值的话.
直接   函数名=返回的值
这样就可以了.
页: [1]
查看完整版本: 关于使用函数返回值时提示：类型不匹配“return”