Sub SaveToLocations()
'UpdateByExtendoffice20160623
ActiveWorkbook.SaveCopyAs "C:\Users\DT168\Documents\" + ActiveWorkbook.Name
ActiveWorkbook.SaveCopyAs "C:\Users\DT168\" + ActiveWorkbook.Name
ActiveWorkbook.Save
End Sub
提示：你可以更改上述代码中的保存位置。按“F5”运行代码，excel会自动保存到代码中指定的位置。
使用傲梅轻松备份
使用傲梅轻松备份是一种更简单的方法。傲梅轻松备份是一款专为数据安全而设计的软件。该软件支持大部分Windows系统（包括Windows 11/10/8/8.1/7/XP/Visa），并且支持大部分文件系统例如：NTFS、FAT32、FAT16、EX2、EXT3等。你可以使用它来备份系统、分区、硬盘、文件和文件夹到外部储存设备、网盘、NAS、CD / DVD等。你可以使用文件备份功能来备份你指定的文件或文件夹，并且可以使用“过滤设置”功能来备份特定类型的文件。更厉害的是，你可以使用“计划任务”功能设置每日、每周、每月的固定时间自动备份。下面以备份到u盘为例，看看如何将excel文件备份到u盘：步骤1：下载并安装傲梅轻松备份。步骤2：打开软件，点击主页面左侧的“备份”，然后点击“文件备份”。步骤3：点击“添加文件”，选择你需要备份excel文件。（你也可以选择“添加文件夹”，然后点击“过滤设置”，在“包含文件”中，输入“.xls”即可。）
步骤4：选择u盘作为目标位置。这么做是为了防止突发情况导致数据丢失，建议将excel备份到外部储存设备或网盘。
步骤5：点击“计划任务”设置定时自动备份。
步骤6：确认设置无误后，点击“开始备份”即可。注意：
在“选项”中，有“加密”、“压缩”、“拆分”等功能供你选择。
“备份策略”功能可以帮你自动清理老旧备份，在保护系统安全的同时，占用较少的储存空间。
总结
这是让excel自动备份文件到其他位置的2个方法！建议大家使用方法2，使用傲梅轻松备份，点几下鼠标可以完成备份。你也可以使用该软件的系统备份功能来保护系统的安全。除了备份还原外，它还是一款强大的克隆软件，具有不重装迁移系统、硬盘对拷等功能。