2020年12月2日 星期三

VBA:自動寫存檔

 小編,經常處理很多案子要存檔,感覺滿實用的,寫一篇作整理。

副程式作動原理很簡單,就是直接複製一份要存檔的工作表後,直接存檔,不影響主要作業的工作表。

副程式:



主要有3個參數,
SOLDTONO:設定輸出檔案名稱;EX:"Report_"
SHEET_TAG:要另存新黨的工作表;EX:"SHEET1"
FILE_TYPE:檔案存檔類型;EX:52;此部分可參考MSDN資料
Save_Name = FILEPATH & "\" & A;這一行根據FileFormat:=FILE_TYPE的設定,自己加上& ".xlsm" 這部分歐

應用1:例如現在想要針對"工作表1"作單獨輸出,可以這樣設定(當然要弄一個按鈕先):


那這時候去檢查目前檔案所在的資料夾就會多一個存檔結果!!

圖1.
應用2:例如現在想要針對"工作表1、工作表2、工作表3"作多輸出,可以這樣設定:





沒有留言:

張貼留言

職場毒癌:你憑什麼以為你十年寒窗,抵得我三代從商

你憑什麼以為你十年寒窗,抵得我三代從商——這句話已經記不得是從哪裡看到的,可能是某部劇,也可能是某篇 FB 文章標題。 但最近,特別有感。 為什麼會有這種感觸? 職場上有個同事,一路慢慢升到課長,好歹也是管理職,雖說不上鐵飯碗,但在多數人眼裡也算穩定。 結果呢?輾轉換了兩個製造課...