VBA：自動寫存檔

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

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

副程式：

	'COPYRIGHT BY dropit.liu.
	Function savefile_by5(SOLDTONO, SHEET_TAG,FILE_TYPE)
	FILEPATH = ActiveWorkbook.Path
	Source = Excel.ActiveWorkbook.Name
	Sheets(SHEET_TAG).Copy
	WORKNAME = Excel.ActiveWorkbook.Name
	'準備存檔輸出。
	Application.DisplayAlerts = False
	With ActiveWorkbook
	A = "Report_" & SOLDTONO & "_" & Format(Now(), "YYYYMMDDHHMM")
	Save_Name = FILEPATH & "\" & A
	.SaveAs Filename:=Save_Name, FileFormat:=FILE_TYPE
	End With
	WORKNAME = Excel.ActiveWorkbook.Name
	Application.DisplayAlerts = True
	Workbooks(WORKNAME).Close
	Workbooks(Source).Activate
	savefile_by5 = A
	End Function

view raw savefile_by5.VBA hosted with ❤ by GitHub

主要有3個參數，

SOLDTONO：設定輸出檔案名稱；EX:"Report_"

SHEET_TAG：要另存新黨的工作表；EX:"SHEET1"

FILE_TYPE：檔案存檔類型；EX:52；此部分可參考MSDN資料

Save_Name = FILEPATH & "\" & A；這一行根據FileFormat:=FILE_TYPE的設定，自己加上& ".xlsm" 這部分歐

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

	Private Sub CommandButton1_Click()
	Call savefile_by5("test", "工作表1", 52)
	End Sub

view raw gistfile1.txt hosted with ❤ by GitHub

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

圖1.

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

	Private Sub CommandButton2_Click()
	SHEET_TAG = Array("工作表1", "工作表2", "工作表3")
	Call savefile_by5("test", SHEET_TAG , 52)
	End Sub

view raw savefile_by5_demo2.vba hosted with ❤ by GitHub