返回列表 上一主題 發帖

[轉貼] 自訂Applicatoin事件/監控所有活頁簿/做成增益集

[轉貼] 自訂Applicatoin事件/監控所有活頁簿/做成增益集

本帖最後由 Hsieh 於 2010-5-10 15:45 編輯

這個另存備份檔的例子,
是利用 Workbook_BeforeSave 事件 --
http://gb.twbts.com/index.php/topic,1661.0.html

如果有許多檔案都要存備份,難道每個檔都要照作一次嗎??
也許不少人知道有一勞永逸的辦法:
自訂一個可以監控所有活頁簿的Application事件,再做成增益集

現將它實作過程寫出來,方便大家參考:
1. 開啟新活頁簿,按 Alt-F11 切換至程式編輯器。
2. 插入 > 物件類別模組 (預設名稱為 Class1)。
3. 此時會開啟一個空白的程式編輯區,請輸入以下程式碼:
Public WithEvents App As Application
註: App 是自訂名稱。這句意思是自訂一個含有事件的Application物件。
4. 按下 Enter 後,編輯區左上方的物件選單中會多出一個 App 。
點選 App,則右上方的選單會列出這個Application物件可用的事件。
5. 在可用事件中點選 WorkbookBeforeSave,則會在編輯區產生一個空的事件:
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)

End Sub
乍看很像之前慣用的 Workbook_BeforeSave 事件,差別就在於 Workbook_BeforeSave 只能監控程式所在活頁簿的存檔,而這個 App_WorkbookBeforeSave 可監控所有活頁簿的存檔動作。
6. 現在可把另存備份的程式碼套入這個事件.. 但是要稍改一下:
Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Wb.SaveCopyAs "C:\TEMP\" & Wb.Name
End Sub
7. 接著再於程式編輯器功能表 插入 > 模組,在新開出的編輯區輸入以下程式:
Public xlApp As New Class1 '宣告 xlApp 為上面自訂的物件模組

Sub Auto_Open() 'Auto_Open會在此檔開啟時自動執行
  Set xlApp.App = Application
  '把自訂模組的 App 設為(也可說連結到)Application物件
End Sub
OK,程式的部分到此為止;按 Alt-Q 離開程式編輯器。
8. 將此檔案存為 增益集 (副檔名為 XLA),並且關閉。
9. 點選功能表 工具 > 增益集... > 瀏覽... 載入剛才做好的增益集。
好了,你可隨意打開其他活頁簿、編輯然後儲存,試試自己做的成果。

當然,你可在第 4、5 步驟選擇其他事件並編寫你想要的程式,享受輕鬆操控所有活頁簿的快感~

看倌也許覺得:怎麼這樣麻煩阿??
如同上述的Application物件以及之前舉過一些例子的控制項群組物件等等,Office有許多物件和其事件不是預設的,而事件的程式碼又必須依附物件模組,所以必須自訂物件模組。這些並非常用功能,但VBA仍然保留了自訂與延伸的空間給使用者 --
而且只要學會應用,可發揮很大的效益。
學海無涯_不恥下問

回復 10# ohsw


    本文的重點是學習利用工作簿的事件,來做類別的應用
從整個基本架構,讓您了解如何建立物件類別,然後利用這個物件類別的共同特性執行類似動作
所以,除了監控活頁簿事件來儲存文件副本外,你可利用這些觀念來架構你所需的任何物件所擁有的共同行為
就看你如何去運用了
學海無涯_不恥下問

TOP

        靜思自在 : 有心就有福,有願就有力,自造福田,自得福緣。
返回列表 上一主題