VBA 他のプログラム起動を１回だけにしたいです

Question

VBAのマクロで繰り返し動作中に他のプログラムを起動してSendkeyを送りたいのですが、繰り返し処理が行われてるためプログラムの起動とSendkeyも重複して動作してしまいます。
以下のコードでプログラムの起動を1回のみで重複しないようにするにはどうすればいいでしょうか？
よろしくお願いいたします。

Dim i As Integer
On Error GoTo Hotkey
i = Shell(CreateObject("Wscript.Shell").SpecialFolders("Desktop") & "\test.exe", vbNormalNoFocus)
Application.SendKeys "n"
Application.SendKeys "^+u"
Hotkey:
Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

Answer 1

VBAから Win API関数を呼び出す方法を紹介します。
プロセスハンドル有無を判定し、プログラム重複起動を回避できます。

#If VBA7 And Win64 Then
    Private Declare PtrSafe Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As LongPtr, ByVal dwProcessId As Long) As LongPtr
    Private hProc As LongPtr 'プロセスハンドル
#Else
    Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
    Private hProc As Long 'プロセスハンドル
#End If

Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF

本文はこちら

hProc = OpenProcess(PROCESS_ALL_ACCESS, 0, i)
'プロセスハンドルが返された場合、プログラム起動させない
If hProc = 0& Then
    i = Shell(CreateObject("Wscript.Shell").SpecialFolders("Desktop") & "\test.exe", vbNormalNoFocus)
End If

Comments

[ttii]

ご回答ありがとうございます。テストでコードを組んでみたところ問題なく動きました。実際に現場でテスト運用してみます。

[ttii]

以下のコードでプログラム起動の重複を避けることができました。
とても助かりました。ありがとうございました。
If hProc = 0& Then
i = Shell(CreateObject("Wscript.Shell").SpecialFolders("Desktop") & "\test.exe", vbNormalNoFocus)
hProc = OpenProcess(PROCESS_ALL_ACCESS, 0, i)
End If

Answer 2

既に起動済みかどうかを判断すればよく、幾つかの方法があります。
以下参考
アプリケーションの起動

Comments

[ttii]

ご回答ありがとうございます。
URL先を参考に色々調べてテストしてみましたが、私の知識が浅いため上手くいきません。
またマクロを複数回動かすため、プログラムを一度起動してしまうと次に同じマクロを動かしたときにプログラムが起動済となりSendkeyの入力ができなくなります。
プログラムを終了させる手も考えたのですが、そうすると毎回起動と終了を繰り返すことになり動作が重複してしまいます。
何か良い対処法はあるのでしょうか？

[sazi]

起動とsendkeyは切り離して考えれば良いのでは？
sendkeyするためには起動されていることは前提ですけど、起動はsendkeyとは関係なく起動されているかどうかだけの判断ですので、起動されていない時だけ起動するようにすれば繰り返しても問題ないはずです。

[ttii]

今調整しているコードは私が最初から作った訳ではなく、すでにあるものに変更点を加えたいのですが、プログラムの起動とSendkeyはセットで動かす必要があるのです。
理由としては一連の動作の中でサーバーにデータを読みに行くのですが、その間どうしてもマクロの動作が遅くなり、プログラムの起動とSendkeyがセットで動かないと他の操作によって誤作動を起こす場合があります。複数人が使うマクロなので、動作中は他の操作をしないよう禁止にするのは難しいです。

[sazi]

> 複数人が使うマクロ
とはどういう状況でしょうか？

起動しているプログラムは各ＰＣで動作しているのだと思いますけど、その起動しているプログラムはクラサバのアプリケーションですか？
その場合の排他はそのプログラムが担うべきですし、そうでないなら複数人が同じＰＣのプログラムを起動するという状況が想像できません。

[ttii]

説明不足で申し訳ありません。プログラムは各PC上で動作しています。ただその各PCごとの使用者が複数人いる状況なのです。例えば特定の作業用PCがあって、それを複数人が使っています。

[sazi]

TanakaHiroakiさんの回答へのコメントをみると
> 上手く行かない
とはもっと具体的なコードが欲しいという事だったんですね。

[ttii]

はい、マクロに関して知識が浅く自分でも色々調べてみているのですが、教えていただいたリンク先を参考にしても応用が難しい状況でした。でも今回の件でとても勉強になりました。ありがとうございました。