|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
формирование отчета из Delphi в Exel
Здравствуйте.
Нужна помощь. Необходимо при нажатии BitBtn (сформировать), из компонентов Edit1, Edit2, Edit3, данные строк отправлялись ранее созданный документ Exel. И к тому же в заданную ячейку например С18, G12 и т.д. Пример: Ф.И.О. лист1 в ячейку C10, H8, лист2 в ячейку N28 адрес лист1 в ячейку, B20, лист3 в ячейку F20 телефон лист2 в ячейку D2 Документ Exel в нем создана таблица, куда и нужно будет вставлять данные. |
#2
|
||||
|
||||
Код:
procedure TForm1.BitBtn1Click(Sender: TObject); var exApp: Variant; begin exApp:= CreateOleObject('Excel.Application'); exApp.WorkBooks.Open('Test.xls'); exApp.Worksheets.Item['Лист1'].Range['C10']:= Edit1.Text; exApp.Worksheets.Item['Лист1'].Range['H8'] := Edit1.Text; exApp.Worksheets.Item['Лист2'].Range['N28']:= Edit1.Text; exApp.Worksheets.Item['Лист1'].Range['B20']:= Edit2.Text; exApp.Worksheets.Item['Лист3'].Range['F20']:= Edit2.Text; exApp.Worksheets.Item['Лист2'].Range['D2'] := Edit3.Text; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#3
|
|||
|
|||
Alegun, огромное спасибо, буду пробовать, экспериментировать.
|
#4
|
||||
|
||||
Цитата:
Код:
exApp.Workbooks[1].SaveAs('Test.xls'); Код:
if not VarIsEmpty(exApp) then begin exApp.DisplayAlerts:= false; exApp.Quit; exAPP := Unassigned; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#5
|
|||
|
|||
Все работает безупречно. Спасибо большое.
|