如何一键生成当月的所有天数的工作簿？

作者：绿色风分类：时间：2022-08-17 浏览：100

楼主
wqfzqgk

Q：在工作中有时需要每天生成一部分工作表以当天的日期，如何一键生成当月的所有天数的工作簿？
A：

Sub 一键生成当月天数工作表的新工作簿()
On Error Resume Next
Dim newwork As Workbook
mypath = "d:\my" '改为你的目录
If Dir(mypath) = "" Then MkDir (mypath)
'Application.SheetsInNewWorkbook = 5'此加入后可改变新建工作簿中工作表的个数
For i = 1 To Day(DateSerial(Year(Now), Month(Now) + 1, 0))
Set newwork = Workbooks.Add
newwork.SaveAs mypath & "\" & Month(Now) & "月" & i & "号" & ".xls"
newwork.Close
Next
Application.SheetsInNewWorkbook = 3 '还原
End Sub

2楼
い卋玑┾宝珼

有时候还是挺实用的，有时候有个模板的表，然后这样生成一堆用来填的表格

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表