Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как экспортнуть данные в Excel из DBGrid? [D6, Win2k, WinXP]


AJ_UA ©   (2004-10-06 16:17:00) 

Собственно сабж. Можна как-то экспортнуть все как есть, не применяя никаких репортов для просмотра? Просто я ниразу не работал с репортами.


YurikGL   (2004-10-07 10:42:00) [1]


> Нет, записать я могу, а вот нажать Ctrl+V в Excel как?
> В смысле программно???Дык не нужно нажимать,выполни
> Selection.Paste

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


VAV   (2004-10-07 06:40:00) [2]

Посмотри в базе готовых решений
http://delphibase.endimus.com/
я как-то оттуда брал процедуру экспорта из датасеты в Excel, немного подшаманил для себя и все работает прекрасно.


ASoft   (2004-10-07 03:09:00) [3]

Где-то на форуме видел:
создаешь вариантный массив, (переменные, как пост[1]), присваеваешь значения по циклу, определяешь ранг вывода в Exсel, затем,
   Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];
   Range.Value := ArrayData; //вариантный массив
   ExcelApp.Visible := true;


GanibalLector   (2004-10-07 02:09:00) [4]

Нет, записать я могу, а вот нажать Ctrl+V в Excel как?
В смысле программно???Дык не нужно нажимать,выполни
Selection.Paste


Jay   (2004-10-06 16:58:00) [5]

Нет, записать я могу, а вот нажать Ctrl+V в Excel как?


Erik1   (2004-10-06 16:55:00) [6]

В clipbord записать данные? Да сколько угодно, в любом поске найдеш готовые примеры.


Jay   (2004-10-06 16:50:00) [7]

Програмно тоже можно?


Erik1   (2004-10-06 16:43:00) [8]

А можно еще проще, поставить TDBGridEh. У него есть возможность копировать в буфер. Нажимает CTRL+A потом CTRL+C и вставляем в Excel или куда еше.


Jay   (2004-10-06 16:27:00) [9]

var
 excel: Variant;

excel := CreateOleObject('Excel.Application');
excel.Workbooks.Open(ExtractFilePath('Report.xls');
excel.Visible:=True;
Excel.Sheets[1].Cells[3,5]:='text'

Можно также писать в Екселе макросы, а потом просмотрев его текст писать аналогично в Делфи Excel.Sheet[1].

Данные придется присваивать из каждой ячейки, можно организовать цикл :)


Наверх

Титульная страница Поиск, карта сайта Написать письмо