Question

求excel宏，需在每次保存时将此文件保存在当前文件中加当天日期命名，当天每次保存都可以替换上一次的

需要在点保存时，自动运行的宏哦。谢谢支持！

Answer 1

如果你用的是EXCEL2007，则如下，当你把文件保存、关闭后会按当前日期保存（日前前会加上a,不然下面的语句会报错）
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim s
s = "a" & Date & ".XLSM"

ThisWorkbook.SaveAs s

End Sub

如果你用的是EXCEL2003，则如下
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim s
s = "a" & Date

ThisWorkbook.SaveAs s

End Sub

目前这个对保存路径没有进行控制，它会另存在我的文档中

追问

因为是公共盘，路径我需要指定控制，怎么改呢？谢谢！

追答

你将保存的地址路径放到名称前，具体如下（保存到桌面）
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim s
s = "a" & Date & ".XLSM"

ThisWorkbook.SaveAs Filename:="C:\Documents and Settings\Administrator\桌面\" & s

End Sub

需要注意的是，你源文件的名称不能是a+当天日期，不然会报错

追问

对了，设了密码报错,怎么改呢？

 

另，能不能再请教一个问题？

Sub 以指定区域为表目录补充新表

 

我需要插入指定的excel的模板文件和其路径，该怎么更改呢？ 非常感谢！

追答

对VBA我学了也不是很深入，对简单的用法用的多些，对更深入的用法我也不是很明了。

Answer 2

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Format(today(), "YYYY-MM-DD") & ".xls"
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub

Answer 3

只要保存后好像就得从新建宏