51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2303|回复: 4
打印 上一主题 下一主题

[原创] qtp关于保存EXCEL脚本的问题

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2012-1-12 22:42:10 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 wspc 于 2012-1-14 11:09 编辑

objWorkBook.SaveAs( "c:\6.xls")
objExcel.Workbooks.Close
objExcel.Quit
Set objWorkBook = Nothing
Set objExcel = Nothing
写了个脚本,保存EXCEL文件,每次运行的时候都提示该文件已存在,有没有一种方法直接覆盖或者用将路径保存为变量 ,求解,各位大神
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2012-1-13 19:49:13 | 只看该作者
判断此文件是否存在
回复 支持 反对

使用道具 举报

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

    连续签到: 1 天

    [LV.1]测试小兵

    3#
    发表于 2012-1-13 23:36:31 | 只看该作者
    本帖最后由 fly_away 于 2012-1-13 23:38 编辑

    Dim FilePath:FilePath = "c:\6.xls"

    ''''在保存的时候判断此路径下的文件是否存在
    Dim fso
    Set fso = CreateObject("scripting.FileSystemObject")
    If fso.FileExists(FilePath) Then
            objWorkBook.Save
    Else
            objWorkBook.SaveAs FilePath
    End If
    Set fso = Nothing

            objExcel.Workbooks.Close
            objExcel.Quit
    Set objWorkBook = Nothing
    Set objExcel = Nothing


    不过我给的另一个解决方案是……文件的名称基于当前时间,这样就不会有重复了。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    4#
    发表于 2012-1-14 09:28:45 | 只看该作者
    回复 3# fly_away
    我觉得可以用时间来随机化化文件名,这样比较好,一般不会重复。
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
     楼主| 发表于 2012-1-14 10:59:13 | 只看该作者
    本帖最后由 wspc 于 2012-1-14 11:14 编辑

    回复 4# pl80601983


        出来了,呵呵
    a=time()
    b=".xls"
    objWorkBook.SaveAs "c:\"&a&b
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-6 15:32 , Processed in 0.077651 second(s), 28 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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