Excel VBA 實用技巧 ( 輕輕的進階編 ) – 如何做新建的檔案 , 按照自動流水號存檔

~ 上傳‧分享‧網賺 ~

~ 免費上傳空間‧請即申請 Freak Share ~

~ 進入後請點選左上角 注冊 ! ~

~ 聲明事項 ~

如各位想把以下本文章轉貼 , 請記得要注明出處.

本文章之內容為本人之經驗所寫, 絕無抄襲成份, 特此聲明.

由於圖片製作需時, 所以更新會比較慢.

存放圖片的 SHARE A PIC SERVER 可能讀取速度較慢, 請耐心等待.

先告訴我 ~ 另存新檔的英文是什麼 ~ 什麼 ? 不知道 ? 沒可能吧 ~ 忘了 ? 別騙我好不好 … 好吧 ~ 我輸了 ~ 我來告訴你好了 ~ 就是 SAVE AS ~ 想起來了吧 ~

程式碼跟新增檔案的差不多 , 程式碼就這個 :

==================

ActiveWorkbook.SaveAs Filename:="c:\abc"

==================

看到了嗎 ? 又是 SAVE AS ~ 沒分別的 ~ 呵呵呵呵 ~ 後面的 FILE NAME 部份是指定了檔案保存的位置和檔案名稱 , 這就是利用 Excel VBA 執行 “ 另存新檔 ” 的方法 ~

如果你跟我差不多 , 總是不明白為什麼別人的程式可以利用流水號分檔案 , 而自己的又不行 , 你肯定會想出一個方法來的 ~ 呵呵呵呵 ~ 因為我想到一個簡單的方法 , 所以這裡就不妨你分享一下 ~

我的方法是這樣的 , 首先 , 我的檔案流水號是以日期來排序的 , 就是 檔名 +年 + 月 + 日 就成了我的流水號檔案名稱 ( 例子 : ABC2009101.xls ) , 方法是 , 先在其中一個頁面內 , 在指定的儲存格中加入幾個函數公式 , 假設 :

儲存格 A1 的公式是 : =TODAY()
儲存格 A2 的公式是 : =YEAR($A$1)
儲存格 A3 的公式是 : =MONTH($A$1)
儲存格 A4 的公式是 : =DAY($A$1)

這樣 , 儲存格 A2 到 A4 的資料就會符合我的流水號要求 , 只要把它們按照我的意思來拼在一起就可以了 ~ 首先 , 要用不同的變量記錄我們要的資料 :

==================

FileNameYear = Worksheets("Sheet1").Range("A2").Value
FileNameMonth = Worksheets("Sheet1").Range("A3").Value
FileNameDay = Worksheets("Sheet1").Range("A4").Value

==================

好 ~ 現在記錄了年月日這三個資料 , 再來就是把剛才儲存檔案的程式碼修改 :

==================

ActiveWorkbook.SaveAs Filename:="c:\abc" & FileNameYear & FileNameMonth & FileNameDay

==================

執行結果嘛 ~ 就是你自己試試看啦 ~ 哈哈 ~

方法就是這個了 ~ 要怎樣才能順利地使用 , 這個可要你自己慢慢掌握哦 ~ 要不你就學不懂了 ~ XD

當然囉 ~ 如果你有更好的方法 , 請貼出來大家分享一下嘛 :)

提醒你一下 , 如果要把變量連結起來 , 請加上 & , 否則連不到哦 ~ 會出問題的呢 ~ 緊記哦 ~