VPF::Отчет в Excel - Форум программистов

ahito1

Дата 22.8.2009, 23:38 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 228
Регистрация: 20.8.2007

Репутация: нет
Всего: -1

Доброго времени суток!
Самый простой экспорт данных из table я могу делать, но вот возникла необходимость заполнить уже отформатированный Excel-файл данными из базы данных. Файл в аттаче, текст, который выделен синим цветом необходимо будет заполнять из таблицы. Как это сделать?

Присоединённый файл ( Кол-во скачиваний: 9 )

_____.zip 12,41 Kb

Данкинг

Дата 22.8.2009, 23:51 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130

А что значит "самый простой экспорт" в таком случае: куда проще-то? smile

Код


uses comobj;
...
procedure export;
var ex:variant;
i:integer;
begin
 ex:=createoleobject('excel.application'); 
 ex.visible:=false;
 ex.DisplayAlerts:=False;
 ex.Workbooks.open('отчет.xls');
 for i:=1 to 9 do ex.activeworkbook.activesheet.cells.item[1,i].NumberFormat:='@';//если нужно
 ex.activeworkbook.activesheet.cells.item[1,1]:='24.05.2005';
 ex.activeworkbook.activesheet.cells.item[1,2]:='ВВ';
 ...
 ex.activeworkbook.activesheet.cells.item[1,9]:='Встановлено';
 ex.ActiveWorkbook.SaveAs('отчет.xls');
 ex.application.quit; 
 ex:=unassigned;

end;

--------------------

There's nothing left but silent epitaphs.

Akella

Дата 23.8.2009, 00:09 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 2
Всего: 329

А заглянуть в этот раздел,
http://forum.vingrad.ru/forum/delphi-activ...-corba-ole.html ?????

где уже раз ..надцать твой вопрос решили, а опять же... гугл сломался что ль?

ahito1

Дата 23.8.2009, 00:09 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 228
Регистрация: 20.8.2007

Репутация: нет
Всего: -1

Данкинг, самый простой это экспорт в пустой файл без выравнивания и без возможности выбирать в экселе в комбобоксе, т.е. как вы заметили там в поле РРО можно только выбрать из списка.

Akella

Дата 23.8.2009, 00:10 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 2
Всего: 329

На тему экспорта в эксель написано примеров и статей больше, чем ты можешь себе представить. Даже есть специальный компоненты для экспорта.

ahito1

Дата 23.8.2009, 00:12 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 228
Регистрация: 20.8.2007

Репутация: нет
Всего: -1

Akella, не злись, не все мы профи как ты, данкинг и остальные smile

мы только учимся smile

Akella

Дата 23.8.2009, 00:12 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 2
Всего: 329

Цитата(ahito1 @ 22.8.2009, 23:38

)

Как это сделать?

Тебе полностью написать код?

Добавлено через 28 секунд
Я далеко не профи, поверь. smile

Добавлено через 1 минуту и 9 секунд

Цитата(ahito1 @ 23.8.2009, 00:12

)

мы только учимсяsmile

Да нет, Вы, батенька не учитесь, а желаете получить готовый код smile

Добавлено через 2 минуты и 52 секунды
Давай код, покажи. Напиши, что не получается, что не можешь, где и какие ошибки при компиляции. Нормально опиши. Я уверен, что тебе помогут. smile

ahito1

Дата 23.8.2009, 00:18 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 228
Регистрация: 20.8.2007

Репутация: нет
Всего: -1

Akella, конечно приятно сразу взять готовый код и не мучатся, но приятнее когда ты этот код сам написал smile

Направление вы с Данкингом мне показали буду ковыряться, вопросы будут только по существу smile

Данкинг

Дата 23.8.2009, 00:21 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130

ahito1, используй макросы ("макрос - записать") в самом Excel и на основе их пиши код в своей программе.

--------------------

There's nothing left but silent epitaphs.

ahito1

Дата 23.8.2009, 00:26 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 228
Регистрация: 20.8.2007

Репутация: нет
Всего: -1

Данкинг, выдает ошибку не удалось найти файл "отчет.xls", хотя файл кинул в папку с проджектом...

прописал полный путь теперь нет ошибки, НО никаких изменений в файле нет! Использовал код Данкинга (выше).

С макросами никогда не работал, они у меня ассоциируются с бейсиком(

Это сообщение отредактировал(а) ahito1 - 23.8.2009, 00:37

Данкинг

Дата 23.8.2009, 01:25 (ссылка)

(голосов:1)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130

Цитата(ahito1 @ 23.8.2009, 01:26

)

Данкинг, выдает ошибку не удалось найти файл "отчет.xls", хотя файл кинул в папку с проджектом...

Правильно: откуда Excel'ю знать, в какой папке лежит твой проект! smile

Ты же как бы открываешь Excel и грузишь в него файл.

Цитата(ahito1 @ 23.8.2009, 01:26

)

прописал полный путь теперь нет ошибки, НО никаких изменений в файле нет!

В ex.ActiveWorkbook.SaveAs('отчет.xls') тоже полный путь к файлу указываешь?

Цитата(ahito1 @ 23.8.2009, 01:26

)

С макросами никогда не работал, они у меня ассоциируются с бейсиком(

В общем-то, это бейсик и есть, точнее, VBA. smile

Но я же не прошу писать макросы, я просто говорю, что если ты не знаешь, как пишется та или иная инструкция для XLS (равно как и DOC), то можно "подсмотреть" её с помощью макроса, а затем адаптировать к Дельфи.

--------------------

There's nothing left but silent epitaphs.

Akella

Дата 23.8.2009, 07:27 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 2
Всего: 329

Цитата(ahito1 @ 23.8.2009, 00:18

)

Akella, конечно приятно сразу взять готовый код и не мучатся,

Так бери, кто ж тебе не даёт?

Думаешь мне жалко код выложить? Уже давно выложил и в разделе по экселю и в дркб тоже. smile

ahito1

Дата 23.8.2009, 14:27 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 228
Регистрация: 20.8.2007

Репутация: нет
Всего: -1

Данкинг, спасибо, вроде разлбрался smile

Akella, спасибо, почитаю smile

ahito1

Дата 24.8.2009, 21:38 (ссылка)

(голосов:2)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 228
Регистрация: 20.8.2007

Репутация: нет
Всего: -1

а как сделать выравнивание текста в ячейке "по правому краю"?

Akella

Дата 24.8.2009, 22:22 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 2
Всего: 329

а зачем жырным? мы не слепые

Добавлено через 1 минуту и 2 секунды
Ты читал закреплённые темы в этом разделе?
http://forum.vingrad.ru/forum/delphi-activ...-corba-ole.html

Добавлено через 2 минуты и 5 секунд
и вообще, ты хоть раз заглядывал в тот раздел? там ответ лежит на поверхности

Добавлено через 5 минут и 19 секунд
http://forum.vingrad.ru/index.php?showtopi...st&p=651633

Данкинг

Дата 24.8.2009, 22:30 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130

По центру -

Код


ex.activesheet.Cells[1,1].HorizontalAlignment := 3;

А по правому краю - не знаю, сам ищи. smile

--------------------

There's nothing left but silent epitaphs.

Akella

Дата 24.8.2009, 22:47 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 2
Всего: 329

Данкинг, есть же константы, и ты туда же О_о

Данкинг

Дата 24.8.2009, 23:17 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130

Цитата(Akella @ 24.8.2009, 23:47

)

Данкинг, есть же константы, и ты туда же О_о

Ну да, и правда есть. smile

Но я всегда так вот прописывал. smile

--------------------

There's nothing left but silent epitaphs.

ahito1

Дата 25.8.2009, 14:44 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 228
Регистрация: 20.8.2007

Репутация: нет
Всего: -1

Akella, Спасибо

Данкинг, Спасибо, тема закрыта.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »