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

//Get value from the range
    VARIANT rngResult;
    AutoWrap(DISPATCH_PROPERTYGET, &rngResult, pXlRange, (LPOLESTR)L"Value", 0);
 
        BYTE ival_byte = rngResult.bVal;

if (ival_byte == "M")
    {
        cout << "ival_byte = M"<<endl;
    }

//Get value from the range
    VARIANT rngResult;
    AutoWrap(DISPATCH_PROPERTYGET, &rngResult, pXlRange, (LPOLESTR)L"Value", 0);
 
        BYTE ival_byte = rngResult.bVal;
 
        bool I_byte = ival_byte;
 
    cout << "bool:" << I_byte << endl;
 
    if (I_byte == 1)
    {
        cout << "CEll Excel = text"<<endl;
    }

            if (V_VT(&v) == VT_R8) //в ячейке значение типа VT_R8 типичного для вычислений в Excel
            {
                double x = V_R8(&v);
                //делаем что-то с x...
            }
            else if (V_VT(&v) == VT_BSTR) //в ячейке текст
            {
                BSTR x = V_BSTR(&v);
                //делаем что-то с x...
            }
            else //в ячейке что-то ужасное - пытаемся получить из этого текст
            {
                VARIANT tmp;
                VariantInit(&tmp);
 
                HRESULT hr = VariantChangeType(&tmp, &v, 0, VT_BSTR);
                if (hr != S_OK)
                {
                    //не вышло
                }
                else
                {
                    BSTR x = V_BSTR(&tmp);
                    //делаем что-то с x...
                }
 
                VariantClear(&tmp);
            }

// Get ActiveSheet object
    IDispatch *pXlSheet;
    {
    VARIANT result;
    VariantInit(&result);
    AutoWrap(DISPATCH_PROPERTYGET, &result, pXlApp, (LPOLESTR)L"ActiveSheet", 0);//ActiveSheet
    pXlSheet = result.pdispVal;
    }

// Get ActiveSheet object
    IDispatch *pXlSheet;
    {
    VARIANT result;
    VariantInit(&result);
    AutoWrap(DISPATCH_PROPERTYGET, &result, pXlApp, (LPOLESTR)L"ActiveSheet", 0, [B]Name_sheet[/B]);//ActiveSheet
    pXlSheet = result.pdispVal;
    }

HRESULT AutoWrap(int autoType, VARIANT *pvResult, IDispatch *pDisp, LPOLESTR ptName, int cArgs...)
{
...код...
}

#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;
}

string data = "Hello";

string data_unicode = u8"思";

std::wstring data_unicode = L"思";

        setlocale(LC_ALL, "Russian");
        const char8_t s[] = u8"111фывапролФЫВАПРОЛ";
        wchar_t buf[1024];
        const auto res = ::MultiByteToWideChar(CP_UTF8, 0, (LPCCH)s, std::size(s), buf, std::size(buf));
        std::wcout << buf << std::endl;
 
        BSTR s2 = ::SysAllocString(buf); //Ready to send to excel
        std::wcout << s2 << std::endl;