【分享成果，隨喜正能量】凡事好壞，多半自作自受，既不是神為我們安排，也不是天意偏私袒護(hù)。業(yè)力之前，機(jī)會均等，毫無特殊例外；好壞與否，端看自己是否能應(yīng)機(jī)把握，隨緣得度。。

《VBA信息獲取與處理》教程(10178984)是我推出第六套教程，目前已經(jīng)是第一版修訂了。這套教程定位于最高級，是學(xué)完初級，中級后的教程。這部教程給大家講解的內(nèi)容有：跨應(yīng)用程序信息獲得、隨機(jī)信息的利用、電子郵件的發(fā)送、VBA互聯(lián)網(wǎng)數(shù)據(jù)抓取、VBA延時(shí)操作，剪貼板應(yīng)用、Split函數(shù)擴(kuò)展、工作表信息與其他應(yīng)用交互，FSO對象的利用、工作表及文件夾信息的獲取、圖形信息的獲取以及定制工作表信息函數(shù)等等內(nèi)容。程序文件通過32位和64位兩種OFFICE系統(tǒng)測試。是非常抽象的，更具研究的價(jià)值。

教程共兩冊,二十個(gè)專題。今日分享內(nèi)容是：第三節(jié)：在WORD為應(yīng)用主窗口下關(guān)閉EXCEL的操作（2）

第三節(jié) 在WORD為應(yīng)用主窗口下關(guān)閉EXCEL的操作

好了，我們繼續(xù)我們的銷售匯報(bào)工作，到這里所引用的外部數(shù)據(jù)我們在報(bào)告中已經(jīng)用完了，那么打開的EXCEL就可以關(guān)閉了。如下面的截圖：

如何實(shí)現(xiàn)關(guān)閉呢？這里我們?nèi)詫⒔o出兩個(gè)方案。

2 利用SendKeys語句

該語句允許你將的按鍵指令發(fā)送到活動應(yīng)用程序窗口，你可以發(fā)送一個(gè)或組合鍵，并且得到和直接使用鍵盤的同樣效果。

SendKeys語句如下語法：

SendKeys string [, wait]

參數(shù)string是必須的，是要發(fā)送到活動應(yīng)用程序窗口的鍵或組合鍵。

例如，使用下列指令來發(fā)送字母“f”鍵：SendKeys "f"

要發(fā)送組合鍵Alt+f，使用：SendKeys "%f" ，百分符號（%）是表示Alt鍵的字符串。

要發(fā)送Shift+Tab的組合鍵的話，那么就要使用下面的語句：SendKeys "+{TAB}" 。加號（+）表示Shift鍵。要發(fā)送其它鍵或者其它組合鍵的話，請參見下表列出的相應(yīng)字符串。

注意：當(dāng)使用SendKeys語句發(fā)送按鍵時(shí)，一定要牢記區(qū)分字符的大小格。因此，要發(fā)送組合鍵Ctrl+d的話，你必須使用^d，而發(fā)送Ctrl+Shift+D的話，則必須使用字符串：^+d

下面我們看本講的代碼：

Private Sub CommandButton5_Click()

    Set ws = CreateObject("wscript.shell")

    ws.AppActivate "001 工作表"

    SendKeys "%{F4}"

End Sub

代碼的截圖：

代碼的講解：通過上面的講解，我們知道上述代碼就是向打開的excel文件發(fā)生ALT+F4,也就是關(guān)閉這個(gè)文件的命令。

本節(jié)知識點(diǎn)回向：在本節(jié)中我講了兩種方案來關(guān)閉已經(jīng)打開excel的文件，但這個(gè)文件并沒有處于激活狀態(tài)，為了關(guān)閉這個(gè)已經(jīng)打開的excel文件，我可以利用close方法，或者直接給這個(gè)文件發(fā)送關(guān)閉命令。在利用close方法時(shí)要利用GetObject函數(shù)返回這個(gè)文件，然后關(guān)閉。在利用發(fā)送關(guān)閉指令時(shí)利用了SendKeys語句來發(fā)送指令。本節(jié)中的知識點(diǎn)如下：

  ① GetObject函數(shù)的作用是什么？

  ② SendKeys語句的作用是什么？

  ③ GetObject函數(shù)和CreateObject 函數(shù)的區(qū)別是什么？

本節(jié)代碼參考文件“001 在WORD中激活EXCEL.docm”

我20多年的VBA實(shí)踐經(jīng)驗(yàn)，全部濃縮在下面的各個(gè)教程中，教程學(xué)習(xí)順序：