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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com