Общение с Excel через OLE - C/C++ - Ответ 7266850

// 2.cpp: определяет точку входа для консольного приложения.
//
 
#include "stdafx.h"
#include "windows.h"
 
 
HRESULT OLEMethodEx(int nType, VARIANT *pvResult, IDispatch *pDisp,LPOLESTR ptName, int cArgs...)
{
    if(!pDisp) return E_FAIL;
 
    va_list marker;
    va_start(marker, cArgs);
 
    DISPPARAMS dp = { NULL, NULL, 0, 0 };
    DISPID dispidNamed = DISPID_PROPERTYPUT;
    DISPID dispID;
    char szName[200];
 
 
    // Convert down to ANSI
    WideCharToMultiByte(CP_ACP, 0, ptName, -1, szName, 256, NULL, NULL);
 
    // Get DISPID for name passed...
    HRESULT hr = pDisp->GetIDsOfNames(IID_NULL, &ptName, 1, LOCALE_USER_DEFAULT, &dispID);
    if(FAILED(hr)) {
        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(nType & DISPATCH_PROPERTYPUT) {
        dp.cNamedArgs = 1;
        dp.rgdispidNamedArgs = &dispidNamed;
    }
 
    // Make the call!
    hr = pDisp->Invoke(dispID, IID_NULL, LOCALE_SYSTEM_DEFAULT, nType, &dp, pvResult, NULL, NULL);
    if(FAILED(hr)) {
        return hr;
    }
    // End variable-argument section...
    va_end(marker);
 
    delete [] pArgs;
    return hr;
}
 
int _tmain(int argc, _TCHAR* argv[])
{
    CLSID clsid;
    CoInitialize(NULL);
    HRESULT hr = CLSIDFromProgID(L"Excel.Application", &clsid);
    IDispatch *pInternetExplorer = NULL;
    if(SUCCEEDED(hr))
    {
        hr = CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER, IID_IDispatch, (void **)&pInternetExplorer);
        if(FAILED(hr)) pInternetExplorer=NULL;
    }
    VARIANT x;
    x.vt = VT_I4;
    x.lVal = 1;
    hr=OLEMethodEx(DISPATCH_PROPERTYPUT, NULL, pInternetExplorer, L"Visible", 1, x);
 
 
    if(FAILED(hr)) MessageBox(0, L"Failed2", L"!", MB_OK);
    if(pInternetExplorer) pInternetExplorer->Release();
    CoUninitialize();
 
 
    return 0;
}