Форум: "Базы";
Текущий архив: 2002.11.28;
Скачать: [xml.tar.bz2];
ВнизКак выгрузить данные в MS Word Найти похожие ветки
← →
GAlexis (2002-11-11 16:49) [0]Подскажите пожалуйста, как выгрузисть из базы данных данные в MS Word, используя Delphi? С чего начать? Спасибо
← →
KDS (2002-11-11 18:50) [1]Начать с того что заглянуть в кладовку этого сайта.
Там выложены готовые процедуры для взаимодействия с офисными программами.
Вот и свою процедуру для экспорта могу сунуть. Но Ворд не рекомендую. Для этих целей Эксель больше годится.
Нужен Uses ShellApi;
procedure TfmMain.ExportToOffice(eTable:TDataSet; eFile, App:AnsiString);
var F:TextFile;
s,Cell:AnsiString;
i:Integer;
begin
S:=eFile;
AssignFile(F, S);
Rewrite(F);
Cell:="";
for i:=0 to eTable.FieldCount-1 do
Cell:=Cell + eTable.Fields[i].DisplayName + Chr(9);
WriteLn(F,Cell);
WriteLn(F,"");
with eTable do try
DisableControls;
First;
while not eof do begin
Cell:="";
for i:=0 to eTable.FieldCount-1 do
Cell:=Cell + Fields[i].AsString+Chr(9);
WriteLn(F, Cell);
Next;
end;
finally
EnableControls;
end;
CloseFile(F);
ShellExecute(handle,"open",PChar(App),PChar(s),nil,SW_SHOWMAXIMIZED);
end;
Использовать так:
ExportToOffice(Table1, "C:\ExportMyData.txt", Excel.exe);
P.S. Расширение файла пусть будет текстовое, а в качестве
параметра "App:AnsiString" можно использовать любую прогу,
которая способна прочитать при запуске с параметрами текстовый файл (Ворд, Блокнот...)
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.11.28;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c