求个大神将表格中的3个表格生成单独的文件夹，最好代码中能带点备注

283230575

求大神，图中带颜色的（经日  处日  业主这三个表格）生成独立的表格，表格名称分别为经理部日报，业主日报 处日报。请求每行代码中能附带注释，

283230575

快来人啊  各位大神，因为我有很多表格都要这样弄，  所以拿到代码后先要研究下，以便于灵活用于别的模板

3190496160

文件名称可以自己修改代码
Sub test()
Application.ScreenUpdating = False
For Each sh In Sheets(Array("经日", "业主", "处日"))
    sh.Copy
    ActiveWorkbook.Worksheets(1).UsedRange = ActiveWorkbook.Worksheets(1).UsedRange.Value
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & sh.Name & "报"
    ActiveWorkbook.Close
Next sh
Application.ScreenUpdating = True
End Sub

3190496160

第二版 施工进度统计表.rar (1.02 MB, 下载次数: 4)

2020-4-14 10:00 上传

点击文件名下载附件

283230575

3190496160 发表于 2020-4-14 10:00

哈哈  大神， 你太帅了。  

283230575

3190496160 发表于 2020-4-14 09:59
文件名称可以自己修改代码
Sub test()
Application.ScreenUpdating = False

Sub test()
Application.ScreenUpdating = False
For Each sh In Sheets(Array("经日", "业主", "处日"))
    sh.Copy
    ActiveWorkbook.Worksheets(1).UsedRange = ActiveWorkbook.Worksheets(1).UsedRange.Value
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Now() & "经理部日报"
    ActiveWorkbook.Close
Next sh
Application.ScreenUpdating = True
End Sub
大神  这一句报错

283230575

3190496160 发表于 2020-4-14 09:59
文件名称可以自己修改代码
Sub test()
Application.ScreenUpdating = False

Sub test()
Application.ScreenUpdating = False
For Each sh In Sheets(Array("经日"))
    sh.Copy
    ActiveWorkbook.Worksheets(1).UsedRange = ActiveWorkbook.Worksheets(1).UsedRange.Value
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "黄大项目铺架二标" & Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日" & "经理部日报"
    ActiveWorkbook.Close
Next sh
For Each sh In Sheets(Array("业主"))
    sh.Copy
    ActiveWorkbook.Worksheets(1).UsedRange = ActiveWorkbook.Worksheets(1).UsedRange.Value
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "黄大项目铺架二标" & Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日" & "业主日报"
    ActiveWorkbook.Close
Next sh
For Each sh In Sheets(Array("处日"))
    sh.Copy
    ActiveWorkbook.Worksheets(1).UsedRange = ActiveWorkbook.Worksheets(1).UsedRange.Value
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "黄大项目铺架二标" & Year(Date) & "年" & Month(Date) & "月" & Day(Date) & "日" & "处日报"
    ActiveWorkbook.Close
Next sh
Application.ScreenUpdating = True
End Sub
大神  这个能帮我简化下吗   给我点提示，   这个看着太繁琐