ObjectFromLresultの使い方をお教えください (ID:102354)

名前

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

本文

K.J.K.様ごかいとうありがとうございます。
accessibleobjectfromwindowについては、
http://msdn.microsoft.com/en-us/library/dd317978(VS.85).aspx
を読んで以下のようにすればうまくオブジェクトがとれました。

Option Explicit
Public Const OBJID_NATIVEOM = &HFFFFFFF0
Private Declare Function AccessibleObjectFromWindow Lib "oleacc" _
        (ByVal hWnd As Long, ByVal dwId As Long, _
        riid As Any, ppvObject As Any) As Long
Public Declare Function FindWindowEx Lib "user32" _
        Alias "FindWindowExA" _
        (ByVal hwndParent As Long, ByVal hwndChildAfter As Long, _
        ByVal lpszClass As String, ByVal lpszWindow As String) As Long
Public Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type

Sub test2()

Dim wkw As Excel.Window
Dim IID_Idispatch As GUID
Dim hwndApp As Long
Dim hwndClient As Long
Dim hwndBook As Long
Dim lngResult As Long
Dim lngRtnCode As Long
Dim strMsg As String

With IID_Idispatch
        .Data1 = &H20400
        .Data4(0) = &HC0
        .Data4(7) = &H46
    End With
    hwndApp = FindWindowEx(0, hwndApp, "XLMAIN", vbNullString)
    hwndClient = FindWindowEx(hwndApp, 0, "XLDESK", vbNullString)
    hwndBook = FindWindowEx(hwndClient, 0, "EXCEL7", vbNullString)
    AccessibleObjectFromWindow hwndBook, OBJID_NATIVEOM, _
                                           IID_Idispatch, wkw

If Not wkw Is Nothing Then
        strMsg = "確認できたよ " & wkw.Caption & vbTab 'OK
    Else
        strMsg = strMsg & "駄目でした"
    End If
    MsgBox strMsg

End Sub

ただリンク先を読む限りIID_Iaccessibleを引き渡してもうまくいくと思いましたがうまくいきませんでした。私の誤訳でしょうか？

←解決時は質問者本人がここをチェックしてください。

戻る