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

Daniel avatar
By Daniel
at 2018-01-06T15:43

Table of Contents


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


--
Tags: 會計

All Comments

台積電面試經驗?

Margaret avatar
By Margaret
at 2018-01-05T23:30
版上的各位前輩好! 目前任職於四大事務所工作約三年多 最近有萌生跳往業界的想法 有投台積電的履歷結果他們來信請我去面試 想請問版上有去面試會計人員的經驗可以分享嗎? 主要面試內容會是什麼呢? 需要準備專業問答嗎? 之前也有爬文到他們很重英文 面試時也會需要用到英文嗎? 如果有的話可能需要抱佛 ...

北一的線上課程

Edwina avatar
By Edwina
at 2018-01-05T13:57
朋友想報名北一的中會,但聽說北一線上課程有規定電腦IP只能3組,超過會鎖帳號 他的狀況是家裡有小朋友,沒辦法在家裡觀看,想去圖書館用手機或平板看(沒筆電) 問題 : 1. 北一櫃台人員告知,用手機與平板無法看線上課程,真的有問題北一不負責。 (櫃檯人員請他現場上官網的試看區,他用手機的PUFFI ...

算可貸金額

Delia avatar
By Delia
at 2018-01-05T11:55
目前在算一道題目 想用excel算看看 可是遇到了瓶頸 題目:每個月還16000,年利率1.6%,240期,請問現在可貸多少? 現在我是用16000*(1+1.6%)^1 這樣拉20年 算出PV 324.518 可是後面就沒有頭緒了...還是我一開始就算錯 希望有人可以幫我解答......謝謝 - ...

2017 Becker 教材

Steve avatar
By Steve
at 2018-01-05T09:39
商品名稱:Becker軟體及教材 交易地區:台北 商品價格:請來信報價及說明使用期限 新舊狀況:2017版本 交易方式:可議 聯絡方式:站內信 - ...

2017 Becker教材及軟體

Rosalind avatar
By Rosalind
at 2018-01-05T00:31
商品名稱:Becker軟體及教材 交易地區:台北 商品價格:請來信報價及說明使用期限 新舊狀況:2017版本 交易方式:可議 聯絡方式:站內信 - ...