在Excel里，如何实现自动生成备份文件到另一个文件夹-怎么让excel自动备份,excel有自动备份吗

这是设置问题导致的，解决办法如下：

1、首先，单击左上角的文件选zhidao项。如下图所示，然后进入下一步。

　    

2、其次，单击其下拉菜单栏中的选项，如下图所示，然后进入下一步。    

　    

3、接版着，完成上述步骤后，在弹出窗口中，单击进入高级权页面，如下图所示，然后进入下一步。    

　    

4、最后，在“高级”中，将【始终创建备份副本】取消勾选，然后单击“确定”，如下图所示。这样，问题就解决了。    

　    

　    

可以用宏来实现写在工作表事件下，但抄你要事先在宏里袭写好路径。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
a = ActiveWorkbook.Name
ActiveWorkbook.SaveAs Filename:="E:\备份\" & "备份" & a
End Sub

上边那个代码是保存在 E:\备份\ 文件夹知下，并在原道文件名字前边加上备份两个字。
但你要事先在E盘下建好名字为“备份”的文件夹
我的是07版的，审阅菜单栏下面的个修订，选择它就可以了，你修改过什么，痕迹都会有，而且，原文也会保存的

亲，打开Excel文件，按Alt+F11打开VBA编辑窗口，在左侧双击Thisworkbook，右知边窗口选择workbook和open，把代码粘贴进去。

注意：

1、代码中道的备份路径“D:\BACKUP\”可以修改成你自己实际内路径。

2、只有打开这个Excel文件的时候，才会启动备份的动作，不打开不备份。每天容第一次打开时备份，后面打开修订后都不备份。 

 

 

Private Sub Workbook_Open()
Dim FileName As String
With ThisWorkbook
FileName = Left(.Name, InStrRev(.Name, ".") - 1) & "_" & Format(Date, "YYYYMMDD") & Right(.Name, Len(.Name) - InStrRev(.Name, ".") + 1)
End With
If Dir("D:\BACKUP\" & FileName) = "" Then
    ThisWorkbook.SaveCopyAs "D:\BACKUP\" & FileName
End If
End Sub