| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Экспорт информации из базы данных в Excel [D7, Paradox]
Трушик © (2005-09-14 13:32:00)Ребята! Подскажите как экспортировать информацию из базы данных Paradox в Excel. Заранее спасибо...
msguns (2005-09-14 15:56:00) [1]>Трушик © (14.09.05 15:51) [26]
>Извините не в курсе. Какие правила нарушаю...
Рекомендации. Пункт 5.
http://www.delphimaster.ru/forums.shtml#rule
ANB (2005-09-14 15:52:00) [2]Самый легкий способ - генеришь HTML табличку, файлу присваиваешь расширение XLS и открываешь экселем. Потом можно сохранить в родном формате.
Трушик (2005-09-14 15:51:00) [3]Извините не в курсе. Какие правила нарушаю...
msguns (2005-09-14 15:47:00) [4]>Трушик © (14.09.05 15:46) [24]
Нарушаем правила ?
Трушик (2005-09-14 15:46:00) [5]erika< Видає полулку, в чому може бути справа Undeclared identifier: 'CreateOleObject'
alex_*** (2005-09-14 15:36:00) [6]в дополнение к [21]: действительно выкинуть напр. в текст, и текст подсосать в ексель и не париться
erika (2005-09-14 15:33:00) [7]
> А макрос как в Excel писать?
VB знакомо ?
вместо table, можно указать dataset, от этого ничего не изменится поверьте проверено
msguns (2005-09-14 15:31:00) [8]Если речь идет не о приложении, которое будет переносить данные из произвольной таблицы парадокс в ексель, а о разовой операции, то нафиг не нужна не только делфа, но и макросы. Тупо борландовским эксплорером запросом данные из таблицы парадокса переписываются в таблицу акцес, а оттуда в ексель (или вообще минуя акцес, правда сам не делал)
alex_*** (2005-09-14 15:27:00) [9]я предлагаю макрос. Как его напишешь, в такую сторону и будет качаться. Если это не разовая работа, то лучше прогу на Дельфях, имхо
msguns (2005-09-14 15:26:00) [10]>Андрей Жук © (14.09.05 15:18) [10]
Я привел код, работающий в конкретном приложении не для сдирания один к одному, а для показа, как примерно надо делать. Код не претендует на универсальность, о чем в комментариях можно найти информацию
alex_*** (2005-09-14 15:25:00) [11]речь шла об экспорте
alex_*** (2005-09-14 15:25:00) [12]по кр. мере так формулировался вопрос первоначально
Андрей Жук (2005-09-14 15:25:00) [13]
> речь шла об экспорте
а ты предлагаешь импорт
Трушик (2005-09-14 15:25:00) [14]А макрос как в Excel писать?
msguns (2005-09-14 15:24:00) [15]>alex_*** (14.09.05 15:22) [12]
Речь идет о выгрузке не таблиці, а содержимого датасета, отображаемого в гриде.
А это, как говорят в Одессе, две большие разницы.
Трушик (2005-09-14 15:23:00) [16]Большое спосибо, счас попробую.
alex_*** (2005-09-14 15:22:00) [17]не проще макрос в Excel написать, который будет сам закачивать из Paradox
erika (2005-09-14 15:20:00) [18]
> msguns © (14.09.05 15:16) [8]
ни чего себе - весело
Андрей Жук (2005-09-14 15:18:00) [19]А почему
XLExp_Col: array [1..26] of string=('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z');?
У меня
const ExcelCols: array[1..256] of string[2] = (
'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z',
'AA', 'AB', 'AC', 'AD', 'AE', 'AF', 'AG', 'AH', 'AI', 'AJ', 'AK', 'AL', 'AM', 'AN', 'AO', 'AP', 'AQ', 'AR', 'AS', 'AT', 'AU', 'AV', 'AW', 'AX', 'AY', 'AZ',
'BA', 'BB', 'BC', 'BD', 'BE', 'BF', 'BG', 'BH', 'BI', 'BJ', 'BK', 'BL', 'BM', 'BN', 'BO', 'BP', 'BQ', 'BR', 'BS', 'BT', 'BU', 'BV', 'BW', 'BX', 'BY', 'BZ',
'CA', 'CB', 'CC', 'CD', 'CE', 'CF', 'CG', 'CH', 'CI', 'CJ', 'CK', 'CL', 'CM', 'CN', 'CO', 'CP', 'CQ', 'CR', 'CS', 'CT', 'CU', 'CV', 'CW', 'CX', 'CY', 'CZ',
'DA', 'DB', 'DC', 'DD', 'DE', 'DF', 'DG', 'DH', 'DI', 'DJ', 'DK', 'DL', 'DM', 'DN', 'DO', 'DP', 'DQ', 'DR', 'DS', 'DT', 'DU', 'DV', 'DW', 'DX', 'DY', 'DZ',
'EA', 'EB', 'EC', 'ED', 'EE', 'EF', 'EG', 'EH', 'EI', 'EJ', 'EK', 'EL', 'EM', 'EN', 'EO', 'EP', 'EQ', 'ER', 'ES', 'ET', 'EU', 'EV', 'EW', 'EX', 'EY', 'EZ',
'FA', 'FB', 'FC', 'FD', 'FE', 'FF', 'FG', 'FH', 'FI', 'FJ', 'FK', 'FL', 'FM', 'FN', 'FO', 'FP', 'FQ', 'FR', 'FS', 'FT', 'FU', 'FV', 'FW', 'FX', 'FY', 'FZ',
'GA', 'GB', 'GC', 'GD', 'GE', 'GF', 'GG', 'GH', 'GI', 'GJ', 'GK', 'GL', 'GM', 'GN', 'GO', 'GP', 'GQ', 'GR', 'GS', 'GT', 'GU', 'GV', 'GW', 'GX', 'GY', 'GZ',
'HA', 'HB', 'HC', 'HD', 'HE', 'HF', 'HG', 'HH', 'HI', 'HJ', 'HK', 'HL', 'HM', 'HN', 'HO', 'HP', 'HQ', 'HR', 'HS', 'HT', 'HU', 'HV', 'HW', 'HX', 'HY', 'HZ',
'IA', 'IB', 'IC', 'ID', 'IE', 'IF', 'IG', 'IH', 'II', 'IJ', 'IK', 'IL', 'IM', 'IN', 'IO', 'IP', 'IQ', 'IR', 'IS', 'IT', 'IU', 'IV'
);
erika (2005-09-14 15:17:00) [20]тип переменой
ex: variant;
ex := CreateOleObject('Excel.Application');
ex.Workbooks.Open('c:\LadySp\podkl.xlt', readonly := true);
ex.Visible := false;
table.first;
while not table.eof do begin
ex.cells[row, column] := table.field1;
table.next;
end;
ex.Visible := true;
ex := Unassigned;
но это в delphi срабатыват при подключении библиотеки ComObj, может это тебя на какие - то мысли наведет
Paradox давно не пользовала
| |
Страницы: 