VBA如何自動儲存所有開啟中Excel檔案

網誌圖文版：

http://www.b88104069.com/archives/4273

之前有文章分享過編寫VBA自動儲存Excel檔案或另存備份，雖然程式的設計立意良好，也
達到預期效果，但其實存在兩個缺陷：其一、會希望這個程式是真正「自動」執行的，只
要電腦開啓任何一個Excel檔案，便會啓動此功能；其二、工作場合中，常常電腦是同時
開啓很多檔案，會希望這些開啟中的一切檔案都可以自動儲存。針對這兩點，需要進一步
完善VBA，在此介紹如何完善成終極版的自動儲存功能：

一、錄製巨集時，下面有個「將巨集儲存在」，選擇「個人巨集活頁簿」。

二、巨集錄好之後，「Alt+F11」開啟VBA編輯環境，在「專案-VBAProject」視窗中會多
一個「PERSONAL.XLSB」，這是Excel隱藏的活頁簿，只要透過上個步驟錄製過「個人巨集
活頁簿」，便開始啟動「PERSONAL.XLSB」，此後不管開啟任何一個Excel檔案，就會同時
加載「個人巨集活頁簿」，也就是可以使用這個類似公共活頁簿裡的巨集程式。

三、在「Microsoft Excel」物件中有個「ThisWorkbook」，連按兩次後，在右邊的編寫
程式碼上方，左邊選擇「Workbook」，右邊選擇「Open」。

四、編寫如圖所示的巨集程式碼：其中「Private Sub Workbook_Open()」代表只要開啟
Excel便執行的VBA巨集，「Call Autosave」為呼叫執行在「Autosave」程序。

五、在現有模組(Module 1)或新模組(Module 11)輸入VBA程式，如圖所示有兩個巨集程序
，一個是「自動儲存所有開啟中活頁簿」，作用是每五分鐘執行一次「Autosave」，而這
個「Autosave」，作用是所有開啟中的活頁簿儲存一次，儲存後再執行「自動儲存所有開
啟中活頁簿」。綜合這兩個巨集，結果為每隔五分鐘儲存所有開啟中的活頁簿。

六、除了儲存所有開啟中檔案，另一個重點是開啟任何檔案皆會自動儲存， 這裡會用到
前面所述隱藏的Excel檔案。倘若有興趣，必須先把資料夾選項中，「隱藏的項目」打勾
設定為開啟。

七、通常在這個路徑可找到「PERSONAL.XLSB」：「
C:\Users\b8810\AppData\Roaming\Microsoft\Excel\XLSTART」其中「Users」為系統C磁
碟的使用者資料夾、「b8810」為使用者名稱。一般不會直接用到這個檔案，都是像第一
個步驟錄製好巨集，每次開啟任何Excel檔案，就會自動加載「PERSONAL.XLSB」所含巨集
，在此只是讓各位讀者一探這個隱藏的檔案。

這裡分享如何將所有開啟中的Excel檔案設定為自動儲存，實際使用發現，每隔一段時間
Excel會停頓下來，執行VBA程式自動儲存。相較之下，Excel在軟體選項設置提供的自動
儲存功能，執行相對流暢，幾乎感覺不到痕跡。這個可能在所難免，因為畢竟是在軟體開
發階段，微軟就把這個功能寫在軟體架構裡面了。

雖然內置的自動儲存功能效率較優越，但我遇過幾次慘痛經驗，這個功能失效，Excel當
機停止運作，沒辦法找回我原來作業中的檔案，著實欲哭無淚！所以如果是預計要執行一
項複雜、多個檔案同時操作、需要長時間進行的任務情況下，建議還是使用這個相對保險
、自己設計的VBA巨集程式，因為靠自己最安全。當然，雙管齊下的話，那更是高枕無憂
了！


延伸閱讀：

VBA如何處理文字亂碼情形

http://www.b88104069.com/archives/4243

VBA如何編寫Vlookup公式整理財產目錄

http://www.b88104069.com/archives/4234

VBA如何保持檔案乾淨

http://www.b88104069.com/archives/4230

--


周末，我們繼續Excel：精華區=>21.心得=>5.其他=>3.office

會計人的Excel小教室： https://www.facebook.com/acctexcel


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 45.41.135.65
※ 文章網址: https://www.ptt.cc/bbs/Accounting/M.1515224613.A.3D5.html