プロセスＩＤの取得方法について

質問

下に同様の質問をしたのですが、削除方法分からない為、再度質問させていただきまし。

ＶＢ５．０を利用しています。
ＶＢで書いたｅｘｅを実行した際に、そのプロセスＩＤ（自分の）は、GetCurrentProcessIdを利用すれば取得できると分かりました。
が、プログラム内でＥｘｃｅｌを下記の様にオブジェクトを作成した場合、そのプロセスＩＤをどうやって取得すればいいのでしょうか？
ご存知の方居ましたら、教えて下さい。

Set ExcelObj = CreateObject("Excel.Application")
ここで起動？されたＥｘｃｅｌのプロセスＩＤを取得したいのですが。

回答No.1

TAGOSAKU7 · ベストアンサー

FindWindowなどのキャプションか、クラス名で対象オブジェクトハンドルを取得し、
GetCurrentProcessId関数で、プロセスIDとスレッドIDを取得する方法が一般的。
過去スレにいっぱいサンプルがあります。

スクリプトを使用するなら、以下の方法もあったりする。

でもどちらも複数ＥＸＣＥＬ起動時は、考えなければいけない部分多し。

Sub Main()
　　Dim ExcelObj　As Excel.Application

　　Set ExcelObj = CreateObject("Excel.Application")
　　ExcelObj.Visible = True
　　Call DebugHandle
　　ExcelObj.Quit
　　Set ExcelObj = Nothing
End Sub

Public Function DebugHandle()
　　Dim strSQL　　　As String
　　Dim objWk　　　 As Object
　　Dim objXlsProc　As Object
　　strSQL = "SELECT Handle FROM Win32_Process WHERE Name = 'EXCEL.EXE'"
　　Set objWk = GetObject("winmgmts:").ExecQuery(strSQL)
　　For Each objXlsProc In objWk
　　　　Debug.Print objXlsProc.Handle
　　Next
End Function

お礼

有難う御座います。
いろいろと試しながらやってみます。

補足

有難う御座います。

プログラムが起動したExcelのみのプロセスIDを取得するには、どのようにしたら良いのでしょうか。
ご存知でしたらご教授下さるとありがたいのですが。