| 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
|
