ウィンドウハンドルからOLEオブジェクトの取得をするには？ (ID:80320)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 たとえば、以下のようなプログラムで@@@@@の位置で取得したい Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Sub Command1_Click() Dim hWnd As Long ' 起動済みのExcelウィンドウハンドルを取得 hWnd = FindWindow("XLMAIN", vbNullString) ' ウィンドウハンドルが取得できた場合は If hWnd <> 0& Then '@@@@@ここでExcelオブジェクトを取得したい@@@@@ End If End Sub