powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Экспорт в Exel
5 сообщений из 5, страница 1 из 1
Экспорт в Exel
    #32108074
shore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Как организовать экспорт данных из таблиц IB5 или DB4 в Exel, только не по ячейкам я всю таблицу целиком программным путем.
Заранее благодарен.
...
Рейтинг: 0 / 0
Экспорт в Exel
    #32108220
Фотография Teo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Насколько большие таблицы?
У екселя есть ограничение на кол-во строк ;)....
Рассказываю в двух словах....
Вычисляется размерность таблицы, создается ВАРИАНТНЫЙ массив вычисленной размерности, в цикле заполняется.... Затем коннектимся к ёкселю и разом "выплевываем" подготовленный массив в нужное место....
Как коннектиться к этому монстру, можно посмотреть в дельфийских демо-приложениях... Да и в инете такой инфы полно....
...
Рейтинг: 0 / 0
Экспорт в Exel
    #32109090
shore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А все-таки как сконнектиться, в двух словах
...
Рейтинг: 0 / 0
Экспорт в Exel
    #32109091
shore
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А все-таки, как сконнектиться в двух словах.
...
Рейтинг: 0 / 0
Экспорт в Exel
    #32109451
Фотография Moonspell13
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
......
if p = ctNewWorkbook then
begin
ElApplication.ConnectKind := ckRunningOrNew;
ElApplication.Connect;
ElWorkbook.ConnectTo(FElApplication.Workbooks.Add(TOleEnum(xlWBATWorksheet), LCID));
FExcelWorksheet.ConnectTo(FExcelWorkbook.Worksheets as _Worksheet);
end
else if ..........
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Экспорт в Exel
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]