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

1. 顯式打開

顯式打開即跟我們手動(dòng)雙擊打開一個(gè)Excel文件一樣，可以看到工作薄的內(nèi)容，可以在里面進(jìn)行各種操作。代碼及示例如下：

Sub workbook_operate()

    ' 定義工作薄對象
    Dim wbk As Workbook
    Dim fname As String
    
    fname = "E:/temp/test.xlsx"
    ' 根據(jù)工作薄文件路徑打開工作薄
    Set wbk = Application.Workbooks.Open(Filename:=fname)
    MsgBox fname & "已打開"
    ' 關(guān)閉工作薄
    wbk.Close
End Sub

結(jié)果如下：

然后就可以根據(jù)這個(gè)workbook對象（示例中的wbk變量）來獲取到其中的工作表：

Set parameter_sht = wbk.Worksheets("Parameter")

或者取得這個(gè)工作薄的一些屬性：

wbk.Name

最后可以使用Close方法來關(guān)閉這個(gè)工作?。?/p>

wbk.Close

2. 隱式打開

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

Sub workbook_operate()

    ' 定義工作薄對象
    Dim wbk As Workbook
    Dim fname As String
    
    fname = "E:/temp/test.xlsx"
    ' 根據(jù)工作薄文件路徑獲取工作薄對象
    Set wbk = GetObject(fname)
    Debug.Print wbk.Name

End Sub

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

可以在VBE的工程窗口（上圖左側(cè)）中看到有一個(gè)新的工項(xiàng)目被加載了。但此時(shí)是并不能看到有一個(gè)Excel文件被打開的，這個(gè)已經(jīng)被VBA隱式打開的文件，只能使用VBA進(jìn)行操作，在使用上與顯式打開后得到的workbook對象沒什么區(qū)別，如獲取其中的工作表對象、獲取它的名字、關(guān)閉它等，都是一樣的。這里就不舉例了。

3. 關(guān)閉

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

又或者被打開的工作薄里面有些公式，在打開這個(gè)工作薄時(shí)公式結(jié)果變了（其實(shí)也等于是有更新了），在關(guān)閉時(shí)都會出現(xiàn)這個(gè)提示。如果可以確定是否需要更改，可以在保存時(shí)加入相應(yīng)的參數(shù)SaveChanges：

wbk.Close SaveChanges:=False

SaveChanges等于False時(shí)即為不保存，等于True時(shí)即為保存

4. ThisWorkbook與ActiveWorkbook

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

ActiveWorkbook對象也是VBA頂級對象Application下的一個(gè)特殊對象，代表當(dāng)前激活的工作薄對象。

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

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

Sub workbook_operate()

    ' 定義工作薄對象
    Dim wbk As Workbook
    Dim fname As String
    
    fname = "E:/temp/ActiveMe.xlsx"
    ' 根據(jù)工作薄文件路徑獲取工作薄對象
    Set wbk = Workbooks.Open(fname)
  
    Debug.Print ThisWorkbook.Name
    Debug.Print ActiveWorkbook.Name
End Sub

運(yùn)行結(jié)果：

因?yàn)樾麓蜷_的工作薄會被處于激活狀態(tài)（就跟手工打開另一個(gè)Excel文件一樣），所以這時(shí)新打開的ActiveMe.xlsx才是ActiveWorkbook，而當(dāng)前代碼所在的工作薄（test.xlsm）則是ThisWorkbook。而如果只有一個(gè)工作薄被打開或者是當(dāng)前代碼所在工作薄處于激活狀態(tài)時(shí)，則ThisWorkbook和ActiveWorkbook是同一個(gè)對象。