|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Выгрузка отчета в word и excel
Добрый день, подскажите пожалуйста. Есть некий алгоритм, от подставленных в него чисел он дает некий результат. Его надо записать в ворд и эксель на выбор, с сохранением фаила в определенную директорию с именем фаила ФИО клиента. Как это лучше сделать? Вот кусок кода, как нормально записать и красиво?
Эксель Код:
begin SaveDialog1.DefaultExt := '.rtf'; SaveDialog1.Filter := 'EXCEL files|*.xls'; if SaveDialog1.Execute then begin // RichEdit1.Lines.SaveToFile(SaveDialog1.FileName); //Excel.Visible := True; AssignFile(F,saveDialog1.FileName); Rewrite(F); Writeln(F, 'xyz'); Excel.Range['b2']:='Привет!'; CloseFile(F); ShowMessage('Файл '+SaveDialog1.FileName+' сохранён. '); end; end; как записать во вторую ячейку? как подвинуть все крассиво что бы можно было на листе а4 распечатать данные? Ворд Код:
begin SaveDialog1.DefaultExt := '.doc'; SaveDialog1.Filter := 'WORD files|*.doc'; if SaveDialog1.Execute then begin // RichEdit1.Lines.SaveToFile(SaveDialog1.FileName); AssignFile(F,saveDialog1.FileName); Rewrite(F); Writeln(F, 'xyz'); CloseFile(F); ShowMessage('Файл '+SaveDialog1.FileName+' сохранён. '); end; end; Посоветуйте лучший вариант Спасибо за помощь заранее. |