Excel-VBA檔案操作4

　4、儲存檔案

　　檔案的儲存使用Workbook對象的Save或SaveAs方法。

　　Save方法使用簡單，文法為

　　expression.Save，expression是某個Workbook對象。

　　如：ActiveWorkbook.Save

　　即儲存當前活動活頁簿。

　　如果是第一次儲存活頁簿或要另存新檔，請使用 SaveAs 方法為該檔案指定檔案名稱。

　　其文法為：

　　expression.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)

　　具體參數含義可參看VBA協助，使用都比較簡單。

　　樣本

　　本樣本建立一個活頁簿，提示使用者輸入檔案名稱，然後儲存該活頁簿。

Set NewBook = Workbooks.Add
Do
　　 fName = Application.GetSaveAsFilename
Loop Until fName <> False
NewBook.SaveAs Filename:=fName

　　Application.GetSaveAsFilename為調出標準的“另存新檔”對話方塊，擷取使用者檔案名稱，但並不真正儲存任何檔案，然後使用代碼儲存檔案。還有Application.GetOpenFileName可以調出標準的“開啟”對話方塊。

　　5、關閉檔案

　　關閉檔案可以使用Workbooks集合或Workbook對象的 Close 方法。前者是關閉所有開啟的活頁簿，後者關閉特定的活頁簿。

　　Workbook對象的 Close 方法文法為：

　　expression.Close(SaveChanges, Filename, RouteWorkbook)

　　SaveChanges參數表示是否儲存更改，對許多不需要更改的操作，可設定為False以免彈出儲存變更提示的對話方塊。

　　FileName 可選。以此檔案名稱儲存所做的更改。

　　RouteWorkbook　 可選。如果指定活頁簿不需要傳送給下一個收件者（沒有傳送名單或已經傳送），則忽略該參數。