以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  我想加个判断改怎么做啊?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=55709)

--  作者:jinzhengbe
--  发布时间:2014/8/21 19:37:00
--  我想加个判断改怎么做啊?

在下面的代码基础上,判断,原先是否有相同文件,如果有

则,在名字后面加上序号

例如

如果原先存在 导入格式。xls

新生成的文件为  导入格式-1.xls

如果两个都有的话,导入格式-2。xls

以此类推。。


 

 

 

 

 

 

Book.Save("d:\\pic1\\" & Date.Today & "\\" & "导入格式.xls")


--  作者:有点甜
--  发布时间:2014/8/21 19:39:00
--  

你直接加入时间命名更好。

 

Book.Save("d:\\pic1\\" & Date.Today & "\\" & "导入格式_" & format(date.Now, "mmss") & ".xls")


--  作者:jinzhengbe
--  发布时间:2014/8/21 20:03:00
--  

图片点击可在新窗口打开查看图片点击可在新窗口打开查看

图片点击可在新窗口打开查看图片点击可在新窗口打开查看

图片点击可在新窗口打开查看图片点击可在新窗口打开查看

图片点击可在新窗口打开查看图片点击可在新窗口打开查看

图片点击可在新窗口打开查看图片点击可在新窗口打开查看

图片点击可在新窗口打开查看图片点击可在新窗口打开查看

图片点击可在新窗口打开查看图片点击可在新窗口打开查看

图片点击可在新窗口打开查看图片点击可在新窗口打开查看