EXCEL VBA：活頁簿Workbook

活頁簿Workbook

ActiveWorkBook.Name '目前活頁簿的名稱
ThisWorkbook.Name
ThisWorkbook.FullName ‘返回當前活頁簿路徑和名稱
ActiveWorkbook.FileFormat
ThisWorkbook.FileFormat  ‘返回當前活頁簿文件格式代碼
ThisWorkbook.Path
ActiveWorkbook.Path ‘返回當前活頁簿的路徑(注:若活頁簿未保存,則為空)
ActiveWorkbook.CodeName
ThisWorkbook.CodeName  ‘返回工作簿代碼的名稱
ThisWorkbook.BuiltinDocumentProperties(“Last Save Time”)
或Application.Caller.Parent.Parent.BuiltinDocumentProperties(“Last Save Time”) ‘返回上次保存工作簿的日期和時間
ThisWorkbook.BuiltinDocumentProperties("Last Print Date")
或Application.Caller.Parent.Parent.BuiltinDocumentProperties(“Last Print Date”) ‘返回上次打印或預覽工作簿的日期和時間
ThisWorkbook.ReadOnly
 ActiveWorkbook.ReadOnly ‘返回當前工作簿的讀/寫值(為False)
ThisWorkbook.Saved
ActiveWorkbook.Saved ‘返回工作簿的存儲值(若已保存則為False)

Application.Visible = False ‘隱藏工作簿
Application.Visible = True ‘顯示工作簿
注:可與用戶窗體配合使用,即在打開工作簿時將工作簿隱藏,只顯示用戶窗體.可設置控制按鈕控製工作簿可見


ActiveWorkBook.Save  '儲存目前的活頁簿
ThisWorkbook.Save    '儲存目前的活頁簿
ActiveWorkBook.SaveAs Filename := "filename" '另儲新檔




'直接覆蓋舊檔，不出現提示視窗
Application.DisplayAlerts = FalseActiveWorkBook.Save  '儲存目前的活頁簿
Application.DisplayAlerts = True
 
WorkBooks.Add '新增活頁簿

ThisWorkbook.close '關閉當前活頁簿
Workbooks.Close ‘關閉所有打開的工作簿

WorkBooks(i).Close [SaveChange, Filename, RouteWorkbook] 關閉指定的第i個活頁簿
SaveChange := True 改變儲存
SaveChange := False 不會改變儲存
SaveChange省略時，會出現對話方塊
filename := "檔名"

WorkBooks.Open "filename" 開啟一個活頁簿
ActiveWindow.EnableResize=False ‘禁止調整活動活頁簿的大小
ActiveWorkbook.Sheets.Count '獲取活動活頁簿中工作表數
Workbooks(“book1.xls”).Activate '激活名為book1的活頁簿
Application.Windows 所有活頁簿視窗
WorkBooks.Count 活頁簿的數量
WorkBooks.Item(Index) 傳回單一活頁簿，由索引值指定
Application.Window.Arrange xlArrangeStyleTiled ‘將工作簿以平鋪方式排列
ActiveWorkbook.WindowState=xlMaximized ‘將當前工作簿最大化