免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版

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

1. 顯式打開(kāi)

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

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

結(jié)果如下：

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

Set parameter_sht = wbk.Worksheets("Parameter")

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

wbk.Name

最后可以使用Close方法來(lái)關(guān)閉這個(gè)工作薄：

wbk.Close

2. 隱式打開(kāi)

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

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

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

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

3. 關(guān)閉

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

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

wbk.Close SaveChanges:=False

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

4. ThisWorkbook與ActiveWorkbook

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

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

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

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

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

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

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