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

CComPtr <IDispatch> Selection; {
        CComVariant result;
        if (AutoWrap(DISPATCH_PROPERTYGET, &result, pExcelDisp, L"Selection", 0) != S_OK) { MessageBox(hwndExcel, L"Selection: ", L"XLL", MB_OK | MB_ICONERROR); return; }
        Selection = result.pdispVal;    }
 
    CComVariant array_in_out;
    if (AutoWrap(DISPATCH_PROPERTYGET, &array_in_out, Selection, L"Value", 0) != S_OK) { MessageBox(hwndExcel, L"ValueGET: ", L"XLL", MB_OK | MB_ICONERROR); return; }
 
//что-то делаю с array_in_out и далее выкладываю
 
if (AutoWrap(DISPATCH_PROPERTYPUT, NULL, Selection, L"Value", 1, array_in_out) != S_OK) { MessageBox(hwndExcel, L"ValuePUT: ", L"XLL", MB_OK | MB_ICONERROR); return; }

string Sheet_work_or_active = "ActiveSheet"; //  Или любое другое значение, если нужен лист по названию.
Sheet_name = "Name_List";                         //Название листа, если нужен лист по названию.
 
 
USES_CONVERSION; // Без этой штуки не работает A2OLE преобразование в LPOLESTR.
LPOLESTR Sheet_work_or_active_lpolestr = A2OLE(Sheet_work_or_active.c_str()); 
 
 
    int cArgs_parametr = 1;
        if (Sheet_work_or_active == "ActiveSheet")
        {
            cArgs_parametr = 0;
        }
        else
        {
            cArgs_parametr = 1;
        }
 
 
               //-------------------------------------------------------
        string textos_string_for_Sheet_Name;
        textos_string_for_Sheet_Name = Sheet_name;
        VARIANT Sheet_Name_bstr;
        Sheet_Name_bstr.vt = VT_BSTR;
        BSTR bstrTextos_for_Sheet_Name = _com_util::ConvertStringToBSTR(textos_string_for_Sheet_Name.c_str()); 
        Sheet_Name_bstr.bstrVal = ::SysAllocString(bstrTextos_for_Sheet_Name);
        VARIANT result;
        VariantInit(&result);
               //-------------------------------------------------------
 
 
 
        AutoWrap_write(DISPATCH_PROPERTYGET, &result, pXlApp, (LPOLESTR)Sheet_work_or_active_lpolestr, cArgs_parametr, Sheet_Name_bstr);
 
        pXlSheet = result.pdispVal;   //Этот AutoWrap возвращает имя Листа - активного или указанного по имени.

    CComVariant array_in_out;
    {CComVariant result, p1(1), p2(L"A1:A2");
    if (AutoWrap(DISPATCH_PROPERTYGET, &result, pExcelDisp, L"Sheets", 0) != S_OK) { MessageBox(hwndExcel, L"Sheets: ", bedvitXLL, MB_OK | MB_ICONERROR); return -1; }
    if (AutoWrap(DISPATCH_PROPERTYGET, &result, result.pdispVal, L"Item", 1, p1) != S_OK) { MessageBox(hwndExcel, L"Item: ", bedvitXLL, MB_OK | MB_ICONERROR); return -1; }
    if (AutoWrap(DISPATCH_PROPERTYGET, &result, result.pdispVal, L"Range", 1, p2) != S_OK) { MessageBox(hwndExcel, L"Range: ", bedvitXLL, MB_OK | MB_ICONERROR); return -1; }
    if (AutoWrap(DISPATCH_PROPERTYGET, &array_in_out, result.pdispVal, L"Value", 0) != S_OK) { MessageBox(hwndExcel, L"ValueGET: ", bedvitXLL, MB_OK | MB_ICONERROR); return -1; }
    }