作者cyrenaic (公寓春光)
看板Visual_Basic
标题[VBA ] 如何按键自动另存新档且自动更改档名
时间Wed Nov 14 09:20:35 2007
想请教一个问题
如果想要让档案按一建自动存档，且如有相同档名时，会自动编号~
这样子的应该如何编写
以下是初步写出来东西
Sub FirstSave()
Dim Filepath As String
COName = Sheets("报价单").Range("C5") '公司名称
'以下为目前的日期
Y = Year(Date)
M = Month(Date)
D = Day(Date)
For i = 1 To 9
If M = i Then
M = "0" & i
End If
Next
For i = 1 To 9
If D = i Then
D = "0" & i
End If
Next
recordday = Y - 1911 & M & D '从西元转换成民国
savename = COName & recordday '储存的档名
Filepath = "D:\" & COName & "\" & savename '储存的路径
ActiveWorkbook.SaveAs Filename:=Filepath
End Sub
如果今天已经有储存了一笔 "公司名称961114" 的档案
那如何把今天第二次存档的资料自动转换成 "公司名称961114-2"
请大大们赐教
谢谢~
※ 编辑: cyrenaic 来自: 218.172.111.6 (11/14 09:21)
1F：推 Marty:用FileExists来判断是否已经有这个档案... 11/14 10:40
2F：推 Marty:还有你的日期转换建议用Format()..可以简化不少程式码.. 11/14 10:48