今天我們聊聊如何在VBA代碼里引用對象。
引用對象是非常重要的，因為在代碼里訪(fǎng)問(wèn)對象時(shí)必須指明需要操作的對象。
例如在日常中我們找某人的，肯定會(huì )喊某人的名字（不認識的可以喊美女帥哥），人家才會(huì )理你。
可在VBA代碼中，你必須實(shí)打實(shí)的指明某個(gè)特定的對象（或者從集合中引用某個(gè)特定的成員），代碼才會(huì )響應你。
上節有講到集合，通過(guò)情況下，我們都是引用集合中某個(gè)特定的成員對象。
如何從集合中引用一個(gè)對象呢，只需在集合的名稱(chēng)后面的括號中放入過(guò)索引號或對象名就行了。
示例：
Worksheets ('sheet1')
'當前活動(dòng)工作簿中的工作表集合中的第一個(gè)工作表
Workbooks (1)
'工作簿集合中的第一個(gè)
當我們輸入的索引號或名稱(chēng)無(wú)效時(shí)會(huì )有一個(gè)“下標越界”的錯誤提示。
當看到這個(gè)錯誤提示時(shí)，就要檢查引用集合時(shí)的所用的索引號或名稱(chēng)是否有誤。
注意：這里有個(gè)問(wèn)題，比如當前工作簿中有一個(gè)工作表的名稱(chēng)為1，在沒(méi)有隱藏工作表的情況下，該工作表排在第2位。
當用索引號訪(fǎng)問(wèn)這個(gè)工作表時(shí)得這樣寫(xiě)：worksheets(2)
當用名稱(chēng)訪(fǎng)問(wèn)這個(gè)工作表名稱(chēng)為1的工作表時(shí)就得這么寫(xiě) Worksheets ('1')
當然，你也可以用變量來(lái)代替1或”1”。
Dim i As Integer, s As String
i = 1
s = '1'
Debug.Print Worksheets(i).Name, Worksheets(s).Index
'在立即窗口顯示工作表集合中第一個(gè)工作表的名稱(chēng)，以及名稱(chēng)為1的工作表的索引號。
之前有講過(guò)Excel應用程序對象包含了很多的對象，而這些對象自身又包含了其他很多的對象。
當我們需要訪(fǎng)問(wèn)Excel應用程序對象時(shí)，這是很容易的，只需要在代碼區中鍵入Application。
其他所有的對象都在Application之下，當我們需要訪(fǎng)問(wèn)某個(gè)對象時(shí)，就需要一級一級訪(fǎng)問(wèn)。
如果把Excel比做一棟樓，當我們需要訪(fǎng)問(wèn)到Excel這棟樓房中的1003住戶(hù)（工作表），我們先進(jìn)樓，再坐電梯到10樓（工作簿），再找到1003房間（單元格），敲1003家的房門(mén)，進(jìn)入后里面還有幾間，象什么主人房，小孩房，書(shū)房，廚房這些啥（單元格的屬性），咱還可以訪(fǎng)問(wèn)1003家的某個(gè)房間（屬性）。
我們把這個(gè)過(guò)程用個(gè)列表簡(jiǎn)化下
大樓（Excel）--10樓（工作?。?/span>--1003住戶(hù)（工作表）--客廳（Value屬性）
我們訪(fǎng)問(wèn)1003的客廳，就經(jīng)過(guò)了這么幾個(gè)環(huán)節。
咱回到Excel中來(lái)繼續，在VBA代碼中，這些層層的對象之間（上下級）咱們用圓點(diǎn)號相連（英文的.）。
對象.屬性.屬性 第一個(gè)屬性本身返回的也是對象
對象.方法
對象.屬性
通常在對象的名稱(chēng)后輸入.后會(huì )有一個(gè)自動(dòng)成員列表（只有極少數對象例外）。
通過(guò)這個(gè)列表，可以知道該對象有哪些屬性，方法和事件。如果選中某個(gè)屬性，而該屬性返回的又是一個(gè)對象時(shí)，再在屬性名后輸入.號后還是會(huì )有自動(dòng)成員列表的。
這個(gè)自動(dòng)成員列表，對于我們輸入代碼還是很有好處的，可以少記很多屬性和方法，提高代碼的錄入速度。
現在看看如何來(lái)實(shí)現層層引用的：
比如我們要訪(fǎng)問(wèn)當前Excel中的名稱(chēng)為工作簿1.xlsm 的工作簿時(shí)，可以這么寫(xiě)
Applcation.workbooks('工作簿1.xlsm')
再接上面，如果我要訪(fǎng)問(wèn)工作簿1.xlsm 中的工作表 sheet1時(shí)，就在上面的引用后面再加上工作表的引用
Applcation.workbooks('工作簿1.xlsm').worksheets('sheet1')
再繼續扒（感覺(jué)象是娛記暴料）單元格A3，那就再加個(gè)range對象
Applcation.workbooks('工作簿1.xlsm').worksheets('sheet1').range('a3')
再繼續挖，要獲取A3單元格的值時(shí)
Applcation.workbooks('工作簿1.xlsm').worksheets('sheet1').range('a3').value
扒了這么多，不知大家繞暈了沒(méi)。天啦，Excel對象何其多，才訪(fǎng)問(wèn)4級就這么長(cháng)了，要是有十幾層咱辦？
這個(gè)寫(xiě)法咱姑且稱(chēng)之為完整引用（一般也不會(huì )這么寫(xiě)的）
既然是完整引用，相對來(lái)說(shuō)，肯定還會(huì )有個(gè)懶人引用法。
首先由于代碼是在Excel中運行，引用的也是Excel自身對象的話(huà)，再加上Application是對象層次中的頂級，一般情況下這個(gè)是可以省略的（還是有不能省略的，據觀(guān)察，如果applcation下面的屬性返回的是對象時(shí)，是可以省略application的）
有了第一條，上面的可以省一截了：
workbooks('工作簿1.xlsm').worksheets('sheet1').range('a3').value
其次，如果工作簿1.xlsm是當前活動(dòng)工作簿時(shí)，工作簿的引用可以再省略：
worksheets('sheet1').range('a3').value
再來(lái)，如果工作表 sheet1 是當前活動(dòng)工作表時(shí)，工作表集合的引用也可以省略：
range('a3').value
當然省了這么多，如果還要減字符的話(huà)，其實(shí)value也可以省略（某些場(chǎng)合不能?。?。
range(“a3”).value，省到這個(gè)情況下，前面咱不是有講到當在對象后面輸入.后會(huì )有自動(dòng)成員列表嘛，所以value這個(gè)屬性也沒(méi)有再省略的必要了。
友情提示：在寫(xiě)代碼時(shí)，相關(guān)的符號注意用英文半角。書(shū)寫(xiě)錯誤時(shí)代碼區相應的行會(huì )以紅色顯示并伴有提示的。
聯(lián)系客服
