Импорт диапазона из Excel в вариантный массив - C/C++ - Ответ 7603555

    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");