Как автоматизировать Excel из C++ без использования MFC или #import

Аннотация

Написание кода службы автоматизации на языке C++имеет несколько преимуществ. Во-первых, вы можете делать именно то, что вам нужно. Далее код будет меньше, быстрее и проще в отладке. И, наконец, вы не будете зависеть от библиотек. Даже если вы хотите использовать классы-оболочки MFC или встроенную поддержку COM Visual C++ (#import), вам все равно может потребоваться и углубться в порядок IDispatch и автоматизации COM, чтобы обойти распространенные ошибки и ограничения с этими платформами.

Дополнительная информация

Выполните следующие действия, чтобы создать простое консольное приложение Visual C++ 6.0, которое автоматизирует Microsoft Office Excel с помощью только C++:

1. Запустите Visual C++ 6.0 и создайте консольное приложение Win32 с именем XlCpp. Выберите базу приложения "Hello, World!" и нажмите кнопку "Готово".
2. Откройте созданный файл XlCpp.cpp и добавьте следующий код перед функцией main().

   #include <ole2.h> // OLE2 Definitions
   
   // AutoWrap() - Automation helper function...
   HRESULT AutoWrap(int autoType, VARIANT *pvResult, IDispatch *pDisp, LPOLESTR ptName, int cArgs...) {
       // Begin variable-argument list...
       va_list marker;
       va_start(marker, cArgs);
   
       if(!pDisp) {
           MessageBox(NULL, "NULL IDispatch passed to AutoWrap()", "Error", 0x10010);
           _exit(0);
       }
   
       // Variables used...
       DISPPARAMS dp = { NULL, NULL, 0, 0 };
       DISPID dispidNamed = DISPID_PROPERTYPUT;
       DISPID dispID;
       HRESULT hr;
       char buf[200];
       char szName[200];
   
   
       // Convert down to ANSI
       WideCharToMultiByte(CP_ACP, 0, ptName, -1, szName, 256, NULL, NULL);
   
       // Get DISPID for name passed...
       hr = pDisp->GetIDsOfNames(IID_NULL, &ptName, 1, LOCALE_USER_DEFAULT, &dispID);
       if(FAILED(hr)) {
           sprintf(buf, "IDispatch::GetIDsOfNames(\"%s\") failed w/err 0x%08lx", szName, hr);
           MessageBox(NULL, buf, "AutoWrap()", 0x10010);
           _exit(0);
           return hr;
       }
   
       // Allocate memory for arguments...
       VARIANT *pArgs = new VARIANT[cArgs+1];
       // Extract arguments...
       for(int i=0; i<cArgs; i++) {
           pArgs[i] = va_arg(marker, VARIANT);
       }
   
       // Build DISPPARAMS
       dp.cArgs = cArgs;
       dp.rgvarg = pArgs;
   
       // Handle special-case for property-puts!
       if(autoType & DISPATCH_PROPERTYPUT) {
           dp.cNamedArgs = 1;
           dp.rgdispidNamedArgs = &dispidNamed;
       }
   
       // Make the call!
       hr = pDisp->Invoke(dispID, IID_NULL, LOCALE_SYSTEM_DEFAULT, autoType, &dp, pvResult, NULL, NULL);
       if(FAILED(hr)) {
           sprintf(buf, "IDispatch::Invoke(\"%s\"=%08lx) failed w/err 0x%08lx", szName, dispID, hr);
           MessageBox(NULL, buf, "AutoWrap()", 0x10010);
           _exit(0);
           return hr;
       }
       // End variable-argument section...
       va_end(marker);
   
       delete [] pArgs;
   
       return hr;
   }
   

3. В функции main() замените строку printf() следующим кодом.

   // Initialize COM for this thread...
      CoInitialize(NULL);
   
      // Get CLSID for our server...
      CLSID clsid;
      HRESULT hr = CLSIDFromProgID(L"Excel.Application", &clsid);
   
      if(FAILED(hr)) {
   
         ::MessageBox(NULL, "CLSIDFromProgID() failed", "Error", 0x10010);
         return -1;
      }
   
      // Start server and get IDispatch...
      IDispatch *pXlApp;
      hr = CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER, IID_IDispatch, (void **)&pXlApp);
      if(FAILED(hr)) {
         ::MessageBox(NULL, "Excel not registered properly", "Error", 0x10010);
         return -2;
      }
   
      // Make it visible (i.e. app.visible = 1)
      {
   
         VARIANT x;
         x.vt = VT_I4;
         x.lVal = 1;
         AutoWrap(DISPATCH_PROPERTYPUT, NULL, pXlApp, L"Visible", 1, x);
      }
   
      // Get Workbooks collection
      IDispatch *pXlBooks;
      {
         VARIANT result;
         VariantInit(&result);
         AutoWrap(DISPATCH_PROPERTYGET, &result, pXlApp, L"Workbooks", 0);
         pXlBooks = result.pdispVal;
      }
   
      // Call Workbooks.Add() to get a new workbook...
      IDispatch *pXlBook;
      {
         VARIANT result;
         VariantInit(&result);
         AutoWrap(DISPATCH_PROPERTYGET, &result, pXlBooks, L"Add", 0);
         pXlBook = result.pdispVal;
      }
   
      // Create a 15x15 safearray of variants...
      VARIANT arr;
      arr.vt = VT_ARRAY | VT_VARIANT;
      {
         SAFEARRAYBOUND sab[2];
         sab[0].lLbound = 1; sab[0].cElements = 15;
         sab[1].lLbound = 1; sab[1].cElements = 15;
         arr.parray = SafeArrayCreate(VT_VARIANT, 2, sab);
      }
   
      // Fill safearray with some values...
      for(int i=1; i<=15; i++) {
         for(int j=1; j<=15; j++) {
            // Create entry value for (i,j)
            VARIANT tmp;
            tmp.vt = VT_I4;
            tmp.lVal = i*j;
            // Add to safearray...
            long indices[] = {i,j};
            SafeArrayPutElement(arr.parray, indices, (void *)&tmp);
         }
      }
   
      // Get ActiveSheet object
      IDispatch *pXlSheet;
      {
         VARIANT result;
         VariantInit(&result);
         AutoWrap(DISPATCH_PROPERTYGET, &result, pXlApp, L"ActiveSheet", 0);
         pXlSheet = result.pdispVal;
      }
   
      // Get Range object for the Range A1:O15...
      IDispatch *pXlRange;
      {
         VARIANT parm;
         parm.vt = VT_BSTR;
         parm.bstrVal = ::SysAllocString(L"A1:O15");
   
         VARIANT result;
         VariantInit(&result);
         AutoWrap(DISPATCH_PROPERTYGET, &result, pXlSheet, L"Range", 1, parm);
         VariantClear(&parm);
   
         pXlRange = result.pdispVal;
      }
   
      // Set range with our safearray...
      AutoWrap(DISPATCH_PROPERTYPUT, NULL, pXlRange, L"Value", 1, arr);
   
      // Wait for user...
      ::MessageBox(NULL, "All done.", "Notice", 0x10000);
   
      // Set .Saved property of workbook to TRUE so we aren't prompted
      // to save when we tell Excel to quit...
      {
         VARIANT x;
         x.vt = VT_I4;
         x.lVal = 1;
         AutoWrap(DISPATCH_PROPERTYPUT, NULL, pXlBook, L"Saved", 1, x);
      }
   
      // Tell Excel to quit (i.e. App.Quit)
      AutoWrap(DISPATCH_METHOD, NULL, pXlApp, L"Quit", 0);
   
      // Release references...
      pXlRange->Release();
      pXlSheet->Release();
      pXlBook->Release();
      pXlBooks->Release();
      pXlApp->Release();
      VariantClear(&arr);
   
      // Uninitialize COM for this thread...
      CoUninitialize();
   

4. Компиляция и запуск.

Функция AutoWrap() упрощает большинство низкоуровневых сведений, связанных с использованием IDispatch напрямую. Вы можете использовать его в собственных реализациях. Один из предостережения — если передать несколько параметров, они должны передаваться в обратном порядке. Например:

    VARIANT parm[3];
    parm[0].vt = VT_I4; parm[0].lVal = 1;
    parm[1].vt = VT_I4; parm[1].lVal = 2;
    parm[2].vt = VT_I4; parm[2].lVal = 3;
    AutoWrap(DISPATCH_METHOD, NULL, pDisp, L"call", 3, parm[2], parm[1], parm[0]);

Ссылки

Чтобы получить дополнительные сведения об автоматизации Office с помощью Visual C++, щелкните следующие номера статей, чтобы просмотреть статьи в базе знаний Майкрософт:

196776 службы автоматизации Office с помощью Visual C++

(c) Microsoft Corporation 1999, все права зарезервированы. Участие в работе: Joe Crump, корпорация Майкрософт.