【分享成果，隨喜正能量】夏日里的遺憾，一定都會被秋風溫柔化解。吃素不難，難于不肯捨貪口腹之心。若不貪口腹，有何吃素之不便乎。雖吃華素，不吃素日，亦須少吃。以一切物類，皆是貪生怕死，皆知疼痛苦楚。但以口不能言，故為人作食料。倘其能言，其臨殺之悲哀怨恨，尚忍聞之乎。思及此，則肉自不便下咽矣。拜經(jīng)念佛，當以恭敬至誠為本。恭敬大，則功德利益大。恭敬小，則功德利益小。若不恭敬，但做道場，則是自欺。欲欺人尚不能，況欺佛菩薩乎。祈真實恭敬行去，其利益莫大焉。。
《VBA信息獲取與處理》教程(10178984)是我推出第六套教程，目前已經(jīng)是第一版修訂了。這套教程定位于最高級，是學完初級，中級后的教程。這部教程給大家講解的內(nèi)容有：跨應用程序信息獲得、隨機信息的利用、電子郵件的發(fā)送、VBA互聯(lián)網(wǎng)數(shù)據(jù)抓取、VBA延時操作，剪貼板應用、Split函數(shù)擴展、工作表信息與其他應用交互，F(xiàn)SO對象的利用、工作表及文件夾信息的獲取、圖形信息的獲取以及定制工作表信息函數(shù)等等內(nèi)容。程序文件通過32位和64位兩種OFFICE系統(tǒng)測試。是非常抽象的，更具研究的價值。
教程共兩冊,二十個專題。今日分享內(nèi)容是：第三節(jié)：在WORD為應用主窗口下關閉EXCEL的操作（1）
第三節(jié) 在WORD為應用主窗口下關閉EXCEL的操作
好了，我們繼續(xù)我們的銷售匯報工作，到這里所引用的外部數(shù)據(jù)我們在報告中已經(jīng)用完了，那么打開的EXCEL就可以關閉了。如下面的截圖：
如何實現(xiàn)關閉呢？這里我們?nèi)詫⒔o出兩個方案。
1 CLOSE 方法
這種方法是常用的，先要找到EXCEL文件，然后關閉。我們先看看代碼：
Private Sub CommandButton4_Click() '關閉打開的文件
On Error Resume Next
Dim MyXL As Object
Dim axls As Object
Set MyXL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then Exit Sub
For Each axls In MyXL.workbooks
If axls.Name = myfile Then
axls.Close '關閉文檔
Exit For
End If
Next
Set axls = Nothing
Set MyXL = Nothing
End Sub
代碼截圖：
代碼講解：上面的這段程序會首先找到已經(jīng)打開的EXCEL，從中找到我們需要的那個文件，然后關閉這個程序。下面我們對這個段程序進行詳細的講解。
① GetObject 函數(shù)
GetObject 用于返回正在的運行文件對象。語法如下所示：
set xlApp = GetObject(, "Excel.Application")
如果在執(zhí)行此代碼時已經(jīng)有EXCEL打開，則可以通過xlApp變量訪問正在運行的EXCEL。 如果沒有運行EXCEL，則會收到可捕獲的錯誤消息。如果有多個Microsoft Excel正在運行，則 GetObject 將返回首先啟動的excel。如果關閉第一個實例，則 GetObject將返回已啟動的第二個實例，依此類推。
當然我們可以直接調(diào)用已經(jīng)打開的文檔也是可以的，如Excel運行的是名為 Book2 的打開工作簿，則以下代碼將會返回這個文件，即使這個文件不是啟動的最早的文件：
Set xlApp = GetObject("Book2").Application
② CreateObject 函數(shù) 用于啟動的新的程序。
語法如下：set xlApp = CreateObject("Excel.Application")
這個時候會建立一個新的EXCEL程序的引用，或者我們稱之為后期綁定。
③ For Each axls In MyXL.workbooks 遍歷每個打開的EXCEL
[待續(xù)]
本節(jié)代碼參考文件“001 在WORD中激活EXCEL.docm”
我20多年的VBA實踐經(jīng)驗，全部濃縮在下面的各個教程中，教程學習順序：文章來源：http://www.zghlxwxcb.cn/news/detail-644228.html
文章來源地址http://www.zghlxwxcb.cn/news/detail-644228.html
到了這里，關于第三節(jié)：在WORD為應用主窗口下關閉EXCEL的操作（1）的文章就介紹完了。如果您還想了解更多內(nèi)容，請在右上角搜索TOY模板網(wǎng)以前的文章或繼續(xù)瀏覽下面的相關文章，希望大家以后多多支持TOY模板網(wǎng)！
