VBA如何自動建立資料夾(上) - 會計
By Ida
at 2017-04-20T19:57
at 2017-04-20T19:57
Table of Contents
VBA如何自動建立資料夾(上)
網誌圖文版:
http://www.b88104069.com/archives/4190
會計人的工作節奏:月初,十萬火急結帳,月中,喘一口氣,編製管理報表,到了月末,
又開始緊張兮兮地準備結帳。誠如會計原則中的期間假設,在事務所,日子是每一季每一
年地過,在業界會計課,日子是每個月每一年的過。這樣累積經驗起來,一個善於收納管
理的會計人,電腦裡面一定是以期間為單位,每個期間一個資料夾,裡面分門別類各個子
資料夾和檔案(十之八九是Excel)。因此開始一個新期間循環,首要步驟便是建立新資
料夾,而像這個周而復始的動作,便有自動化提升效率的空間,以下介紹VBA如何建立資
料夾:
一、「2017」年「Q1」季「1703」資料夾裡,有「成本」、「固資」、「費用」、「應付
」、「應收」五個子資料夾。
二、到了五月初開始結四月帳,依序新增「Q2」、「1704」,然後是上一步驟那五個資料
夾。
三、用VBA指令建立資料夾之前,必須先確認路徑,方法之一是「檔案」、「資料」,然
後在名稱下面直接「複製」路徑,如圖所示。
四、「Alt+F11」快速組合鍵直接進入VBA編輯環境,輸入VBA程式:「MkDir
"C:\Users\b88104069-Air\Desktop\2017\Q2\1704\成本」,意思是在這個位置新增「成
本」資料夾。老一輩會計人(我),有經歷過微軟黑壓壓的DOS上古時期,可能會記得「
MkDir」就是新增目錄的DOS命令。
五、在VBA編輯環境直接快速鍵「F5」執行程式,然後切到檔案總管,可以看到一個新的
「成本」資料夾!
六、先前是用「檔案」、「資料」取得路徑,如果Excel檔案所在位置,剛好是想新增資
料夾的地方,也可以用「ActiveWorkbook.path」方法取得路徑,如圖所示,其中有個VBA
函數「CStr」,作用是將所含對象轉換為字串,其餘程式皆有有綠色註解加以說明。
七、再次切到檔案總管,已然新增一個「固資」資料夾!
這篇是接續VBA系列的文章。在寫Excel的時候,我儘量和實際操作過程一致,一個步驟一
個步驟圖文說明清楚。相較而言,VBA在進入編輯環境、使用各個模塊、甚至是執行程式
本身,便需要兩三個操作步驟,這些步驟在我先前VBA文章已經說明過了,所以如同這篇
文章所示,那些類似於「開機/啟動」的動作會以文字略過,或者直接以快速鍵「
Alt+F11」開啟 VBA編輯、「F5」執行等方式帶過。讀者如果有不太清楚的地方,可以參
考先前的VBA文章。然後最好的方案是,贊贊小屋預計在下半年會再出版一本《會計人的
Excel VBA小教室》,建議讀者買一本書在手邊,把VBA基本流程做個書籤記錄,久而久之
,一定會很熟悉VBA的操作,進入Excel比一般人強的境界。
延伸閱讀:
VBA如何另存檔案備份
http://www.b88104069.com/archives/4149
VBA如何定期自動儲存檔案
http://www.b88104069.com/archives/4148
VBA如何整理程式代碼
http://www.b88104069.com/archives/4157
--
周末,我們繼續Excel:精華區=>21.心得=>5.其他=>3.office
會計人的Excel小教室: https://www.facebook.com/acctexcel
--
Tags:
會計
All Comments
By Hamiltion
at 2017-04-24T16:30
at 2017-04-24T16:30
By Isabella
at 2017-04-28T03:35
at 2017-04-28T03:35
By Charlie
at 2017-04-28T21:49
at 2017-04-28T21:49
By Olive
at 2017-05-03T00:13
at 2017-05-03T00:13
Related Posts
關於FV-PL與FV-OCI
By Jack
at 2017-04-20T08:34
at 2017-04-20T08:34
金永勝審計學函授
By Kumar
at 2017-04-19T23:13
at 2017-04-19T23:13
高點會計師 & 高考總複習 即將開課日
By Aaliyah
at 2017-04-19T22:40
at 2017-04-19T22:40
鄭泓106中會第八回課本
By Puput
at 2017-04-19T18:01
at 2017-04-19T18:01
中部和北部的事務所差很多嗎?
By Quanna
at 2017-04-19T11:01
at 2017-04-19T11:01