如何设置EXCEL文档备份路径

发布网友 发布时间：2022-03-02 00:45

我来回答

共5个回答

热心网友 时间：2022-03-02 02:15

我们可以用VBA编写简单的宏代码来实现备份功能，同时还能做到：

　　1．在保存Excel文件时自动生成备份；

　　2．保存Excel文件时提示是否备份；

　　3．原始文件和备份文件互为备份。即编辑原始文件时，将在备份文件夹生成备份文件；编辑备份文件时，将以原始文件为备份。

一、设置宏安全性

　　选择“工具→宏→安全性”菜单，将安全级别设为“低”。这样，VBA代码才可以执行。

二、输入VBA代码

　　1.打开需要备份的Excel文件，右击任一工作表标签，选择“查看代码”，或选择“工具→宏→Visual Basic编辑器”菜单，打开Visual Basic编辑器。

　　2.在“工程”窗口中双击“ThisWork book”，此时VBA编辑器标题变为：Microsoft Viusal Basic-“文件名”-[ThisWorkbook(代码)]。

　　3.将以下代码输入到“代码”窗口中：

　　Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

　　'指定Excel文件的路径

　　XlsFilePath = "D:"

　　'指定备份路径

　　BackupXlsFilePath = "E:"

　　If ThisWorkbook.Path = XlsFilePath Then

　　ExcelFilePath = BackupXlsFilePath

　　Else

　　ExcelFilePath = XlsFilePath

　　End If

　　'提示是否备份

　　Response = MsgBox("保存时是否备份当前Excel文件？" & vbCr & "备份位置：" & ExcelFilePath, vbYesNo, "提示备份")

　　If Response = vbYes Then ' 用户按下“是”

　　'两个Excel文件相互备份

　　ThisWorkbook.SaveCopyAs Filename:=ExcelFilePath & "\" & ThisWorkbook.Name

　　End If

　　End Sub

　　说明：XlsFilePath = "D:"和Backup XlsFilePath = "E:"分别指定了正在编辑的Excel文件和备份文件的路径，可以将其中的“D:”和“E:”（不含引号）分别更换成实际的路径。在输入文件路径时一定要注意以下几点：

　　1.确保路径正确无误，如果输入错误或指定的文件夹不存在，将出现错误；

　　2.盘符要大写；

　　3.路径的后面不要加上“\”，如“F:\备份\2006”不能写成“F:\备份\2006\”。

三、执行

　　当前Excel文件编辑完成后，只要单击“保存”按钮，Excel都会提示是否备份。选择“是”将在指定的文件夹生成一个同名的备份文件，并保存当前文件。选择“否”则只保存当前文件而不做备份

热心网友 时间：2022-03-02 03:33

自动恢复保存文件位置吗 可以再设置里手动更改路径，工具-选项-保存

热心网友 时间：2022-03-02 05:07

在“工具－选项”中找到“保存”选项

热心网友 时间：2022-03-02 06:59

以OFFICE 2010 为例，在EXCEL的文件-选项-保存，可以设置EXCEL自动保存备份的时间间隔和路径

热心网友 时间：2022-03-02 09:07

在左上角的“文件”选项下，“Excel选项”中的“保存”，备份位置为C:\Users\Administrator\AppData\Roaming\Microsoft\Excel\ ，将备份的路径位置修改到自定义的指定位置，确定，即可。

 

详见附图