EXCEL如何自动同步保存副本

银河之光

Private Sub Workbook_BeforeClose(Cancel As Boolean)
shell "cmd /c copy """ & thisworkbook.path & "\" & thisworkbook.name""" & "c: \备份\" & thisworkbook.name
End Sub
打开vbe，双击thisworkbook，在里面复制这段代码。

wangds-2007

也是一位高手做的，送给你。好处是有修改就备份，无修改不备份。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
   
  If Not ActiveWorkbook.Saved = True Then
    On Error Resume Next
    MkDir ("D:\") & "\记录表备份"
ActiveWorkbook.SaveCopyAs "D:\记录表备份\" & "kack" & Format(Date, "yyyy-m-d ") & Format(Time, "hh.mm.ss") & ".xls"
  End If

    Application.CommandBars(ToolsName).Delete

End Sub

daisy19862

除了VBA就没有别的方法了吗，我也遇到了和楼主差不多的问题，但是VBA不会用啊

odollam

魂断蓝桥 发表于 2013-2-19 13:45
thisworkbook
代码

厉害困扰很久的问题结局了

NICK74

网盘同步要注意，百度盘我掉了几个文件。文件看的到，下载后打不开。