VBA如何自動建立資料夾（下） - 會計

VBA如何自動建立資料夾（下）

網誌圖文版：

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

上一節分享VBA如何跨越Excel、直接在電腦建立檔案資料夾，並且具體介紹MkDir指令。
當時範例只簡單建立一個資料夾，這一節將以此為基礎，進一步介紹VBA如何一次建立多
個會計期間、同時每個期間有分門別類新增好的資料夾，具體如下：

一、延續上一節的範例，想以VBA程式建立17Q2的結帳資料夾。

二、編寫「資料夾17Q2」程序：

設置0到2的循環（「For i = 0 To 2......Next i」），於循環內定義月份及路徑變數（
「Dim Month, Path As String」），設定月份為「Month = 1704 + i」、然後再設定路
徑為「Path = "C:\Users\b88104069-Air\Desktop\2017\Q2\" & CStr(Month)」，其中「
CStr」為VBA中將數值轉換成字串的函數，功用類似於Excel中的TEXT函數，最後「MkDir
Path」是上一節介紹的新增目錄DOS命令。

三、執行「資料夾17Q2」程序，成功新增了「1704」、「1705」、「1706」三個資料夾。

四、接下來想在「1704」月份資料夾中，新增各個項目的結帳子資料夾。

五、編寫「結帳子資料夾」程序，延用上一節所介紹的語句：「MkDir
"C:\Users\b88104069-Air\Desktop\2017\Q2\1704\成本"」，直接在VBA編輯視窗裡複製
貼上，依序再增加「固資」、「費用」、「應付」、「應收」等結帳子資料夾。

六、執行「結帳子資料夾」程序，幾乎在一瞬間，VBA默默迅速地新增五個資料夾！

七、修練好前面步驟的程式功力，施展組合拳，編寫「批次建立資料夾」程序：

八、執行「批次建立資料夾」程序，幾乎又在一瞬間，VBA又默默迅速地新增十個資料夾
！

Excel中有個大絶招巨集命令，能將所執行過的操作錄製起來，無限次再次「播放」，其
中隱含思惟是，如果有哪些SOP步驟是常常要再來一次，乾脆把它做成「指令懶人包」，
一步到位！這一節的範例也是相同思惟，如果每次都要新增月份或季度資料夾、如果每次
都要新增那五個結帳資料夾，那麼可否只做一次，接下來讓Excel機器人自動化完成呢。

雖然Excel巨集很方便，然而再怎麼強大，畢竟是「錄製」，某一次個別情況下的操作，
想套用在往後所有類似情境，總不排除有出差錯可能，而且重點是，巨集是把操作流程翻
譯成VBA程式，只會巨集，不會VBA，翻譯程式出了狀況也不知該如何補正。另外以這一節
範例來看，VBA有兩個好處，一是在類似文書環程式建立17Q2的結帳資料夾。


延伸閱讀：

VBA如何自動建立資料夾（上）

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

VBA如何偵測程式錯誤

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

VBA如何更新匯率

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

--


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

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


--