qtp关于保存EXCEL脚本的问题

wspc · 发表于 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文件，每次运行的时候都提示该文件已存在，有没有一种方法直接覆盖或者用将路径保存为变量，求解，各位大神

wangyanzhao · 发表于 2012-1-13 19:49:13

判断此文件是否存在

fly_away · 发表于 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

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

pl80601983 · 发表于 2012-1-14 09:28:45

回复 3# fly_away
我觉得可以用时间来随机化化文件名，这样比较好，一般不会重复。

wspc · 发表于 2012-1-14 10:59:13

本帖最后由 wspc 于 2012-1-14 11:14 编辑

回复 4# pl80601983

出来了，呵呵
a=time()
b=".xls"
objWorkBook.SaveAs "c:\"&a&b

		自动登录	找回密码
密码			(注-册)加入51Testing

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

相关帖子

站长推荐 /1