如我們的報告界面，當(dāng)我們的界面繼續(xù)往下進(jìn)行，在第二個以及第三個按鈕處我們要激活剛才打開的excel,這個按鈕的代碼該如何寫呢？
利用AppActivate語句激活EXCEL是非簡單的，我們看下面的按鈕代碼：
Private Sub CommandButton2_Click()
AppActivate "Microsoft Excel"
End Sub
代碼的截圖：
代碼講解：我們先看看AppActivate語句的語法：
語法：AppActivate?title?[,?wait]
參數(shù)title；是必須的，這是應(yīng)用程序的名稱，正如它顯示在應(yīng)用程序窗口的標(biāo)題欄那樣，或者它也可以是Shell函數(shù)返回的任務(wù)ID號碼。注意，參數(shù)title要跟每個正運(yùn)行的應(yīng)用程序的標(biāo)題字符串進(jìn)行對比，如果沒有精確的匹配，那么任何標(biāo)題字符串里前面的字符和參數(shù)title一致的應(yīng)用程序就會被激活。（例如，你要激活Excel，那么title參數(shù)應(yīng)該是"Microsoft Excel"，如果你寫的是"Microsoft"，那么激活的就也可能是Word，PowerPoint……）。
第二個參數(shù)wait是可選的，它是個布爾值（True或False），明確VB什么時候激活應(yīng)用程序。如果在這里是False的話，該應(yīng)用程序就立即會被激活，甚至被調(diào)應(yīng)用程序并沒有焦點。如果在wait參數(shù)處放置True的話，那么被調(diào)的應(yīng)用程序就會等到它有了焦點，然后才會激活該應(yīng)用程序。
例如，要激活Word，你就得輸入下列語句：AppActivate "Microsoft Word"注意，應(yīng)用程序名稱用雙引號引用起來。
也可以使用Shell函數(shù)返回的數(shù)值作為語句AppActivate的參數(shù)，例如：
Sub mynz()
ReturnValue=Shell("C:\Microsoft Office\Office\Word.exe",1)
AppActivate ReturnValue
End sub
如本講的內(nèi)容，在Word中使用代碼自動化激活Excel，其實，在我們寫程序的時候，會發(fā)現(xiàn)，當(dāng)運(yùn)行某個活動應(yīng)用程序時（如word），從這個運(yùn)行程序的代碼激活另外一個應(yīng)用程序作為主窗口（如在word運(yùn)行時激活Excel窗口）對于用戶來說是非常有用的。這時我們可以嘗試使用上面的AppActivate語句，但這要求事先知道要激活的窗口的標(biāo)題。而且，從實際的表現(xiàn)看，AppActivate有點給人不靠譜的感覺，有時工作，有時不工作（會提示：引發(fā)錯誤5，無效的過程調(diào)用）。所以，我給大家講解下面的第二種方案就是調(diào)用API函數(shù)的方案。
我們可以使用幾個簡單的Windows API函數(shù)完成同樣的任務(wù)。API是直接調(diào)用組成Windows的DLL庫文件的過程。可以使用API函數(shù)完成VBA本身無法執(zhí)行的操作。但是有一點值得注意。就是API沒有VBA代碼的錯誤處理功能，如果使用無效參數(shù)調(diào)用API函數(shù)，可能會導(dǎo)致Excel崩潰并丟失所有工作。API函數(shù)的使用應(yīng)該非常謹(jǐn)慎。
以下代碼將激活主Excel窗口并將鍵盤焦點設(shè)置為Excel中的活動工作表。我這里給出的代碼在13版32位office中已經(jīng)實測，在16版及64位ofiice或許不能完全得到你需要的效果，這一點要注意。當(dāng)然為了保證代碼應(yīng)適用于其他的場合我給出的是通用的版本，可以將MyCLASS的值從xlmain更改為其他應(yīng)用程序的WINDOW類從而完成實際的需要。
Option Compare Text '聲明比較字符串?dāng)?shù)據(jù)時要使用的默認(rèn)比較方法按TEXT比較。
' Window API 引用聲明
Private Declare Function BringWindowToTop Lib "user32" (ByVal HWnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function SetFocus Lib "user32" (ByVal HWnd As Long) As Long
Private Sub CommandButton1_Click()
Dim Res As Long
Dim XLHWnd As Long
Const MyCLASS="XLMAIN"
'假如有多個EXCEL運(yùn)行，程序是無法判斷是要激活哪一個EXCEL的；
'同時必須使用vbNullString調(diào)用，而不是""的空字符串的調(diào)用在FindWindow函數(shù)中兩者有不同
XLHWnd=FindWindow(lpClassName:=MyCLASS, lpWindowName:=vbNullString)
If XLHWnd > 0 Then
'設(shè)置活動窗口
Res=BringWindowToTop(HWnd:=XLHWnd)
If Res=0 Then
MsgBox "置頂激活錯誤，錯誤代碼: " & CStr(Err.LastDllError)
Else
SetFocus HWnd:=XLHWnd
End If
Else
MsgBox "沒有發(fā)現(xiàn) Excel被打開"
End If
End Sub
代碼截圖：
代碼講解：上述代碼在頭部建立了引用API函數(shù)的聲明，在代碼中首先會查找excel程序，如果找到會將EXCEL置頂。此程序?qū)⒓せ钪鱁XCEL程序,并獲得焦點，注意：如果打開VBA編輯器，此操作將無法正常工作。如果打開VBA編輯器窗口，系統(tǒng)將設(shè)置焦點到那個窗口，而不是XLMAIN窗口。此代碼可以激活任何應(yīng)用程序，只需更改myCLASS到應(yīng)用程序主窗口的類，這里我給大家一些常見的OFFICE應(yīng)用程序常見的類：
Excel 97、2000、2002、2003、2007、2013 為 XlMain
Word 97、2000、2002、2003、2007、2013 為OpusApp
Access 2000、2002、2003、2007、2013 為OMain
下面我們看看上述代碼的詳細(xì)講解：
① Const MYCLASS="XLMAIN"
獲取主'Excel應(yīng)用程序窗口的窗口句柄("XLMAIN")。如果"正在運(yùn)行Excel的多個實例"，您無法控制將檢索哪個實例的HWnd。
② XLHWnd=FindWindow(lpClassName:=MyCLASS, lpWindowName:=vbNullString)
在調(diào)用' FindWindow時，你必須使用vbNullString不是一個空字符串""，當(dāng)調(diào)用API函數(shù)時，vbNullString和空字符串""之間有區(qū)別。
③ BringWindowToTop(HWnd:=XLHWnd) 將應(yīng)用程序置頂
函數(shù)語法： BringWindowToTop（HWND hWnd）；
函數(shù)功能：該函數(shù)將指定的窗口設(shè)置到Z序的頂部。如果窗口為頂層窗口，則該窗口被激活；如果窗口為子窗口，則相應(yīng)的頂級父窗口被激活。
參數(shù)：hWnd: 設(shè)置到Z序的頂部的窗口句柄。
返回值：如果函數(shù)成功，返回值為非零；如果函數(shù)失敗，返回值為零。若想獲得更多錯誤信息，可以調(diào)用GetLastError函數(shù)。
④ FindWindow用法
函數(shù)功能：該函數(shù)獲得一個頂層窗口的句柄，該窗口的類名和窗口名與給定的字符串相匹配。這個函數(shù)不查找子窗口。在查找時不區(qū)分大小寫。
函數(shù)語法：HWND FindWindow（LPCTSTR IpClassName，LPCTSTR IpWindowName）;
參數(shù)：IpClassName ：指向一個指定了類名的空結(jié)束字符串，或一個標(biāo)識類名字符串的成員的指針。如果該參數(shù)為一個成員，則它必須為前次調(diào)用theGlobafAddAtom函數(shù)產(chǎn)生的全局成員。該成員為16位，必須位于IpClassName的低 16位，高位必須為 0。
IpWindowName：指向一個指定了窗口名（窗口標(biāo)題）的空結(jié)束字符串。如果該參數(shù)為空，則為所有窗口全匹配。
返回值：如果函數(shù)成功，返回值為具有指定類名和窗口名的窗口句柄；如果函數(shù)失敗，返回值為NULL。
這個函數(shù)有兩個參數(shù)，第一個是要找的窗口的類，第二個是要找的窗口的標(biāo)題。在搜索的時候不一定兩者都知道，但至少要知道其中的一個。有的窗口的標(biāo)題是比較容易得到的，如"計算器"，所以搜索時應(yīng)使用標(biāo)題進(jìn)行搜索。但有的軟件的標(biāo)題不是固定的，如"記事本"，如果打開的文件不同，窗口標(biāo)題也不同，這時使用窗口類搜索就比較方便。如果找到了滿足條件的窗口，這個函數(shù)返回該窗口的句柄，否則返回0。
⑤關(guān)于句柄，句柄是整個Windows編程的基礎(chǔ)。一個句柄是指使用的一個唯一的整數(shù)值，即一個4字節(jié)(64位程序中為8字節(jié))長的數(shù)值，來標(biāo)識應(yīng)用程序中的不同對象和同類中的不同的實例，諸如，一個窗口，按鈕，圖標(biāo)，滾動條，輸出設(shè)備，控件或者文件等。應(yīng)用程序能夠通過句柄訪問相應(yīng)的對象的信息，但是句柄不是指針，程序不能利用句柄來直接閱讀文件中的信息。如果句柄不在I/O文件中，它是毫無用處的。 句柄是Windows用來標(biāo)志應(yīng)用程序中建立的或是使用的唯一整數(shù)，Windows大量使用了句柄來標(biāo)識對象。
⑥ SetFocus HWnd:=XLHWnd
設(shè)置焦點。
本節(jié)知識點回向：在本節(jié)中我們講了如何做到在不同的應(yīng)用程序間切換，主要利用了兩種方案，一種是利用API函數(shù)，要查找到程序的局部然后置頂，一種是利用了AppActivate，這兩種方法在應(yīng)用上要注意測試，對于前者要注意所用的office是否合適于這種應(yīng)用，后者要注意應(yīng)用的穩(wěn)定性。本講的知識點：
① AppActivate 如何應(yīng)用。
② FindWindow 和 SetFocus 如何應(yīng)用。
③ 上述兩種應(yīng)用的優(yōu)缺點分析。
④ 理解API函數(shù)聲明與OFFICE版本的關(guān)系。
本節(jié)代碼參考文件"001 在WORD中激活EXCEL.docm"
在取代OFFICE新的辦公軟件沒有到來之前，誰能在數(shù)據(jù)處理方面做到極致，誰就是王者。其中登峰至極的技能非VBA莫屬！學(xué)習(xí)VBA是個過程，也需要經(jīng)歷一種枯燥的感覺，如太白詩云：眾鳥高飛盡，孤云獨(dú)去閑。相看兩不厭，只有敬亭山。
"水善利萬物而不爭"，綿綿密密，微則無聲，巨則洶涌。學(xué)習(xí)亦如此，知道什么是自己所需要的，不要蜷縮在一小塊自認(rèn)為天堂的世界里，待到暮年時再去做自欺欺人的言論。要努力提高自己，用一顆充滿生機(jī)的心靈，把握現(xiàn)在，這才是進(jìn)取。越是有意義的事情，困難會越多。愿力決定始終，智慧決定成敗。不管遇到什么，都是風(fēng)景。看淡紛爭，看輕得失。茶，滿也好，少也好，不要計較；濃也好，淡也好，其中自有值得品的味道。去感悟真實的時間，靜下心，多學(xué)習(xí)，積累福報。而不是天天混日子，也不是天天熬日子。在后疫情更加嚴(yán)峻的存量殘殺世界中，為自己的生存進(jìn)行知識的儲備，特別是新知識的儲備。學(xué)習(xí)時微而無聲，利用時則巨則洶涌。
VBA是利用Office實現(xiàn)自己小型辦公自動化的有效手段，我記得20年前自己初學(xué)VBA時，那時的資料甚少，只能看源碼自己琢磨,真的很難。20年過去了，為了不讓學(xué)習(xí)VBA的朋友重復(fù)我之前的經(jīng)歷，我根據(jù)自己多年VBA實際利用經(jīng)驗，推出了六部VBA專門教程。
第一套：VBA代碼解決方案 是VBA中各個知識點的講解，覆蓋絕大多數(shù)的VBA知識點，初學(xué)必備；
第二套：VBA數(shù)據(jù)庫解決方案 數(shù)據(jù)庫是數(shù)據(jù)處理的專業(yè)利器，教程中詳細(xì)介紹了利用ADO連接ACCDB和EXCEL的方法和實例操作，適合中級人員的學(xué)習(xí)。
第三套：VBA數(shù)組與字典解決方案 數(shù)組和字典是VBA的精華，字典是VBA代碼水平提高的有效手段，值得深入的學(xué)習(xí)，是初級及中級人員代碼精進(jìn)的手段。
第四套：VBA代碼解決方案之視頻 是專門面向初學(xué)者的視頻講解，可以快速入門，更快的掌握這門技能。
第五套：VBA中類的解讀和利用 這是一部高級教程，講解類的虛無與肉身的度化，類的利用雖然較少，但仔細(xì)的學(xué)習(xí)可以促進(jìn)自己VBA理論的提高。
第六套教程：《VBA信息獲取與處理》，這是一部高級教程，涉及范圍更廣，實用性更強(qiáng)，面向中高級人員。教程共二十個專題，包括：跨應(yīng)用程序信息獲得、隨機(jī)信息的利用、電子郵件的發(fā)送、VBA互聯(lián)網(wǎng)數(shù)據(jù)抓取、VBA延時操作，剪切板應(yīng)用、Split函數(shù)擴(kuò)展、工作表信息與其他應(yīng)用交互，F(xiàn)SO對象的利用、工作表及文件夾信息的獲取、圖形信息的獲取以及定制工作表信息函數(shù)等等內(nèi)容。
學(xué)習(xí)的過程也是修心的過程，修一個平靜的心。在代碼的世界中，心平靜了，心情好了，身體自然而然就好。心靜則正，內(nèi)心里沒有那么多邪知邪見，也就沒有那么多妄想。利人就是利己。這些教程也是為幫助大家起航，助上我自己之力，我的上述教程是我多的經(jīng)驗的傳遞，大家可以根據(jù)1,3,2,6,5或者是4,3,2,6,5的順序逐漸深入的逐漸學(xué)習(xí)。
每一分收獲都是成長的記錄，怎無憑，正是這種執(zhí)著，成就了朝霞的燦爛。最后將一闕詞送給致力于VBA學(xué)習(xí)的朋友,讓大家感受一下學(xué)習(xí)過程的枯燥與執(zhí)著：
浮云掠過，暗語無聲，
唯有清風(fēng)，驚了夢中啼鶯。
望星，疏移北斗，
奈將往事雁同行。
阡陌人，昏燈明暗，
忍顧長亭。
多少VBA人，
暗夜中，悄聲尋夢，盼卻天明。
怎無憑！
分享成果，隨喜正能量
Win10的自帶錄屏軟件在實際應(yīng)用當(dāng)中有著很多的限制，比如無法錄制完整的屏幕內(nèi)容，比如經(jīng)常會出現(xiàn)無法同步錄制麥克風(fēng)的外部音源。所以我會更推薦使用第三方的錄制工具來高速且高效的完成屏幕內(nèi)容的錄制工作。
步驟1、啟動萬興優(yōu)轉(zhuǎn)
啟動萬興優(yōu)轉(zhuǎn)，然后在左邊的功能區(qū)選擇音畫錄制功能，在主界面點選第一個屏幕錄制選項。
步驟2、自定義錄制區(qū)域
接下來就是設(shè)置錄制的區(qū)域，你可以拖動錄制框中間的符號來調(diào)節(jié)錄制的位置，同時你可以自定義調(diào)節(jié)錄制框的寬與高選項值來控制錄制框的大小進(jìn)行錄制。同時在這里一定要記著選定正確的麥克風(fēng)選項并進(jìn)行測試確保音源有被正常記錄。
步驟3、在線涂鴉
點擊紅色的REC按鈕開始錄制，錄制將在3秒倒計時后開始。點擊畫筆按鈕可以對錄制內(nèi)容進(jìn)行在線涂鴉。
步驟4、停止錄制
錄制完成后點擊紅色的停止按鈕，錄制將結(jié)束。錄制后的視頻將自動出現(xiàn)在產(chǎn)品當(dāng)中。你可以隨后在產(chǎn)品中對視頻進(jìn)行格式轉(zhuǎn)換和壓縮等處理。