幫助AppActivate找到我的程序

Question

我構建了一個VBA腳本，用於激活我公司的企業數據庫軟件，並以錯誤消息的屏幕截圖對其進行編譯並在彈出時將它們發送給我們的IT部門。

的問題是，它大約有沒有找到數據庫程序的30％的機會。

我使用使用AppActivate，並讓它重申對名稱不同的變化的命令。 （當我的AppActivate在60-70％的時間裏失蹤時，我從其他地方借用了這段代碼）。

「PROGNAME v2 - [菜單用戶的標題已打開]」是該程序的菜單欄名稱。我每次都能做些什麼來抓住它？

Sub ActivateWin() 
'Activates The Program by window name 
    On Error Resume Next   'we ignore all errors until we reach last AppActivate 
    AppActivate ("PROG") 
    If Err.Number = 5 Then Err = 0: AppActivate ("PROGname v2") 
    If Err.Number = 5 Then Err = 0: AppActivate ("PRO") 
    If Err.Number = 5 Then Err = 0: AppActivate ("P") 
    If Err.Number = 5 Then Err = 0: AppActivate ("prog") 
    If Err.Number = 5 Then Err = 0: MsgBox "PROGname not found. Please go yell at MYNAME!" 
End Sub 

Answer 1

也許你可以嘗試用FindWindow命令另一種方式（其他一些信息here）。

爲了找到哪個類是指你的編程'，你可以使用這個插件：http://www.xcelfiles.com/API_06.html，或因代碼的啓發，並自定義您的需求。