[[20181030191550]]　『AppActivateができたりできなかったり』（ap）　ページの最後に飛ぶ

『AppActivateができたりできなかったり』（ap）

お願いします。
会社で使う、とあるツールがあります。
ツール名は言えないので例としてtest.exeとします。

Dim rc, rcb, rcc,
Sub Sample1()

    rc = Shell("test.exe", vbNormalFocus)
    rcb = Shell("test.exe", vbNormalFocus)
    rcc = Shell("test.exe", vbNormalFocus)
End Sub

起動後それぞれにIDとパスワードを入れてメインメニュー画面にする。
三枚を任意の場所へそれぞれ配置して、
フォルダやIEなどのウィンドウで三枚のツールを隠す。
そして、以下を実行する。

Sub test1()

  AppActivate rc
  AppActivate rcb
  AppActivate rcc
End Sub

すると三枚ともアクティブしてくれる場合もあれば一枚とか二枚だけとかそういう場合もあり、困っています。

また、ツールを起動するだけでログインしない状態で並べるとちゃんと三枚ともアクティブ化されました。

ログイン後にどうしてもできるようにしたいのですが、
何か良い方法はありますでしょうか？

＜使用 Excel：unknown、使用 OS：unknown ＞

SleepメソッドやWaitでそれぞれのタイミングをずらしたり、
http://officetanaka.net/excel/vba/tips/tips116.htm

AppActivateの代わりにSetForegroundWindowを試してはいかがでしょう。
https://www.moug.net/tech/acvba/0020028.html

（名無し） 2018/10/30(火) 20:27

コメント返信：