excel文件名能不能设置成日期并且能随着当前日期自动变动的
发布网友
发布时间:2024-03-22 01:35
我来回答
共1个回答
热心网友
时间:2024-03-23 10:43
1、F盘下先建立一个模板,“原件变色排名榜.xlt”
2、把下面的VBA内容复制到宏中运行
sub 建表()
Workbooks.Add Template:="F:\原件变色排名榜.xlt"
Range("D2").Select
Selection.Copy
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A5").Select
Application.DisplayAlerts = False
ChDir "F:\当月"
ActiveWorkbook.SaveAs Filename:= _
"F:\当月\截止" & Format(Date , "yyyy年mm月dd日") & "排名榜.xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close SaveChanges:=False
end sub