备份工作簿代码

高兴001

求助：我需要一段可以备份本工作簿的代码到指定的E盘文件夹“我的备份”中。在本工作簿打开的情况下，通过运行宏，自动备份。哪位高手帮帮我？感激不尽！

杨建营

sub 工作簿备份()
Windows(本工作簿 & ".xlsx").Activate
ActiveWorkbook.SaveCopyAs FileName:="E:\我的备份\" & 本工作簿 & ".xlsx"
end sub
最简单的备份

高兴001

非常感谢您的帮助！祝您生活幸福快乐。

我用的是excel2016版.

我在网上查到了一段代码，改造了一下，用一个矩形图指定宏，可以用了，贴出来跟大家分享。还是再次感谢您无私的帮助。

Sub 我的备份()
    Dim d As String
    Dim s As String
    d = Format(Now(), "yyyy-mm-dd HH.mm.ss")
    s = Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1)
    ThisWorkbook.SaveCopyAs Filename:="E:\物业管理备份\" & s & "_" & d & ".xlsm"
    End Sub

高兴001

杨建营 发表于 2024-12-19 16:04
sub 工作簿备份()
Windows(本工作簿 & ".xlsx").Activate
ActiveWorkbook.SaveCopyAs FileName:="E:\我的 ...

我参照修改如下，但运行错误9，下标越界。您再给看看？
Sub 工作簿备份()
Windows(完善中物业收费系统 & ".xlsx").Activate
ActiveWorkbook.SaveCopyAs Filename:="E:\物业管理备份\" & 完善中物业收费系统 & ".xlsx"
End Sub

欧陈养

高兴001 发表于 2024-12-20 08:26
我参照修改如下，但运行错误9，下标越界。您再给看看？
Sub 工作簿备份()
Windows(完善中物业收费系统  ...

Sub 工作簿备份()
Windows("完善中物业收费系统" & ".xlsx").Activate
ActiveWorkbook.SaveCopyAs Filename:="E:\物业管理备份\" & 完善中物业收费系统 & ".xlsx"
End Sub