Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

Как экспортнуть данные из таблицы Paradox?   Найти похожие ветки 

 
Fuelfire   (2003-06-02 13:35) [0]

Всем привет! Вот такая задачка...Нужно данные из таблицы конвертировать в Ворд или Эксель программно (по выбору пункта меню, например, с использованием компонента SaveDialog).Посоветовали через OLE попробывать...Но что-то пока я не понял как. То, что я сделал сейчас - привязано к шаблону и не очень удобно. Есть какие-нибудь мысли?


 
Денис Курьин ©   (2003-06-02 14:30) [1]

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


 
needle ©   (2003-06-02 16:00) [2]

через OLE все очень просто, вот пример:
uses comobj;
var
O:OleVariant;
begin
....
O:=CreateOleObject("Excel.Application");
O.DisplayAlerts:=false;
O.Visible:=False;
O.Columns["A:A"].ColumnWidth := 3;
O.Columns["A:A"].NumberFormat:="0";
O.Columns["B:B"].ColumnWidth := 14;
O.Columns["B:B"].NumberFormat:="@";
N:=1;
while not Table.eof do
begin
O.Cells[N,1].Value:=Table.FieldByName("id").AsInteger;
O.Cells[N,2].Value:=Table.FieldByName("Name").AsInteger;
Table.Next;
Inc(N);
end;
O.Visible:=True;
end;


 
Fuelfire   (2003-06-03 06:23) [3]

Спасибо!


 
Fuelfire   (2003-06-03 07:40) [4]

Только в приведенном выше примере, если кто возьмет его за образец, создайте рабочую книгу перед работой с Columns:
O.Workbooks.Add;
Иначе, OLE будет ошибку выдавать...
Спасибо еще раз всем!



Страницы: 1 вся ветка

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.022 c
14-84652
bearoman
2003-06-10 12:11
2003.06.26
DELPHI 7 стоит ли переходить на него.


3-83922
Tanya
2003-06-03 16:49
2003.06.26
Запись данных в базу при отключении питания


3-84020
WinAmp
2003-05-30 21:07
2003.06.26
Индекс не дает редактировать данные в таблице?! :-(


7-84771
Anonimus
2003-04-17 10:45
2003.06.26
Перезагрузка......


14-84742
Soft
2003-06-05 14:22
2003.06.26
Начальный возраст для работы с компьютером