Стоит посмотреть
Вывод в Excel через XML (TFE) лайт версия
Скачать (rar-файл; Размер - 10765)Обсудить в форуме
Описание
Быстрое создание отчётов в Excel, не сильно отличающееся от использования стандартной printLn. Использована идея KaMPiLeR по быстрому выводу в Excel через XML и добавлены простота и удобство использования.
Текст примера
// Простой пример использования TFE_lite import "TFE_lite.mac"; var xx=TFE("Отчет_2"); xx.ColSizes("55,80,70,250,80,60,80"); // Зададим размеры колонок xx.AddRow("H^№№","H^Клиент","ML^","ML^","H^Сумма","H^Процент","H^Выплата"); //1-я строка заголовков xx.AddRow("MU^","H^Код","H^ID","H^Название","MU^","MU^","MU^"); //2-я строка заголовков var _ii = 0, _clname = ""; InitProgress(25,"","Барахчу по клиентам"); while (_ii < 25) _ii = _ii + 1; UseProgress(_ii); _clname = MkStr(codeFor("А") + Random(30),Random(30)) + "ОВ " + MkStr(codeFor("А") + Random(30),Random(30)) + " " + MkStr(codeFor("А") + Random(30),Random(30)) +"ВИЧ"; //Имена клиентов генератором случайных символов // в цикле добавляем строки по клиентам аналогично println() xx.AddRow(String("I#^",_ii), // номер по порядку String("SBC#^",Random(999999):x), // код клиента - случайный hex String("IC#^",Random(10000)), // ID клиента String("W#^",_clname), // ФИО String("N#^",Random(9999),Random(9999),".",random(99)), // Случайная сумма вклада String("N3#^",(Random(9999)/$1000):0:3), // случайный процент "N#^=RC[-2]*RC[-1]/100"); // формула Вклад * процент /100 end; xx.AddRow("","","","SCR^ИТОГО:","GNB#^=SUM({UPROW})","","NYB#^=SUM({UPROW})"); //Итоговая строка с формулами и раскраской ячеек для любителей RemProgress; xx.Go("$ТЕСТ\\Отчетец"); //Файл будет сохранен в папку "Мои документы\ТЕСТ\" на локальном компе пользователя