Excel vbaから起動済み外部アプリケーションをアクティブに

前提・実現したいこと

起動済みの外部アプリケーションのウィンドウをアクティブにしたくて試行・調べるを繰り返しています。
AppActivate titleでうまくいかなかったので
別の方法を調べていました。
（エラーは出ないがアクティブにならない）
以下のコードを見つけたのですが、VBAで動作するように書き換えることができません。

以下VB.NETのコード

'メモ帳のプロセスを探す
Dim ps As System.Diagnostics.Process() = _
System.Diagnostics.Process.GetProcessesByName("notepad")
If 0 < ps.Length Then
'見つかった時は、アクティブにする
Microsoft.VisualBasic.Interaction.AppActivate(ps(0).Id)
End If

（https://dobon.net/vb/dotnet/process/appactivate.html より）

補足情報（FW/ツールのバージョンなど）

EXCEL2019を使用しています。
アクティブにしたいプログラムは
C:\Program　Files\Fujitsu\WSMGR\T528.emd　で
タイトルバーには
T528.emd - DSPEMU
と表示されています。

行動規範の内容に同意します

回答2件

自己解決

AppActivateの前にgetobjectやcreateobjectなどを入れていましたが、
それを消したらうまくいきました。
お騒がせしました！
なぜなのかはわかりませんが･･･
以下はうまくいったコードです。

Dim MyFile As String
MyFile = Dir("C:\Program Files\Fujitsu\WSMGR????.emd")
MyFile = Left(MyFile, 4) & " - DSPEMU"
AppActivate MyFile, True

投稿2020/03/03 10:36

haru.

総合スコア4

Win32APIを使うのが一般的かと思いますので、サンプルを作ってみました。
標準モジュールに追加して実行してください。

VBA
1Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
2Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
3    
4Sub test()
5    Dim hwnd As Long
6    ' ウィンドウハンドル取得
7    hwnd = FindWindow("Notepad", vbNullString)          ' クラス名で検索する場合
8    hwnd = FindWindow(vbNullString, "無題 - メモ帳")    ' ウィンドウタイトルで検索する場合
9    If hwnd <> 0 Then
10        ' 指定したハンドルのウィンドウを前面に表示
11        SetForegroundWindow hwnd
12    End If
13End Sub