1、工作中，數(shù)據(jù)是非常重要的。當(dāng)我們的Excel表格往往含有重要數(shù)據(jù)，備份它的重要性不言而喻。雖然Excel已經(jīng)為我們提供了自帶的備份功能，但備份的文件與原文件處于同一文件夾中，如果該文件夾被誤刪除，后果不堪設(shè)想。那么有沒有方法讓Excel在不同的文件夾自動(dòng)生成備份呢我們可以用VBA編寫簡單的宏代碼來實(shí)現(xiàn)備份功能，同時(shí)還能做到：1在保存Excel文件時(shí)自動(dòng)生成備份；2、保存Excel文件時(shí)提示是否備份；3、原始文件和備份文件互為備份。即編輯原始文件時(shí)，將在備份文件夾生成備份文件；編輯備份文件時(shí)，將以原始文件為備份。一、設(shè)置宏安全性選擇“工具”宀“宏”宀“安全性”菜單，將安全級(jí)別設(shè)為“低”。這樣，V

2、BA代碼才可以執(zhí)行。二、輸入VBA代碼1、打開需要備份的Excel文件，右擊任一工作表標(biāo)簽，選擇“查看代碼，或選擇“工具”宀“宏”宀“VisualBasic編輯器”菜單，打開VisualBasic編輯器。2、在“工程”窗口中雙擊“ThisWorkbook”，此時(shí)VBA編輯器標(biāo)題變?yōu)椋篗icrosoftViusalBasic-“文件名”-ThisWorkbook(代碼)。3、將以下代碼輸入到“代碼”窗口中：PrivateSubWorkbook_BeforeSave(ByValSaveAsUIAsBoolean,CancelAsBoolean)指定Excel文件的路徑XlsFilePath=D:指

3、定備份路徑BackupXIsFilePath=E:If=XlsFilePathThenExcelFilePath=BackupXlsFilePathElseExcelFilePath=XlsFilePathEndIf提示是否備份Response=MsgBox（保存時(shí)是否備份當(dāng)前Excel文件&vbCr&備份位置：&ExcelFilePath,vbYesNo,提示備份）IfResponse=vbYesThen用戶按下“是”兩個(gè)Excel文件相互備份Filename:=ExcelFilePath&EndIfEndSub說明：XIsFilePath=D:禾口BackupXlsFilePath=E:分

4、別指定了正在編輯的Excel文件和備份文件的路徑，可以將其中的“D:”和“E:”（不含引號(hào)）分別更換成實(shí)際的路徑。（Excel技巧）在輸入文件路徑時(shí)一定要注意以下幾點(diǎn)：1確保路徑正確無誤，如果輸入錯(cuò)誤或指定的文件夾不存在，將出現(xiàn)錯(cuò)誤；2、盤符要大寫；3、路徑的后面不要加上“”，如“F:備份2006”不能寫成“F:備份三、執(zhí)行當(dāng)前Excel文件編輯完成后，只要單擊“保存”按鈕，Excel都會(huì)提示是否備份。選擇“是”將在指定的文件夾生成一個(gè)同名的備份文件，并保存當(dāng)前文件。選擇“否”則只保存當(dāng)前文件而不做備份。后記，保存是時(shí)候彈出一個(gè)對(duì)話框，EXCEL!示是否備份，選擇是，自動(dòng)備份到你寫代碼的那個(gè)盤，這時(shí)又彈出一個(gè)對(duì)話框，關(guān)于刪除什么個(gè)人信息的。這個(gè)不用管它。不喜歡這個(gè)框的話，在“工具”一一“選項(xiàng)”一一“安全性”，找到“保存時(shí)從文件屬性中刪除個(gè)人信息（