51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1621|回复: 3
打印 上一主题 下一主题

[原创] 【已解决】保存的excel不正确

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2013-1-8 10:26:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 黑羽祭 于 2013-1-8 11:05 编辑

newDelExcel("E:\QTPscript\SCAP\result")

Sub newDelExcel(strFilePath)
'    On Error Resume Next

        Dim excelSheet,excelBook,fso,strFilePath1
'        workspace="E:\QTPscript\SCAP\result"
    strFilePath1=strFilePath'workspace & "\" & strFilePath

    Set ExcelApp = CreateObject("Excel.Application")
    ExcelApp.Workbooks.Add
    ExcelApp.Visible = True
    Set excelSheet = ExcelApp.ActiveSheet
    Set excelBook = ExcelApp.ActiveWorkbook
    Set fso = CreateObject("scripting.FileSystemObject")   
    fso.DeleteFile strFilePath1
    excelBook.SaveAs strFilePath1
    ExcelApp.Quit
    Set ExcelApp = Nothing
    Set fso = Nothing
End Sub

运行后发现生成的excel格式为.xlsx,我想要的为.xls的。
生成后的文件我想要在E:\QTPscript\SCAP\result文件夹下,实际结果为和“result”文件夹平级,在“SCAP”文件夹下。
急!!  求救!!大神
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2013-1-8 10:27:17 | 只看该作者
在线等大神们的回答
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2013-1-8 10:58:57 | 只看该作者
已解决
回复 支持 反对

使用道具 举报

  • TA的每日心情
    无聊
    2018-9-27 10:05
  • 签到天数: 36 天

    连续签到: 1 天

    [LV.5]测试团长

    4#
    发表于 2013-1-8 11:01:21 | 只看该作者
    看来LZ还是有能力解决的啊~哈哈
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-22 04:11 , Processed in 0.085775 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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