第6章工作簿相關(guān)的操作

第6章工作簿相關(guān)的操作在前面的章節(jié)中，介紹了ExcelVBA的一些相關(guān)知識。從本章開始，將講解如何使用ExcelVBA來控制Excel對象。在本章中，首先講解如何控制工作簿對象。6.1新建工作簿在使用Excel辦公的過程中，首要的任務(wù)是新建一個工作簿。通過使用ExcelVBA程序代碼也可以進(jìn)行新建工作簿的操作，本節(jié)中將講解有關(guān)這方面的相關(guān)知識。6.1.1在當(dāng)前位置新建工作簿在Excel中，當(dāng)打開Excel程序時(shí)，就默認(rèn)創(chuàng)建了一個空白的工作簿。然而，通過ExcelVBA的程序代碼，也可以新建一個空白工作簿，具體實(shí)現(xiàn)請看下面的示例。6.1.2在指定位置新建工作簿工作簿創(chuàng)建之后，需要將其保存到指定的位置。本節(jié)講解的是如何通過ExcelVBA程序代碼新創(chuàng)建一個工作簿，并且將新創(chuàng)建的工作簿保存到指定的位置。下面通過一個示例來具體的進(jìn)行講解。6.2打開工作簿若想查看Excel中的內(nèi)容，首先必須打開Excel工作簿。在Excel的操作中，打開工作簿有以下幾種方法。找到Excel文件，直接雙擊文件將其打開。雙擊Excel，進(jìn)入到Excel環(huán)境當(dāng)中，單擊【Office按鈕】按鈕，在彈出的下拉界面中選擇“打開”選項(xiàng)，在彈出“打開”對話框窗口中選擇所要打開的Excel文件；或者在“最近打開的文檔”中打開想要打開的Excel文件，如圖6.5所示。6.2.1打開指定位置的工作簿若想打開指定位置的工作簿，首先需要找到工作簿文件所存放的路徑，然后在打開工作簿時(shí)指定該路徑。下面通過一個示例來進(jìn)行講解。6.2.2判斷一個工作簿是否已經(jīng)打開如果一個工作簿已經(jīng)打開，則不必要再次打開該工作簿了?？梢允褂肊xcelVBA程序代碼來實(shí)現(xiàn)避免重復(fù)打開同一個工作簿的誤操作。6.2.3打開設(shè)置保護(hù)的工作簿在Excel工作簿中，有些工作簿中的內(nèi)容是比較機(jī)密的，不允許其他用戶查看，如公司的賬目、考試成績等。如果這些工作簿設(shè)置了密碼，在通常情況下用戶是無法將其打開并查看的。在Excel中，除了輸入密碼打開設(shè)置了密碼的工作簿之外，還可以通過使用ExcelVBA程序代碼來將其打開。實(shí)際上打開帶密碼保護(hù)工作簿的方法很簡單，只要在打開工作簿路徑后添加該工作簿所設(shè)置的密碼即可，假設(shè)打開的工作簿帶有密碼123456，則實(shí)現(xiàn)的程序代碼如下所示。Sub單擊_打開()

Workbooks.OpenFilename:="C:\PsdBooks.xlsx",Password:="123456"EndSub注意：Password后面是“:=”，而不是“=”，另外，Password前面要用“,”與工作簿文件的路徑區(qū)別開。6.3保存工作簿工作簿創(chuàng)建完成之后，需要將其保存，這樣才不至于使創(chuàng)建的Excel文件丟失。保存工作簿分為直接保存工作簿和另存為工作簿兩種方法，本節(jié)中將詳細(xì)講解有關(guān)這兩個方面的內(nèi)容。6.3.1直接保存工作簿在Excel中，使用Workbooks對象的Save方法可以直接保存工作簿。直接保存工作簿又分為保存當(dāng)前工作簿和保存指定的工作簿兩種方式，下面通過示例分別講解如何使用這兩種方式直接保存工作簿。本示例實(shí)現(xiàn)的是單擊工作表中的【保存當(dāng)前工作簿】按鈕將保存工作表所在的當(dāng)前工作簿；單擊【保存指定工作簿】按鈕將保存已經(jīng)存在的工作簿Book1.xlsx.。6.3.2另存為工作簿在上一節(jié)中講解了如何直接保存工作簿，在本節(jié)中將講解如何另存為工作簿。在Excel中另存為工作簿有兩種方式，即將工作簿另存為指定的文件目錄下和將工作簿備份到指定的文件目錄下。下面通過示例來分別進(jìn)行講解。6.4關(guān)閉工作簿關(guān)閉工作簿主要有關(guān)閉指定的工作簿、在關(guān)閉工作簿之前是否保存工作簿和關(guān)閉所有的工作簿3種情況，下面就分別講解這3種情況。6.4.1關(guān)閉指定位置的工作簿當(dāng)打開多個工作簿時(shí)，可以通過使用ExcelVBA代碼來關(guān)閉指定的工作簿，具體實(shí)現(xiàn)請看下面的示例。6.4.2關(guān)閉前是否保存工作簿如果被打開的工作簿有改動，則在關(guān)閉工作簿時(shí)會彈出是否保存的提示對話框，如圖6.16所示。通過ExcelVBA代碼也可以在程序中設(shè)置是否保存，并且在關(guān)閉工作簿前是否彈出提示對話框信息，具體實(shí)現(xiàn)如下面的示例所示。6.4.3關(guān)閉所有工作簿在ExcelVBA中，除了可以使用代碼關(guān)閉指定的工作簿和當(dāng)前工作簿之外，還可以關(guān)閉當(dāng)前所有打開的工作簿。實(shí)現(xiàn)的方法如下面的示例所示。本示例實(shí)現(xiàn)的是當(dāng)單擊工作表中的【關(guān)閉所有工作簿】按鈕之后，會將當(dāng)前所有打開的工作簿全部關(guān)閉。

6.5工作簿的應(yīng)用前面講解了有關(guān)Excel工作簿的一些相關(guān)知識。讀者在學(xué)習(xí)了這些知識之后，將會對Excel工作簿有了更深一步的了解。本節(jié)中，主要講解有關(guān)工作簿的一些相關(guān)的應(yīng)用知識，包括禁止打印文件的內(nèi)容、禁止編輯工作簿中的單元格、打開工作簿時(shí)彈出提示信息等一些與實(shí)際應(yīng)用相關(guān)的內(nèi)容。6.5.1示例：禁止打印工作簿文件內(nèi)容【本節(jié)示例參考：\代碼\第6章\6.5.1.xlsm】在ExcelVBA中的事件列表中，與打印相關(guān)的事件只有Workbook對象的BeforePrint事件。在打開Excel工作簿之后，單擊【Office按鈕】按鈕下的【打印】按鈕，將會觸發(fā)Workbook對象的BeforePrint事件。通過編寫ExcelVBA程序代碼可以禁止打印工作簿文件內(nèi)容，防止工作簿內(nèi)容以文本的形式從打印機(jī)中輸出。下面通過示例進(jìn)行講解。本示例實(shí)現(xiàn)的是在單擊Excel環(huán)境中的【Office按鈕】按鈕下的【打印】按鈕時(shí)，將彈出一個提示無法打印文件的提示對話框，同時(shí)將無法打印工作簿文件中的內(nèi)容。6.5.2示例：禁止編輯工作簿中的所有單元格【本節(jié)示例參考：\代碼\第6章\6.5.2.xlsm】如果不想讓工作簿中所有單元格內(nèi)容隨意地進(jìn)行改動，可以通過VBA程序代碼禁止編輯工作簿中所有的單元格，實(shí)現(xiàn)的方法如下面的示例所示。本示例實(shí)現(xiàn)的是在打開Excel工作簿之后，在修改單元格中的內(nèi)容時(shí)，當(dāng)光標(biāo)離開該單元格時(shí)，單元格中的內(nèi)容將恢復(fù)到修改前的狀態(tài)。示例實(shí)現(xiàn)的操作步驟如下所示。6.5.3示例：禁止使用關(guān)閉按鈕【本節(jié)示例參考：\代碼\第6章\6.5.3.xlsm】在Excel的工作簿當(dāng)中，通過單擊工作簿右上角中的【關(guān)閉】按鈕可以關(guān)閉工作簿。在工作簿中Workbook對象的BeforeClose事件中可以將工作簿中的【關(guān)閉】按鈕設(shè)置為失效狀態(tài)，下面通過示例進(jìn)行講解。本示例實(shí)現(xiàn)的是在打開工作簿時(shí)，將工作簿中的【關(guān)閉】按鈕禁止，此時(shí)將無法通過單擊【關(guān)閉】按鈕關(guān)閉工作簿，當(dāng)單擊工作表中的【退出應(yīng)用程序】按鈕時(shí)，將關(guān)閉工作簿。示例實(shí)現(xiàn)的操作步驟如下所示。6.5.4示例：打開工作簿時(shí)彈出提示信息【本節(jié)示例參考：\代碼\第6章\6.5.4.xlsm】在打開Excel工作簿時(shí)，有時(shí)候需要彈出一些提示信息。在Execl中，可以通過Workbook對象的Open事件來實(shí)現(xiàn)在打開工作簿時(shí)彈出提示對話框的功能，下面通過示例進(jìn)行講解。本示例實(shí)現(xiàn)的是在打開工作簿時(shí)，將彈出打開工作簿日期時(shí)間的提示對話框。示例實(shí)現(xiàn)的操作步驟如下所示。6.5.5示例：改變工作簿大小時(shí)彈出提示信息【本節(jié)示例參考：\代碼\第6章\6.5.5.xlsm】當(dāng)Excel的工作簿大小發(fā)生變化時(shí)，會觸發(fā)Workbook對象的WindowResize事件。本節(jié)中將通過一個示例來講解如何應(yīng)用Workbook對象的WindowResize事件彈出提示用戶工作簿大小已經(jīng)改變的提示信息。示例實(shí)現(xiàn)的步驟如下所示。6.5.6示例：關(guān)閉工作簿時(shí)彈出提示信息【本節(jié)示例參考：\代碼\第6章\6.5.6.xlsm】在某些應(yīng)用軟件中，當(dāng)關(guān)閉應(yīng)用程序時(shí)，會彈出一個是否確認(rèn)退出應(yīng)用程序的對話框窗口，在該窗口中如果選擇【是】按鈕則退出程序，選擇【否】則取消退出應(yīng)用程序的操作。在關(guān)閉Excel工作簿時(shí)也可以實(shí)現(xiàn)與其相類似的功能，如下面的示例所示。本示例實(shí)現(xiàn)的是當(dāng)關(guān)閉工作簿時(shí)，將彈出一個提示對話框，如果在對話框中單擊【確定】按鈕則關(guān)閉工作簿，單擊【取消】按鈕取消關(guān)閉工作簿的操作。示例實(shí)現(xiàn)的操作步驟如下所示。6.6舉一反三對工作簿的操作是學(xué)習(xí)ExcelVBA的重要內(nèi)容之一，本章講解了有關(guān)工作簿的一些相關(guān)操作。如果想更加深入地了解Excel