自动保存，生成新的独立文件

天天向下

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    If Not Me.Saved Then Me.Save

    Application.DisplayAlerts = False
    str1 = ThisWorkbook.Path & "\" & ThisWorkbook.Name
    ThisWorkbook.SaveAs "E:\工作资料\备份\销售单2024.xlsm"
    ThisWorkbook.SaveAs str1
    Application.DisplayAlerts = True

End Sub


此代码可以自动保存备份，但是覆盖的，想改成每次自动保存生产新的独立文件不要覆盖 ，那位老师帮我改一下，谢谢！

杨建营

把自动备份的文件加上时间试试 &format(date,"hh:mm") &

天天向下

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    If Not Me.Saved Then Me.Save

    Application.DisplayAlerts = False
    str1 = ThisWorkbook.Path & "\" & ThisWorkbook.Name
    ThisWorkbook.SaveAs "E:\工作资料\备份\销售单2024.xlsm"&format(date,"hh:mm") &
    ThisWorkbook.SaveAs str1
    Application.DisplayAlerts = True

End Sub

是这样吗？ 这样报错，那位老师帮我改一下

天天向下

那位老师帮我改一下，谢谢！

fanyoulin

天天向下 发表于 2024-5-14 14:02
那位老师帮我改一下，谢谢！

楼上说的不是你下面这个排列，你把它搞反了：

ThisWorkbook.SaveAs "E:\工作资料\备份\销售单2024.xlsm"&format(date,"hh:mm")
应该是：
ThisWorkbook.SaveAs "E:\工作资料\备份\“ & format(date,"hh:mm") & ”销售单2024.xlsm"

这样是不是一定正确还有待确认，但思考方向是对的。因为日期格式:2024/05/14是不能作为文件名的，但2024-05-14作为文件名是可以的，因此format(date,"hh:mm")得到的格式到底是哪一种，你需要实测试一下，如果不行稍微按照这个思路修改下就可以了；

ykcbf1100

把保存那句代码改成这样试试：
ThisWorkbook.SaveAs "E:\工作资料\备份\销售单"&CDate(Now)&".xlsm"

天天向下

路径报错，找不到文件

天天向下

ykcbf1100 发表于 2024-5-14 14:25
把保存那句代码改成这样试试：
ThisWorkbook.SaveAs "E:\工作资料\备份\销售单"&CDate(Now)&".xlsm"

时间格式出的问题，不能作为文件保存

ykcbf1100

天天向下 发表于 2024-5-14 15:52
时间格式出的问题，不能作为文件保存

上附件吧。。。

天天向下

ykcbf1100 发表于 2024-5-14 15:54
上附件吧。。。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    If Not Me.Saved Then Me.Save
   
    Application.DisplayAlerts = False
    str1 = ThisWorkbook.Path & "\" & ThisWorkbook.Name
    ThisWorkbook.SaveAs "E:\工作资料\备份销售\禾益公司销售单2024-" & Format(Date, "MM-dd ") & ".xlsm"
    ThisWorkbook.SaveAs str1
    Application.DisplayAlerts = True
   
End Sub
这样显示日期可以，但加上时间会有：提示文件名不对