如何将工作簿中的某一个表格加当前日期另存

c2222y · 发表于 2018-8-5 23:19

请教如何将附件中汇总表加当前日期另存？如另存在C:资料汇总，文件名是：汇总表20180805

YZC51 · 发表于 2018-8-6 07:34

请测试
Sub savetofile()
Application.ScreenUpdating = False
Dim folder As String
folder = ThisWorkbook.Path
Sheet1.Copy
ActiveWorkbook.SaveAs folder & "\" & Sheet1.Name & Format(Date, "yymmdd"), 52
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Sub

YZC51 · 发表于 2018-8-6 07:38

附件如下

如何将工作簿中的某一个表格加当前日期另存.rar (25.58 KB, 下载次数: 11)

c2222y · 发表于 2018-8-6 23:54

YZC51 发表于 2018-8-6 07:38
附件如下

YZC51非常感谢

c2222y · 发表于 2018-8-7 00:01

ActiveWorkbook.SaveAs "C:\ABC\A" & "\" & "产量汇总表" & Format(Date, "yymmdd" & "更新"), 52
更新了一下自定义路径与文件名

YZC51 · 发表于 2018-8-7 07:32

ActiveWorkbook.SaveAs "C:\ABC\A" & "\" & "产量汇总表" & Format(Date, "yymmdd" & "更新"), 52
不错！好像可以这样
ActiveWorkbook.SaveAs "C:\ABC\A\产量汇总表" & Format(Date, "yymmdd更新"), 52

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

[求助] 如何将工作簿中的某一个表格加当前日期另存

评分