[Vansha]

Здравствуйте.
Нужна помощь.
Необходимо при нажатии BitBtn (сформировать), из компонентов Edit1, Edit2, Edit3, данные строк отправлялись ранее созданный документ Exel. И к тому же в заданную ячейку например С18, G12 и т.д.
Пример:
Ф.И.О. лист1 в ячейку C10, H8, лист2 в ячейку N28
адрес лист1 в ячейку, B20, лист3 в ячейку F20
телефон лист2 в ячейку D2

Документ Exel в нем создана таблица, куда и нужно будет вставлять данные.

[Alegun]

Код:

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;

[Vansha]

Alegun, огромное спасибо, буду пробовать, экспериментировать.

[Alegun]

Сообщение от Vansha

...буду пробовать, экспериментировать.

Нужно ещё задать парметры "формирования отчёта", напр. нужно или нет во время выполнения показывать "родительский" экзель, за это отвечает свойство exApp.Visible, чтоб показать результат заполнения необходимо его выставить как true, а конечное сохранение выполняется так

Код:

exApp.Workbooks[1].SaveAs('Test.xls');

ну и это чтоб прибить Excel

Код:

if not VarIsEmpty(exApp) then
   begin
     exApp.DisplayAlerts:= false;
     exApp.Quit;
     exAPP := Unassigned;
    end;

там много чего ещё сделать можно

[Vansha]

Все работает безупречно. Спасибо большое.