[已解决]退出excel表格时，文件名后面增加时间

yanghuipaul

各位大神，求助VBA代码，退出excel表格保存时，文件名后面自动增加当时时间。

最佳答案

月排行榜 / 总排行榜

sam-wang

2021-12-29 11:40

是這樣嗎? 謝謝

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
FN = Split(ThisWorkbook.Name, ".")(0)
PH = ThisWorkbook.Path
ThisWorkbook.SaveCopyAs PH & "\" & FN & Format(Now(), "_yyyymmddhhmmss") & ".xlsm"
End Sub

跳转到最佳答案楼层

sam-wang

是這樣嗎? 謝謝

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
FN = Split(ThisWorkbook.Name, ".")(0)
PH = ThisWorkbook.Path
ThisWorkbook.SaveCopyAs PH & "\" & FN & Format(Now(), "_yyyymmddhhmmss") & ".xlsm"
End Sub

林木水

1. Sub 修改文件名()
   
2. Dim a, b, wb As Workbook
   
3. a = ThisWorkbook.Path
   
4. b = ThisWorkbook.Name
   
5. Set wb = ThisWorkbook
   
6. wb.SaveAs a & "" & VBA.Replace(VBA.Replace(Now, ":", " "), "/", "") & "名称" & b
   
7. Kill a & "" & b
   
8. End Sub
   

复制代码

以上亲测有效，名字按照自己需要的去修改。
1.创建一个模块，输入以上代码，编写宏-“修改文件名”
2.在thisworkbook里面的beforeclose事件，调用宏-“修改文件名”
解决问题，老规矩，给最佳

林木水

其实建议你可以把打开和关闭的时间，存到一个txt文本里面，那样更加直观的知道你的文件什么时候被打开跟关闭了

yanghuipaul

sam-wang 发表于 2021-12-29 11:40
是這樣嗎? 謝謝

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

谢谢老铁。。。。

yanghuipaul

林木水 发表于 2021-12-29 18:23
以上亲测有效，名字按照自己需要的去修改。
1.创建一个模块，输入以上代码，编写宏-“修改文件名”
2.在t ...

谢谢老铁。。。。