Question

有没有人知道如何获取与已加载Excel.Application的Excel进程相关联的IDispatch* dll指针？

这里的一个关键是进程是excel.exe，我需要的指针必须属于该进程。使用运行对象表不会飞，因为Excel仅使用它注册其第一个实例。

我希望有一些低级别的COM欺骗，但我不是那个领域的专家。

Answer 1

EDITED II 代码属于WTFPL许可证版本2.

已编辑：根据@EricBrown的评论建议，添加PID参数以允许在当前运行多个Excel进程时进行过滤。

我设法在不使用ROT的情况下将Excel IDispatch*工作到Excel“Application”对象。诀窍是使用MSAA。我的代码作为一个独立的控制台应用程序，但我认为，如果代码是在Excel进程中执行，通过DLL注入，它可以正常工作。您可能必须处于专用线程中。如果您希望我将实验推送到DLL注入级别，请告诉我。

在Window7 64b上测试OK，带有UNICODE版本（32位和64位）。 Excel版本2010 64位（版本“14”）

我通过“工作表”对象的“应用程序”属性获取IDispatch。结果：必须有一个打开的工作表。为了找到好的MSSA窗口，我需要顶级Excel框架窗口的类名。在Excel 2010中，它是“XLMAIN”。工作表的类名是“EXCEL7”，似乎是“标准”。

我无法从主Excel窗口直接获得工作IDispatch*，但没有尝试过。这可能涉及带有来自Excel的自动化DLL的#import，以便QueryInterface MSAA为主窗口提供的IDispatch（IDispatch不适用于Application对象）

#include <atlbase.h>

#pragma comment( lib, "Oleacc.lib" )

HRESULT GetExcelAppDispatch( CComPtr<IDispatch> & spIDispatchExcelApp, DWORD dwExcelPID ) {

   struct ew {
      struct ep {
         _TCHAR* pszClassName;
         DWORD dwPID;
         HWND hWnd;
      };
      static BOOL CALLBACK ewp( HWND hWnd, LPARAM lParam ) {
         TCHAR szClassName[ 64 ];
         if ( GetClassName( hWnd, szClassName, 64 ) ) {
            ep* pep = reinterpret_cast<ep*>( lParam );
            if ( _tcscmp( szClassName, pep->pszClassName ) == 0 ) {
               if ( pep->dwPID == 0 ) {
                  pep->hWnd = hWnd;
                  return FALSE;
               } else {
                  DWORD dwPID;
                  if ( GetWindowThreadProcessId( hWnd, &dwPID ) ) {
                     if ( dwPID == pep->dwPID ) {
                        pep->hWnd = hWnd;
                        return FALSE;
                     }
                  }
               }
            }
         }
         return TRUE;
      }
   };

   ew::ep ep;

   ep.pszClassName = _TEXT( "XLMAIN" );
   ep.dwPID = dwExcelPID;
   ep.hWnd = NULL;
   EnumWindows( ew::ewp, reinterpret_cast<LPARAM>( &ep ) );
   HWND hWndExcel = ep.hWnd;
   if ( ep.hWnd == NULL ) {
      printf( "Can't Find Main Excel Window with EnumWindows\n" );
      return -1;
   }

   ep.pszClassName = _TEXT( "EXCEL7" );
   ep.dwPID = 0;
   ep.hWnd = NULL;
   EnumChildWindows( hWndExcel, ew::ewp, reinterpret_cast<LPARAM>( &ep ) );
   HWND hWndWorkSheet = ep.hWnd;
   if ( hWndWorkSheet == NULL ) {
      printf( "Can't Find a WorkSheet with EnumChildWindows\n" );
      return -1;
   }

   CComPtr<IDispatch> spIDispatchWorkSheet;
   HRESULT hr = AccessibleObjectFromWindow( hWndWorkSheet, OBJID_NATIVEOM, IID_IDispatch,
                                            reinterpret_cast<void**>( &spIDispatchWorkSheet ) );
   if ( FAILED( hr ) || ( spIDispatchWorkSheet == 0 ) ) {
      printf( "AccessibleObjectFromWindow Failed\n" );
      return hr;
   }
   CComVariant vExcelApp;
   hr = spIDispatchWorkSheet.GetPropertyByName( CComBSTR( "Application" ), &vExcelApp );
   if ( SUCCEEDED( hr ) && ( vExcelApp.vt == VT_DISPATCH ) ) {
      spIDispatchExcelApp = vExcelApp.pdispVal;
      return S_OK;
   }
   return hr;

}
int _tmain(int argc, _TCHAR* argv[])
{

   DWORD dwExcelPID = 0;
   if ( argc > 1 ) dwExcelPID = _ttol( argv[ 1 ] );

   HRESULT hr = CoInitialize( NULL );
   bool bCoUnInitializeTodo = false;
   if ( SUCCEEDED( hr ) ) {
      bCoUnInitializeTodo = true;
      CComPtr<IDispatch> spDispatchExcelApp;
      hr = GetExcelAppDispatch( spDispatchExcelApp, dwExcelPID );
      if ( SUCCEEDED( hr ) && spDispatchExcelApp ) {
         CComVariant vExcelVer;
         hr = spDispatchExcelApp.GetPropertyByName( CComBSTR( "Version" ), &vExcelVer );
         if ( SUCCEEDED( hr ) && ( vExcelVer.vt == VT_BSTR ) ) {
            wprintf( L"Excel Version is %s\n", vExcelVer.bstrVal );
         }
      }
   }
   if ( bCoUnInitializeTodo ) CoUninitialize();
   return 0;
}

Answer 2

您应该可以通过查看ExcelDNA中的代码来了解如何执行此操作。此项目包含从扩展库挂钩回Excel的代码。代码可能更精细，您需要，但将实现您需要的引用。

Answer 3

我就是这样做的:(承认@manuell）。 dispatch_wrapper是一个类，这里是设置m_disp_application的构造函数：

dispatch_wrapper(void)
{
    DWORD target_process_id = ::GetProcessId(::GetCurrentProcess());

    if (getProcessName() == "excel.exe"){
        HWND hwnd = ::FindWindowEx(0, 0, "XLMAIN", NULL);
        while (hwnd){
            DWORD process_id;
            ::GetWindowThreadProcessId(hwnd, &process_id);
            if (process_id == target_process_id){
                HWND hwnd_desk = ::FindWindowEx(hwnd, 0, "XLDESK", NULL);
                HWND hwnd_7 = ::FindWindowEx(hwnd_desk, 0, "EXCEL7", NULL);
                IDispatch* p = nullptr;
                if (SUCCEEDED(::AccessibleObjectFromWindow(hwnd_7, OBJID_NATIVEOM, IID_IDispatch, (void**)&p))){
                    LPOLESTR name[1] = {L"Application"};
                    DISPID dispid;
                    if (SUCCEEDED(p->GetIDsOfNames(IID_NULL, name, 1U, LOCALE_SYSTEM_DEFAULT, &dispid))){
                        CComVariant v;
                        DISPPARAMS dp;
                        ::memset(&dp, NULL, sizeof(DISPPARAMS));
                        EXCEPINFO ei;
                        ::memset(&ei, NULL, sizeof(EXCEPINFO));
                        if (SUCCEEDED(p->Invoke(dispid, IID_NULL, LOCALE_SYSTEM_DEFAULT, DISPATCH_PROPERTYGET, &dp, &v, &ei, NULL))){
                            if (v.vt == VT_DISPATCH){
                                m_disp_application = v.pdispVal;
                                m_disp_application->AddRef();
                                return;
                            }
                        }
                    }
                }
            }
            hwnd = ::FindWindowEx(0, hwnd, "XLMAIN", NULL);
        }
    }
    m_disp_application = nullptr;
}

getProcessName()返回小写。

Answer 4

由于Office应用程序在ROT中注册其文档，您可以通过getting IDispatch for documents in the ROT附加到第一个（已经在ROT中）旁边的实例，然后您可以使用document.Application.hwnd（这是VBA），你需要translate to IDispatch::GetIDsOfNames and IDispatch::Invoke with DISPATCH_PROPERTYGET）来获取所有Excel实例的窗口句柄。

现在，您可以在所有Excel实例的IDispatch和Windows句柄之间建立映射，现在是时候找到自己的Excel实例了。您可以在窗口句柄上调用GetWindowThreadProcessId以获取进程ID，然后与GetCurrentProcessId返回的您自己的进程ID进行比较，以查看哪个Excel窗口属于您当前的进程，并在HWND中查找IDispatch映射以查找当前的Excel应用程序IDispatch接口。

在已加载到Excel中的dll中获取Excel.Application IDispatch *

4 个答案: