HOME>TOP>API

Excelのハンドルを取得するには?


キーワード>>API・FindWindow 

 

Point:Excelのハンドルを取得したい。

'APIの宣言
Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Long


Sub Test()
 Dim hWnd As Long
 Dim Re

  hWnd = FindWindow("XLMAIN", Application.Caption)v

   If hWnd = 0 Then 
  '見つからなければ0を返す。

     Re = MsgBox("ありません!!")
  Else
     Re = MsgBox("ハンドル→ " & hWnd)
   End If
End Sub


掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。