Импорт диапазона из Excel в вариантный массив

HRESULT hresult;
long iUBound;
hresult=SafeArrayGetUBound(arr.parray, 1, &iUBound); // статус hresult = S_OK

...
IDispatch *pXlRange;
    {
                VARIANT parm;
        parm.vt = VT_BSTR
        parm.bstrVal = ::SysAllocString(L"A1:D10"); // Данные из этого диапазона заносятся в arr;
 
        VARIANT result;
        VariantInit(&result);
        AutoWrap_1(DISPATCH_PROPERTYGET, &result, pXlSheet, (LPOLESTR)L"Range", 1, parm);
        VariantClear(&parm);
        pXlRange = result.pdispVal;
    }

        VARIANT addr;
        VARIANT range;
        VARIANT value;
 
        VariantInit(&addr);
        VariantInit(&range);
        VariantInit(&value);
 
        while (true) {
 
        addr.vt = VT_BSTR;
        addr.bstrVal = SysAllocString(L"B3:D6");
        BREAK_ON_FAIL(AutoWrap(DISPATCH_PROPERTYGET, &range, xls.ws.pdispVal, L"Range", 1, addr))
        BREAK_ON_FAIL(AutoWrap(DISPATCH_PROPERTYGET, &value, range.pdispVal, L"Value", 0))
 
        std::cout << V_VT(&value) << std::endl;
 
        SAFEARRAY *sa = V_ARRAY(&value);
 
        long i_min, i_max;
        SafeArrayGetLBound(sa, 1, &i_min);
        SafeArrayGetUBound(sa, 1, &i_max);
 
        std::cout << "i_min = " << i_min << std::endl;
        std::cout << "i_max = " << i_max << std::endl;
 
        long j_min, j_max;
        SafeArrayGetLBound(sa, 2, &j_min);
        SafeArrayGetUBound(sa, 2, &j_max);
 
        std::cout << "j_min = " << j_min << std::endl;
        std::cout << "j_max = " << j_max << std::endl;
 
        break;}
 
        VariantClear(&addr);
        VariantClear(&range);
        VariantClear(&value);

VT_I4   4-byte signed integer value.
VT_I8   8-byte signed integer.
и
VT_R8   64-bit IEEE floating point value.

if (V_VT(&arr_element) == VT_R8)
{
}

for (int i = 1; i <= 15; i++) {
        for (int j = 1; j <= 15; j++) {
 
            VARIANT tmp;
            tmp.vt = VT_I4; 
            tmp.lVal = i * j;
 
            long indices[] = { i,j };
            SafeArrayPutElement(arr_write.parray, indices, (void *)&tmp);
        }
    }

if (V_VT(&arr_element) == VT_R4)
{
}

...
// Create a 15x15 safearray of variants...
    VARIANT arr_write;
    arr_write.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_write.parray = SafeArrayCreate(VT_VARIANT, 2, sab);
    }
 
VARIANT tmp; 
tmp.vt = VT_BSTR;
 
string string_value = "001";
 
// Fill safearray with some values...  /// 
    for (int i = 1; i <= 15; i++) {
        for (int j = 1; 15; j++) {
 
tmp.bstrVal = ::SysAllocString(_com_util::ConvertStringToBSTR(string_value.c_str())); //Преобразование string в bstr
 
long indices[] = { i,j };
 
SafeArrayPutElement(arr_write.parray, indices, (void *)&tmp);
        }
    }

arr_write.vt = VT_ARRAY | VT_BSTR;

// Create a 15x15 safearray of variants...
    VARIANT arr_write;
    arr_write.vt = VT_ARRAY | VT_BSTR;   // Тут объявляется, что VT_Array должен быть VT_BSTR
    {
        SAFEARRAYBOUND sab[2];
        sab[0].lLbound = 1; sab[0].cElements = vector_stroka_for_write.size();  
        sab[1].lLbound = 1; sab[1].cElements = vector_stolbech_for_write.size(); 
        arr_write.parray = SafeArrayCreate(VT_BSTR, 2, sab);   // А тут забыл, так же указать, что ArrayCreate будет VT_BSTR
    }
 
BSTR tmp_bstr;  // объявляем переменную из которой будет заносится данные в arr_write
 
string string_value = "001";
 
for (int i = 1; i <= 15; i++) {
        for (int j = 1; j <= 15; j++) {
 
 
tmp_bstr = _com_util::ConvertStringToBSTR(string_value.c_str());
 
///////// 
//VARIANT tmp; 
//tmp.bstrVal; // через tmp.bstrval - не работает, ошибок нет, но в екcель ничего не вносится.
/////////
 
    long indices[] = { i,j };
 
    SafeArrayPutElement(arr_write.parray, indices, tmp_bstr);
}
 }
 
AutoWrap_write(DISPATCH_PROPERTYPUT, NULL, pXlRange, (LPOLESTR)L"Value", 1, arr_write);

Autowrap()
 
int main()
{
CoInitialize(NULL);
CLSID clsid;
 
HRESULT hr = CLSIDFromProgID(L"Excel.Application", &clsid); 
 
IUnknown* pUnk;
hr = GetActiveObject(clsid, NULL, &pUnk);
 
IDispatch *pXlApp;
hr = pUnk->QueryInterface(IID_IDispatch, (void**)&pXlApp);
 
IDispatch *pXlSheet;
    {
        VARIANT result;
        VariantInit(&result);
        AutoWrap_get_sheet_name(DISPATCH_PROPERTYGET, &result, pXlApp, (LPOLESTR)L"ActiveSheet", 0);
        pXlSheet = result.pdispVal;
    }
 
VARIANT rngResult;
AutoWrap_get_sheet_name(DISPATCH_PROPERTYGET, &rngResult, pXlSheet, (LPOLESTR)L"Name", 0);
}

...
 
IDispatch *pXlBooks;
    {
        VARIANT result;
        VariantInit(&result);
        AutoWrap_get_sheet_name(DISPATCH_PROPERTYGET, &result, pXlApp, (LPOLESTR)L"Workbooks", 0);
        pXlBooks = result.pdispVal;
    }
 
 
VARIANT rngResult;
AutoWrap_get_sheet_name(DISPATCH_PROPERTYGET, &rngResult, pXlBooks, (LPOLESTR)L"Name", 0);

IDispatch *pXlsheet;
    {
        VARIANT result;
        VariantInit(&result);
        AutoWrap_Choose_Active(DISPATCH_PROPERTYGET, &result, pXlApp, (LPOLESTR)L"ActiveSheets", 0);
        pXlsheets = result.pdispVal;
    }

{
        VARIANT result;
        VariantInit(&result);
        AutoWrap_Choose_Active(DISPATCH_PROPERTYGET, &result, pXlApp, (LPOLESTR)L"Worksheets", 1, (LPOLESTR)L"Лист2" );
        pXlsheets = result.pdispVal;
}

VARIANT rngResult;
AutoWrap(DISPATCH_PROPERTYGET, &rngResult, pXlRange, (LPOLESTR)L"Value", 0);

IDispatch *pXlsheet;
    {
        VARIANT result;
        VariantInit(&result);
        AutoWrap_Choose_Active(DISPATCH_PROPERTYGET, &result, pXlApp, (LPOLESTR)L"WorkBooks", 1, (LPOLESTR)L"Files1" );
        pXlsheets = result.pdispVal;
    }

IDispatch:Invoke<"WorkBooks"=0000023c> faild w/err 0x80020009