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

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

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

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

No.1 ベストアンサー 回答者： TAGOSAKU7 回答日時： 2003/09/16 01:53

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を取得するには、どのようにしたら良いのでしょうか。
ご存知でしたらご教授下さるとありがたいのですが。

補足日時：2003/09/16 09:18

この回答へのお礼

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

お礼日時：2003/09/17 08:31