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

Excel::RangePtr pRange;
         pRange = OldSheet->UsedRange;
         _variant_t vItem = pRange->GetValue();

VARIANT v;
        v.vt = VT_ARRAY | VT_VARIANT;
        SAFEARRAYBOUND sab[2];
        sab[0].lLbound = 1; sab[0].cElements = 10;//строк
        sab[1].lLbound = 1; sab[1].cElements = 13;//столбцов
        v.parray = SafeArrayCreate(VT_VARIANT, 2, sab);

VARIANT *pvData = (VARIANT *)(vItem.parray->pvData); //  прямой указатель на данные в массиве варианта

struct tagVARIANT
    {
    union 
        {
        struct __tagVARIANT
            {
            VARTYPE vt;
            WORD wReserved1;
            WORD wReserved2;
            WORD wReserved3;
            union 
                {               
                SAFEARRAY *parray;
}

VARIANT v;
        v.vt = VT_ARRAY | VT_VARIANT;
        SAFEARRAYBOUND sab[2];
        sab[0].lLbound = 1; sab[0].cElements = 3;//строк
        sab[1].lLbound = 1; sab[1].cElements = 3;//столбцов
        v.parray = SafeArrayCreate(VT_VARIANT, 2, sab);     
        Excel::RangePtr pRange;
         pRange = OldSheet->UsedRange;
         _variant_t vItem;
         VariantInit(&vItem);
        vItem = pRange->GetValue();
        
        long ncols = (vItem.parray)->rgsabound[0].cElements;//3 столбца
        long nrows = (vItem.parray)->rgsabound[1].cElements;//3 строки
 
        VARIANT *GetElem = new VARIANT [nrows*ncols];
        HRESULT hr;
        for(i=0; i<nrows; i++)
        {
            for(j=0; j<ncols; j++)
            {
                long indi[] = {i+1,j+1};
            
            hr =    SafeArrayGetElement(vItem.parray, indi, &GetElem[i,0]);
 
                    // VariantChangeType(GetElem,GetElem,0,VT_BSTR);
 
                SafeArrayPutElement(v.parray, indi, GetElem);}}

    Variant app = CreateOleObject("Excel.Application");
    Variant wbs = app.OlePropertyGet("Workbooks");
    Variant wb = wbs.OleFunction("Open", "D:\\test.xls");
    Variant wss = wb.OlePropertyGet("Worksheets");
    Variant ws = wss.OlePropertyGet("Item", 1);
    Variant cell1 = ws.OlePropertyGet("Cells", 1, 1);
    Variant cell2 = ws.OlePropertyGet("Cells", 2, 2);
 
    AnsiString s;
 
    Variant range = ws.OlePropertyGet("Range", cell1, cell2);
    s += IntToStr(range.Type()) + "\r\n"; //0x9 = VT_DISPATCH
 
    Variant array = range.OlePropertyGet("Value");
    s += IntToStr(array.Type()) + "\r\n"; //0x200C = VT_ARRAY | VT_VARIANT
 
    for (int i = array.ArrayLowBound(1); i <= array.ArrayHighBound(1); i++)
    {
        for (int j = array.ArrayLowBound(2); j <= array.ArrayHighBound(2); j++)
        {
            Variant value = array.GetElement(i, j);
            s += IntToStr(value.Type()) + "\t" + (AnsiString)value + "\r\n"; //тут я делаю то что мне надо - мне надо вывести тип и значение приведенное к строке
        }
    }
 
    Memo1->Text = s;
 
    app.OleProcedure("Quit");

 hr =    SafeArrayGetElement(vItem.parray, indi, &GetElem[i,0]);

#include "stdafx.h"
#include "windows.h"
#include <clocale>
#include "fstream"
 
#import "C:\\Program Files (x86)\\Common Files\\Microsoft Shared\\OFFICE14\\MSO.DLL" auto_rename no_namespace
#import "C:\\Program Files (x86)\\Common Files\\Microsoft Shared\\VBA\\VBA6\\VBE6EXT.OLB" auto_rename no_namespace
#import "C:\\Program Files (x86)\\Microsoft Office\\Office14\\EXCEL.EXE" auto_rename
 
long int i,j;//переменные циклов
 
 
int main(int argc, char* argv[])    
{
    std::setlocale(LC_ALL,"");
 
        HRESULT hRes = E_FAIL;  
 
            CoInitialize(NULL);
 
            Excel::_ApplicationPtr pApp;
    
        hRes = pApp.CreateInstance("Excel.Application");
    
    if ( FAILED(hRes) )     
    {
        MessageBox(NULL, L"Excel не найден!", L"Ошибка", MB_OK);  
 
        return 1;
    }
 
    Excel::_WorkbookPtr OldBook;//книга 
    OldBook = pApp->Workbooks->Open("C:\\1.xls");//открыть книгу
 
    //отключение событий
    pApp->PutDisplayAlerts(0,FALSE);
    pApp->PutEnableEvents(FALSE);
        
            Excel::_WorksheetPtr OldSheet;//лист исходный
 
                OldSheet = OldBook->Worksheets->GetItem(1);// выбрать первый лист
 
            OldSheet -> Activate();
 
        //10 строк роу 15 столбцов кол
        VARIANT v;
        v.vt = VT_ARRAY | VT_VARIANT;
        SAFEARRAYBOUND sab[2];
        sab[0].lLbound = 1; sab[0].cElements = 3;//строк
        sab[1].lLbound = 1; sab[1].cElements = 3;//столбцов
        //v.parray = SafeArrayCreate(VT_VARIANT, 2, sab);
        v.parray = SafeArrayCreate(VT_VARIANT, 2, sab);
                
        Excel::RangePtr pRange;
         pRange = OldSheet->UsedRange;
         _variant_t vItem;
         VariantInit(&vItem);
 
            vItem = pRange->GetValue();
            long ncols = (vItem.parray)->rgsabound[0].cElements;//3 столбца
            long nrows = (vItem.parray)->rgsabound[1].cElements;//3 строки
 
            VARIANT *GetElem = new VARIANT [nrows*ncols];
            HRESULT hr;
            for(i=0; i<nrows; i++)
            {
                for(j=0; j<ncols; j++)
                {
                    long indi[] = {i+1,j+1};
 
                    hr =    SafeArrayGetElement(vItem.parray, indi, &GetElem[i,0]);
 
                    // VariantChangeType(GetElem,GetElem,0,VT_BSTR);
 
                    SafeArrayPutElement(v.parray, indi, GetElem);
                }
            }       
            pApp->Quit();
        }

    SAFEARRAY *sa = V_ARRAY(&arg);
 
    long i_min, i_max;
    SafeArrayGetLBound(sa, 1, &i_min);
    SafeArrayGetUBound(sa, 1, &i_max);
 
    long j_min, j_max;
    SafeArrayGetLBound(sa, 2, &j_min);
    SafeArrayGetUBound(sa, 2, &j_max);
 
    for (unsigned i = i_min; i <= i_max; i++)
    {
        for (unsigned j = j_min; j <= j_max; j++)
        {
            long indexes[2] = {i, j};
 
            VARIANT v;
            VariantInit(&v);
 
            SafeArrayGetElement(sa, indexes, &v);
 
            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);
            }
 
            VariantClear(&v);
        }
    }

VARIANT massiv;
    arr.vt = VT_ARRAY | VT_VARIANT;
    {
        SAFEARRAYBOUND sab[2];
        sab[0].lLbound = 1; sab[0].cElements = 1;
        sab[1].lLbound = 1; sab[1].cElements = 1;
        massiv.parray = SafeArrayCreate(VT_VARIANT, 2, sab);
    }

sab[0].lLbound = 1; sab[0].cElements = 1;
sab[1].lLbound = 1; sab[1].cElements = 1;

...
VARIANT arr;
    arr.vt = VT_ARRAY | VT_VARIANT;
    {
        SAFEARRAYBOUND sab[2];
        //sab[0].lLbound = 1; sab[0].cElements = 1; 
        //sab[1].lLbound = 1; sab[1].cElements = 1;
        arr.parray = SafeArrayCreate(VT_VARIANT, 2, sab);
    }
 
    AutoWrap_1(DISPATCH_PROPERTYGET, &arr, pXlRange, (LPOLESTR)L"Value", 0); //  pXlRange - может содержать в себе диапазон любого размера
 
    long iUBound;
    SafeArrayGetUBound(arr.parray, 1, &iUBound);
 
    long lUBound;
    SafeArrayGetLBound(arr.parray, 1, &lUBound);

long iUBound;
SafeArrayGetUBound(arr.parray, 1, &iUBound);