Экспорт данных в Excel с заливкой

[spirit-ua]

Всем Привет!

Нужно сделать экспорт данных из StringGrid в Эксель, делаю так:

var
    ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData  : Variant;
    //TemplateFile : String;
    BeginCol, BeginRow, i, j : integer;
    //RowCount, ColCount : integer;
 begin
    ExcelApp := CreateOleObject('Excel.Application');
 
    ExcelApp.Application.EnableEvents := false;
    Workbook := ExcelApp.WorkBooks.Add;
 
    ArrayData := VarArrayCreate([1, StringGrid1.RowCount, 1, StringGrid1.ColCount], varVariant);
    for i := 1 to StringGrid1.RowCount do
       for j := 1 to StringGrid1.ColCount do
          ArrayData[i,j] := StringGrid1.Cells[j,i];
 
    BeginCol := 1; BeginRow := 1;
    Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
    Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow  + StringGrid1.RowCount - 1, BeginCol + StringGrid1.ColCount - 1];
 
    Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];
    Range.Value := ArrayData;
    ExcelApp.Visible := true;
 end;

все нормально, но у меня StringGrid "раскрашен", причем с разным начертанием и стилем текста который тоже "цветной"...
Свойства текста (стиль, начертание, цвет и т.д.), а также цвет заливки КАЖДОЙ ячейки я храню в отдельном массиве, отсюда вопрос:
- имея все эти данные (свойства текста и заливку) каждой ячейки в массиве есть возможность скопом применить к области ячеек в Экселе, аналогично вот этому "Range.Value := ArrayData;" ???

Дело в том что у меня в StringGrid около 100 строк и 400 колонок (критика по поводу такого кол. колонок уместна но в данном случае по другому никак) и каждая ячейка в StringGrid залита "своим" цветом со своим стилем текста и если красить и делать манипуляцию с текстом для каждой отдельной ячейки в Экселе это занимает много времени (на моей машине около 5 мин.), отсюда и данный вопрос

Помогите...

[beegl]

компонент EMS Advanced Excel Report v1.9.1.1 FullSource
есть пример

[spirit-ua]

Сообщение от beegl

компонент EMS Advanced Excel Report v1.9.1.1 FullSource
есть пример

пример посмотрел но что и как?

там "сетка" DBGrig, а у мена StringGrid, роль играет? плюс у меня заливка ячеек разная...

Подскажите на пальцах как пользоваться компонентом

[beegl]

вот тоже хороший пак, для создания отчетов, много примеров
(архив упаковал 7-Zip)

[spirit-ua]

Сообщение от beegl

вот тоже хороший пак, для создания отчетов, много примеров
(архив упаковал 7-Zip)

Вопрос: сетку заполнять и заливать нужно в этих компонентах или через ЭТИ компоненты можно сделать экспорт в эксель своей сетки с заливкой?

[beegl]

и то и другое можно

[spirit-ua]

Сообщение от beegl

и то и другое можно

извиняюсь за назойливость но хоть на пальцах какой компонент использовать чтоб нему прикрутить сетку и импортнуть ее в эксель с заливкой, а еще лучше пару строчек кода, плиз...

[spirit-ua]

Решил вопрос так:
1. Экспортирую массив с заливкой (значения, названия цветов) в Эксель
2. Программно создаю макрос который заливает ячейки согласно их содержимого и запускаю его (есть минус - нужно разрешать ActiveX в самом Экселе чтоб "левое" приложения могло ковыряться в самом Экселе, ну и макросы соответственно)
3. Очищаю ячейки ("по ходу" это лишнее)
4. Экспортирую поверх заливки нужные данные

Все про все 40 тис. ячеек - в среднем 6 сек. по времени... вуаля...

Критика уместна... Может есть способы почище?

[beegl]

spirit-ua, стандартными компонентами оформили проект?

[Аватар]

spirit-ua, +1. Не плохо. Смущает 6 сек. Можно пойти другим путем - сделать шаблон-заготовку в формате XML-таблица. Главно в нем заголовок и разметка колонок. Заливка не важна. Работать с ним как с XML-файлом без всякого присутствия экселя. Программно наплодить в нем тучу строк с данными и с указанием для ячеек нужной заливки и записать в файл. Эксель потом, если надо, стартовать используя, например, ShellExecute с передачей имени файла. Кода пожалуй побольше, но скорость на порядок лучше, и ни каких ActiveX