No.1

Excel工作當中，也可以選擇性地激活應用程序，如何實現呢？下面介紹一個語句來完成。

AppActive語句

這個語句的功能就是激活應用程序窗口，無論是已經打開或未打開的應用程序。

語法如下圖所示：

No.2

如下圖示例：

以打開Word和Excel應用程序為例，單擊按鈕可實現打開應用程序。

通常情況下，這個語句是沒有意義的，但是在一些高級編程過程當中，可能需要打開相應的應用程序，那么就使用AppActive語句，再方便不過了。

如果你在編程中，用到計算器，給一個按鈕進行賦值計算器打開功能，也是很方便的。

No.3

語句使用方法

AppActivate 語句將焦點更改為命名應用程序或窗口，但不會影響最大化還是最小化它。 焦點在用戶執行某個操作更改焦點或關閉窗口時將從已激活的應用程序窗口移動。

使用 Shell 函數可啟動應用程序并設置窗口樣式。

Shell函數之前的文章有過介紹，可以利用Shell函數啟動應用程序，然后再用AppActivate語句激活。

如下代碼打開Excel應用程序并激活：

'打開Excel
Dim ActExcelAppID
ActExcelAppID = Shell("C:\Program Files (x86)\Microsoft Office\Office16\Excel.exe", 1)
AppActivate ActExcelAppID

Shell函數應用程序的地址要以自己電腦地址為準，這個地址需要自己設置。

注意：

在確定要激活的應用程序時，title 將與每個正在運行的應用程序的標題字符串進行比較。

如果沒有完全匹配的項，則將激活其標題字符串以 title 開頭的任何應用程序。 如果有多個按 title 命名的應用程序的實例，則將任意激活一個實例。

解釋：

當前打開多個應用程序的時候，title參數將與每個應用程序做字符串比較，如果沒有完全匹配就隨便打開激活一個應用程序。

如代碼：

AppActivate "工資表"

假如當前打開了三個"工資表"，標題分別是"1月工資表"、"2月工資表"、"3月工資表"，那么就沒有完全匹配的應用，在這3個工作表中任意激活一個。

如代碼是：

AppActivate "3月工資表"

那么就激活"3月工資表"。

很好理解。

這個功能擴展應用還是很好的，當需要在不同的應用之間進行切換的時候，就可以大顯身手了。

歡迎關注、收藏

---END---

總結

以上是生活随笔為你收集整理的如何使用VBA激活指定应用的程序，几乎没人知道的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。