Delphi + Excel

qwertEHOK · 18.12.12

Delphi XE
MS Excel 2003
MS SQL 2005

У клиентов WinXP+MS Excel 2003

Задача - вывести набор данных, получаемых запросом, в эксель. количество данных зависит от интервала дат, задаваемых пользователем.
данных за месяц - примерно 9к строк

пробовал 3 варианта
1. перебором
2. через массив
3. сторонний компонент

1 вариант. самый длительный, но тут можно хоть прогресбар для пользователя сделать. очень удобно, но долго, но удобно

2 вариант. побыстрее, но на слабой машине это выглядит как "тормоза, тормоза, тормоза, ой эксель".

3 вариант. TXLSFile. Отличный вариант. Пользователь нажимает кнопку, пара секунд и открывается экселька с данными. Но компонент платный.

Подскажите еще варианты есть?

sp_r00t · 18.12.12

3-й вариант полностью соответствует Delphi Way.
Его и надо юзать

qwertEHOK · 18.12.12

оно то не купленное (есть исходники)
я так попробовал, для теста

может выводить по 100 строк в массив и грузить? и пользователю видно и быстро..

в датасетах есть еще такое

ASheet := (XL.Sheets[1] as _Worksheet);
ASheet.Range['A2', EmptyParam].CopyFromRecordset(
ADODataSet1.Recordset,
EmptyParam,
EmptyParam
);
Нажмите, чтобы раскрыть...

sp_r00t · 18.12.12

qwertEHOK сказал(а): ↑

оно то не купленное (есть исходники)
я так попробовал, для теста
Нажмите, чтобы раскрыть...

Ну если жаба душит, то можно рерайт исходников сделать и усё

qwertEHOK сказал(а): ↑

может выводить по 100 строк в массив и грузить? и пользователю видно и быстро..
Нажмите, чтобы раскрыть...

Ну не уверен, что получится быстрее... А сама методика отдаёт колхозом

1777 · 18.12.12

1. Ексель умеет csv и xml, ms sql тоже умеет с применением спец команд и хранимок
2. Ексель умеет подключаться к внешним источникам данных - написать хранимку и ее вызвать из екселя, только дописать передачу параметров на vb

Но странно, что медленно, через ком объект екселя я вроде делал вывод 7 тыс записей - было быстро, вставка через range, а не cell

вот нашел, весь массив целиком пихается в range такого же размера, код на C#

private bool ExportInExcel(int iSheet, string header, int iBegin, DataSet ds)
{

try
{

if (ds == null || (ds != null && ds.Tables.Count == 0))

throw new Exception("Не указан набор данных");

if (ds.Tables[0].Rows.Count == 0)

throw new Exception("Отсутствуют данные для формирования отчета");

if (!String.IsNullOrEmpty(header))

(excelWorkbook.Sheets[(object)(iSheet + 1)] as Excel.Worksheet).Cells[1, 1] = header;

// инициализация массива данных
object[,] array = (object[,])Array.CreateInstance(typeof(object),
new int[2] { ds.Tables[0].Rows.Count, ds.Tables[0].Columns.Count }, // длины массива
new int[2] { 0, 0 } // начальные индексы строк и столбцов
);
for (int i = 0; i < ds.Tables[0].Rows.Count; i++)
{

for (int j = 0; j < ds.Tables[0].Columns.Count; j++)
{

array[i, j] = ds.Tables[0].Rows[j];

}

}

// инициализация Range
Excel.Worksheet sheet = (excelWorkbook.Sheets[(object)(iSheet + 1)] as Excel.Worksheet);
Excel.Range rng = sheet.get_Range(sheet.Cells[iBegin, 1], sheet.Cells[iBegin - 1 + ds.Tables[0].Rows.Count, ds.Tables[0].Columns.Count]);

// запись данных в Excel
rng.Formula = array;
rng.Borders.LineStyle = Excel.XlLineStyle.xlContinuous;

return true;

}
catch (Exception ex)
{

LastError = LastError + " " + ex.Message.ToString();
return false;
}

}

Нажмите, чтобы раскрыть...

Pasha · 18.12.12

sp_r00t сказал(а): ↑

Ну не уверен, что получится быстрее... А сама методика отдаёт колхозом
Нажмите, чтобы раскрыть...

Это будет быстрее, чем по одной строке, и заодно можно прогресс-бар приделать

sp_r00t · 20.12.12

Pasha сказал(а): ↑

Это будет быстрее, чем по одной строке
Нажмите, чтобы раскрыть...

А с чем это связано?
Я в секретах работы делфей просто не очень шарю. Получается, что для "оптовой" передачи данных не требуется промежуточных контейнеров в памяти?

VK · 20.01.13

Посмотрите в сторону XL Report

qwertEHOK · 20.01.13

VK сказал(а): ↑

Посмотрите в сторону XL Report
Нажмите, чтобы раскрыть...

Лицензия XL Report без исходных текстов для одного разработчика стоит всего 950 российских рублей
Нажмите, чтобы раскрыть...

Вот это такое же, но бесплатно

gerodoth · 20.01.13

[off] а вы не говорили клиентам что они лет на 10 от жизни отстали?[/off]

Devillio · 21.01.13

html файлы хорошо и быстро открываются Экселем. Можно файлик текстовый с тегами выгрузить - дешево, сердито и с прогресс-баром.

qwertEHOK · 21.01.13

а можно сразу на принтер печатать
можно сделать клиент-серверное приложение, где файлик будет на сервере формироваться

можно все

Пользователи разбили мои мечты о скорости. Они сказали что самый первый способ самый хороший
Я остальные кнопки на форме сделал невидимыми(одна кнопка - 1 вариант выдачи) и отдал приложение им ))))

Andyshark · 03.02.13

gerodoth сказал(а): ↑

[off] а вы не говорили клиентам что они лет на 10 от жизни отстали?[/off]
Нажмите, чтобы раскрыть...

Сорь за офф - но когда народ поймет что выбор системы и языка определяет то сколько чел заработает? пофиг на чем, даже на Делфи, VBA или консоли. Лишь бы клиента удовлетворяло. А распальцовка - это от возвраста. Потом пройдет.

---------- Сообщение добавлено 03.02.2013 23:08 ----------

qwertEHOK сказал(а): ↑

3. сторонний компонент

B]3 вариант.[/B] TXLSFile. Отличный вариант. Пользователь нажимает кнопку, пара секунд и открывается экселька с данными. Но компонент платный.

Подскажите еще варианты есть?
Нажмите, чтобы раскрыть...

Извиняюсь, а вы мало зарабатываете что штуку жалко? Или сами за бабки а остальным платить не надо? Купите несколько компонентов платных, для СНГ почти всегда цены ниже в разы. В чем проблема? Думаете они вам не помогут в дальнейшем?

P.S. Себе покупал (попробую на память слету) - FIBы, TXLSFile, FastReport, EhLib, TurboDelphi. Честно считаю что вложение достаточно быстро окупилось. Во всяком случае ко мне претензий по нарушению авторства мало кто может предьявить. А недавно взял еще и Артистир (это для шаблонов Джумлы). одна разработка и покупка окупается. Зато гемороя мало. А время дорого. может стоит подумать в таком ключе?

The Last Winged · 03.02.13

Покупка дешевых компонентов (до $200) практически всегда дешевле, чем самостоятельная разработка.
Самое главное, чтобы компонент был популярным, иначе он наверняка будет мусорного качества.

gerodoth · 04.02.13

[off]суть в том, что ХП скоро перестанет поддерживаться, а значит если они не совсем слоупоки ее менять, а значит надо или сразу разрабатывать ПО под новую систему, или предусмотреть это[/off]

qwertEHOK · 04.02.13

Был бы я профессиональным программистом да еще на фрилансе - купил бы конечно.
А пока я занимаюсь тем что от случая к случаю клепаю отчетики - буду использовать или стандартное или бесплатное

Использование ХП не помеха моему софту (как и разный офис)
Я проверял у себя под вин7 и на 2003,2007,2013 офисе - работает.
Софт у меня как топор, а ему все равно какое дерево рубить.

The Last Winged · 04.02.13

qwertEHOK сказал(а): ↑

Софт у меня как топор, а ему все равно какое дерево рубить.
Нажмите, чтобы раскрыть...

Купили как-то суровым сибирским лесорубам японскую бензопилу.
Собрались в кружок лесорубы, решили ее испытать.
Завели ее, подсунули ей деревце.
«Вжик» — сказала японская пила.
«У, ***...» — сказали лесорубы.
Подсунули ей деревце потолще. «Вж-ж-жик!» — сказала пила.
«Ух, ***!» — сказали лесорубы.
Подсунули ей толстенный кедр. «ВЖ-Ж-Ж-Ж-Ж-Ж-Ж-ЖИК!!!» — сказала пила.
«Ух ты, ***!!» — сказали лесорубы.
Подсунули ей железный лом. «КРЯК!» — сказала пила.
«Ага, ***!!!» — укоризненно сказали суровые сибирские лесорубы! И ушли рубить лес топорами…

Вход / Регистрация

Delphi + Excel

qwertEHOK Активный участник

sp_r00t Активный участник

qwertEHOK Активный участник

sp_r00t Активный участник

1777 Активный участник

Pasha Активный участник

sp_r00t Активный участник

VK Активный участник

qwertEHOK Активный участник

gerodoth Активный участник

Devillio Активный участник

qwertEHOK Активный участник

Andyshark Участник

The Last Winged Активный участник

gerodoth Активный участник

qwertEHOK Активный участник

The Last Winged Активный участник

Вход / Регистрация

Волгоградский форум

Пользователи

Delphi + Excel

qwertEHOK Активный участник

sp_r00t Активный участник

qwertEHOK Активный участник

sp_r00t Активный участник

1777 Активный участник

Pasha Активный участник

sp_r00t Активный участник

VK Активный участник

qwertEHOK Активный участник

gerodoth Активный участник

Devillio Активный участник

qwertEHOK Активный участник

Andyshark Участник

The Last Winged Активный участник

gerodoth Активный участник

qwertEHOK Активный участник

The Last Winged Активный участник