Re[6]: Передача массива данных в Excel
От: sergsakhno  
Дата: 03.11.05 05:02
Оценка:
Здравствуйте, Vi2, Вы писали:

Vi2>Здравствуйте, sergsakhno, Вы писали:


S>>Неужели никто ничего не может сказать по данной теме?

Vi2>
Vi2>VARIANT vv;
Vi2>VARTYPE vt = VT_VARIANT; // или VT_R8 - числа, VT_BSTR - строки
Vi2>SAFEARRAY* psa = SafeArrayCreateVector(vt, 0, nnn); // где nnn - число ячеек в Range. Для "A2:B2" - nnn=2
Vi2>// заполняем массив
Vi2>V_VT(&vv) = VT_ARRAY | vt;
Vi2>V_ARRAY(&vv) = psa;
Vi2>sheet->Range["A2:B2"]->FormulaR1C1=vv; //Это не должно уже вызвать исключение
Vi2>VariantClear(&vv);
Vi2>


Большое спасибо Vi2, очень помогло.
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.