作者：绿色风
分类：
时间：2022-08-17
浏览：86
楼主
biaotiger1 |
Q：如何使新建工作簿的名称为“表名+今日日期”的形式？
A：
ALT+F11
步骤一：“插入”→“模块”，在代码窗口中输入代码如下
- Dim MyApp As New AppEventCls
- Public Sub Auto_Open()
- Set MyApp.App = Application
- End Sub
步骤二：“插入”→“类模块”→F4→F4→更改名称为“AppEventCls”。在代码窗口中输入代码如下
- Public WithEvents App As Application
- Private Sub App_NewWorkbook(ByVal Wb As Workbook)
- Dim A As String
- A = Dir(Application.DefaultFilePath & "\表名" & Format(Now, "yyyy-m-d") & ".xlsx", vbNormal)
- If Len(A) <> 0 Then
- MsgBox "该文件——表名" & Format(Now, "yyyy-m-d") & ".xlsx——已经存在，新建文件将手动保存。", vbInformation, "提醒注意"
- Exit Sub
- Else
- Wb.SaveAs Application.DefaultFilePath & "\表名" & Format(Now, "yyyy-m-d")
- End If
- End Sub
另存该文件为“Excel 加载宏（*.xlam）”类型，保存在AddIns路径下。
在需要的时候加载该加载项。此时，新建工作簿即自动保存文件，文件名为“表名+当日日期”的形式（如“表名2010-6-23.xlsx”）。
详见附件。
相关帖子如下：
[VBA] 如何创建自定义函数？ http://www.exceltip.net/thread-4407-1-1.html
 新建文件为表名加当前日期.rar
|
2楼
hw757073 |
附件打不开呀 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一