如何设置在保存时文件名里自动带上日期

ty1014 · 发表于 2011-6-17 16:45

如何设置在保存EXCEL表格时，文件名里能自动带上当时的日期？高手指导下，谢谢.

比如保存后的文件名像这样： XXXX-2011-05-06

ty1014 · 发表于 2011-6-18 21:44

有人能出手指点么

zhang0172 · 发表于 2011-6-18 23:27

自己手改好了

ty1014 · 发表于 2011-6-19 00:06

要是手动还发贴干什么哟

ty1014 · 发表于 2011-6-28 09:12

希望大解答家！！！！

bri123 · 发表于 2011-7-1 17:58

Sub 另存到桌面宏()
ActiveWorkbook.SaveAs Filename:= _
      "C:\Documents and Settings\Administrator\桌面\" & "XXXX“ & Format(Date, "yyyyMMDD") ."xls", _
      FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
      CreateBackup:=False

      MsgBox "已成功保存到桌面!"
End Sub
'把路径改成你需要另存为的路径，把XXXX改成你的文件名即可。

becomedoc · 发表于 2011-7-1 19:49

可以试试看

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim fileName As String
Dim wkbkName As String
On Error Resume Next
wkbkName = ThisWorkbook.Name
If wkbkName Like "*-*-*-*" Then
fileName = ThisWorkbook.Path & "" & Left$(wkbkName, InStr(wkbkName, "-")) & Format(Now(), "yyyy-mm-dd") & ".xls"
Else
fileName = ThisWorkbook.Path & "" & Left$(wkbkName, InStrRev(wkbkName, ".") - 1) & "-" & Format(Now(), "yyyy-mm-dd") & ".xls"
End If
ThisWorkbook.SaveAs fileName
Kill ThisWorkbook.Path & "" & wkbkName
End Sub

复制代码

ty1014 · 发表于 2011-7-12 09:54

好久没有上呢,多谢楼上朋友的出手,先试试

思梦2 · 发表于 2016-6-16 00:21

bri123 发表于 2011-7-1 17:58
Sub 另存到桌面宏()
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Administr ...

你好，你的这个代码怎么语法错误，还能改吗？我又一个表想导出到新表里，新表保存成原文件名+当前年月日+表N1单元格的内容，如“上海2016年6月15日200套”，200是N1的内容

bri123 · 发表于 2016-11-1 14:07

思梦2 发表于 2016-6-16 00:21
你好，你的这个代码怎么语法错误，还能改吗？我又一个表想导出到新表里，新表保存成原文件名+当前年月日+ ...

XXXX右侧的引号是全角引号，是不是这个原因？

		自动登录	找回密码
密码			免费注册

[求助] 如何设置在保存时文件名里自动带上日期

回复 1楼 ty1014 的帖子