Excel VBA入門（九）操作工作薄

雖然我前面講過，在VBA中操作工作薄並不是件明智的事，但有些時候，還是避免不了要這麼做。絕大多數情況下，我們要做的是獲取到某個工作薄對象，並以此來獲得其中的工作表對象，然後再對工作表中的數據進行處理。而後面這一部分（操作工作表）在前面已經講過了，所以本章只講如何在VBA中打開、關閉工作薄，以及介紹兩個常用的工作薄對象。在VBA中打開工作薄有兩種方法：顯式打開及隱式打開。

1. 顯式打開

顯式打開即跟我們手動雙擊打開一個Excel文件一樣，可以看到工作薄的內容，可以在裡面進行各種操作。代碼及示例如下：

Sub workbook_operate()nn 定義工作薄對象n Dim wbk As Workbookn Dim fname As Stringn n fname = "E:/temp/test.xlsx"n 根據工作薄文件路徑打開工作薄n Set wbk = Application.Workbooks.Open(Filename:=fname)n MsgBox fname & "已打開"n 關閉工作薄n wbk.ClosenEnd Subn

結果如下：

然後就可以根據這個workbook對象（示例中的wbk變數）來獲取到其中的工作表：

Set parameter_sht = wbk.Worksheets("Parameter")n

或者取得這個工作薄的一些屬性：

wbk.Namen

最後可以使用Close方法來關閉這個工作薄：

wbk.Closen

2. 隱式打開

使用隱式打開的時候，這個工作薄在前端是看不到的，只有在VBE環境中（的工程窗口）可以看到它。示例代碼及結果如下：

Sub workbook_operate()nn 定義工作薄對象n Dim wbk As Workbookn Dim fname As Stringn n fname = "E:/temp/test.xlsx"n 根據工作薄文件路徑獲取工作薄對象n Set wbk = GetObject(fname)n Debug.Print wbk.NamennEnd Subn

與顯式打開不同的是，這是使用了GetObject方法。結果如下：

可以在VBE的工程窗口（上圖左側）中看到有一個新的工項目被載入了。但此時是並不能看到有一個Excel文件被打開的，這個已經被VBA隱式打開的文件，只能使用VBA進行操作，在使用上與顯式打開後得到的workbook對象沒什麼區別，如獲取其中的工作表對象、獲取它的名字、關閉它等，都是一樣的。這裡就不舉例了。

3. 關閉

無論是顯式打開還是隱式打開，如果在新打開的工作薄中有更改，在使用workbook.Close方法時，會有個彈窗提示是否要保存更改，就跟我們平時使用時一樣：

又或者被打開的工作薄裡面有些公式，在打開這個工作薄時公式結果變了（其實也等於是有更新了），在關閉時都會出現這個提示。如果可以確定是否需要更改，可以在保存時加入相應的參數SaveChanges：

wbk.Close SaveChanges:=Falsen

SaveChanges等於False時即為不保存，等於True時即為保存

4. ThisWorkbook與ActiveWorkbook

ThisWorkbook對象是VBA頂級對象Application下的一個特殊對象，代表當前（VBA代碼所在的）工作薄對象。

ActiveWorkbook對象也是VBA頂級對象Application下的一個特殊對象，代表當前激活的工作薄對象。

就跟我們在使用QQ聊天時一樣，我們不可能同時單獨地發信息給兩個不同的QQ好友，只能有一個聊天窗口是被激活的。Excel也一樣，當前被激活的工作薄就是ActiveWorkbook對象（同樣類似地，也有ActiveWorksheet對象）。

有些情況下，ThisWorkbook等同於ActiveWorkbook，但有些情況下並不是的。如以下代碼：

Sub workbook_operate()nn 定義工作薄對象n Dim wbk As Workbookn Dim fname As Stringn n fname = "E:/temp/ActiveMe.xlsx"n 根據工作薄文件路徑獲取工作薄對象n Set wbk = Workbooks.Open(fname)n n Debug.Print ThisWorkbook.Namen Debug.Print ActiveWorkbook.NamenEnd Subn

運行結果：

因為新打開的工作薄會被處於激活狀態（就跟手工打開另一個Excel文件一樣），所以這時新打開的ActiveMe.xlsx才是ActiveWorkbook，而當前代碼所在的工作薄（test.xlsm）則是ThisWorkbook。而如果只有一個工作薄被打開或者是當前代碼所在工作薄處於激活狀態時，則ThisWorkbook和ActiveWorkbook是同一個對象。

/*******************************************************************************************************

* 最後提醒下各位，以後本專欄中的Excel VBA系列教程的更新將只有標題

* 和正文中的一個超鏈接，內容將不再在知乎上更新，需要通過這個鏈接跳轉到另一個網站去

*******************************************************************************************************/