请问如何实现表格文件名自动添加日期？

arno61361

如题：我想解决的是一台电脑里所有表格的文件在保存时实现文件名自动添加日期的功能，当个工作簿文件名添加日期我已解决，期待老师们的解惑！谢谢！

砂海

文件名<>工作簿文件名 ?

arno61361

砂海 发表于 2016-1-4 22:50
文件名工作簿文件名 ?

文件名，但不想每打开一个工作簿就得先设置下代码后，才能在这个工作簿保存时，自动在文件名添加日期，而是希望能设定一次后，以后无论是新建工作簿还是别的，都能自动实现保存时文件名添加日期的功能。求教！谢谢！

砂海

把带代码的文件另存为 加载宏 *.xla 或 *.xlam

以下示例 为加载宏 工作簿中 的 代码, 功能不是这个,供参考
Option Explicit

Public WithEvents app As Excel.Application

Private Sub app_WorkbookOpen(ByVal Wb As Workbook)
Dim a
If Wb.Name = "open.xla" Then Exit Sub
a = Application.InputBox("请输入打开excel程序口令", "安全提示")
If a <> 123 Then
   Wb.Close False
   MsgBox "很抱歉！你没有打开本机excel程序权限。"
End If

End Sub


Private Sub Workbook_Open()
Set app = Excel.Application '此段为激活上述app
End Sub

砂海

另 参见 :加载宏"

arno61361

砂海 发表于 2016-1-5 18:50
另 参见 :加载宏"

本人白生一枚，搞不懂。这个文件名咋处理，不同的工作簿文件名不一样的，如何解决这个问题？目前运用的代码是借来的，具体如下：
Option Explicit

Public WithEvents app As Excel.Application

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.Save
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\日报表" & Format(Now(), "yyyy.mm.dd.hh.mm") & ".xls"
End Sub

请指教！

砂海

1 我也没到指教的水平
2 突然 想到 这样 的话,随便哪个文件 保存就会出个 "日报表".感觉不妥.
3 可能 还是应该 在"母文件"里面,每此存一下就出一个日报表

arno61361

虽然问题没解决，但还是感谢楼上朋友的热情指教！