51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 6260|回复: 10
打印 上一主题 下一主题

[原创] 关于使用函数返回值时提示:类型不匹配“return”

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2011-5-18 18:01:56 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
写了一个简单的函数,函数功能是打开一个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)
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2011-5-18 18:03:36 | 只看该作者
附件
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2011-5-18 18:04:00 | 只看该作者
回复 2# liaojianguo
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2011-5-19 07:30:27 | 只看该作者

null

vbs返回不是这样写的,是直接返回给函数名。
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2011-5-19 08:41:55 | 只看该作者
都起这么早……
回复 支持 反对

使用道具 举报

该用户从未签到

6#
发表于 2011-5-19 09:08:14 | 只看该作者
老了,睡不着
回复 支持 反对

使用道具 举报

该用户从未签到

7#
发表于 2011-5-19 09:33:51 | 只看该作者
vbs中没有return
回复 支持 反对

使用道具 举报

该用户从未签到

8#
 楼主| 发表于 2011-5-20 10:34:00 | 只看该作者
如果我想要返回某一个表格里的一个数据呢?我该怎么写?我就是想返回XFSSHEET.cells(x,y).value   这个值,以方便调用。
回复 支持 反对

使用道具 举报

该用户从未签到

9#
 楼主| 发表于 2011-5-20 10:49:35 | 只看该作者
问题已经解决。vbs是以函数名做为返回值,故return那句只要改成 openexcel = XFSSHEET.cells(x,y).value即可。
回复 支持 反对

使用道具 举报

  • TA的每日心情
    开心
    2015-4-16 21:09
  • 签到天数: 2 天

    连续签到: 1 天

    [LV.1]测试小兵

    10#
    发表于 2011-5-24 13:06:02 | 只看该作者
    本人写VBS脚本函数,从未见过有return这个关键字,楼主最好下个VBS的官方帮助文档看看
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2018-7-13 14:04
  • 签到天数: 6 天

    连续签到: 1 天

    [LV.2]测试排长

    11#
    发表于 2011-5-24 18:04:23 | 只看该作者
    openexcel =  XFSSHEET.cells(x,y).value   ‘这里报错

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

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-15 04:53 , Processed in 0.074493 second(s), 28 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表