Чтение/запись в Excel с COM OLE C++ - C/C++ - Ответ 13387882

#define BREAK_ON_FAIL(x) if (FAILED(hr = x)) break;
 
...
 
struct xls_t
{
    VARIANT app;
    VARIANT wbs;
    VARIANT wb;
    VARIANT wss;
    VARIANT ws;
};
 
HRESULT proc_beg(const std::string &path, xls_t * const xls, bool visible)
{
    HRESULT hr;
 
    VARIANT x;
    VARIANT _path;
 
    VariantInit(&xls->app);
    VariantInit(&xls->wbs);
    VariantInit(&xls->wb);
    VariantInit(&_path);
    VariantInit(&xls->wss);
    VariantInit(&xls->ws);
 
    while (true) {
 
    CoInitialize(NULL);
 
    CLSID clsid;
    BREAK_ON_FAIL(CLSIDFromProgID(L"Excel.Application", &clsid))
 
    xls->app.vt = VT_DISPATCH;
    xls->app.pdispVal = 0;
    BREAK_ON_FAIL(CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER, IID_IDispatch, (void **)&xls->app.pdispVal))
 
    x.vt = VT_I4;
    x.lVal = visible;
    BREAK_ON_FAIL(AutoWrap(DISPATCH_PROPERTYPUT, NULL, xls->app.pdispVal, L"Visible", 1, x))
 
    BREAK_ON_FAIL(AutoWrap(DISPATCH_PROPERTYGET, &xls->wbs, xls->app.pdispVal, L"Workbooks", 0))
 
    if (path.size())
    {
        _path.vt = VT_BSTR;
        _path.bstrVal = SysAllocString(str_to_wstr(path).c_str());
        BREAK_ON_FAIL(AutoWrap(DISPATCH_METHOD, &xls->wb, xls->wbs.pdispVal, L"Open", 1, _path))
        VariantClear(&_path);
    }
    else
    {
        BREAK_ON_FAIL(AutoWrap(DISPATCH_METHOD, &xls->wb, xls->wbs.pdispVal, L"Add", 0))
    }
 
    BREAK_ON_FAIL(AutoWrap(DISPATCH_PROPERTYGET, &xls->wss, xls->wb.pdispVal, L"Worksheets", 0))
 
    x.lVal = 1;
    BREAK_ON_FAIL(AutoWrap(DISPATCH_PROPERTYGET, &xls->ws, xls->wss.pdispVal, L"Item", 1, x))
 
    break;}
 
    return hr;
}
 
HRESULT proc_end(HRESULT hr, xls_t * const xls, bool save, bool close)
{
    if (!FAILED(hr))
    {
        while (true) {
 
        if (save)
        {
            BREAK_ON_FAIL(AutoWrap(DISPATCH_METHOD, NULL, xls->wb.pdispVal, L"Save", 0))
        }
 
        if (close)
        {
            BREAK_ON_FAIL(AutoWrap(DISPATCH_METHOD, NULL, xls->wb.pdispVal, L"Close", 0))
        }
 
        break;}
    }
 
    VariantClear(&xls->app);
    VariantClear(&xls->wbs);
    VariantClear(&xls->wb);
    VariantClear(&xls->wss);
    VariantClear(&xls->ws);
 
    return hr;
}
 
HRESULT set_ws_no(xls_t * const xls, int no)
{
    HRESULT hr;
 
    VARIANT x;
 
    while (true) {
 
    x.vt = VT_I4;
    x.lVal = no;
    BREAK_ON_FAIL(AutoWrap(DISPATCH_PROPERTYGET, &xls->ws, xls->wss.pdispVal, L"Item", 1, x))
 
    break;}
 
    return hr;
}