Работа с Excel в Delphi

[comp43]

Помогите пжлста с решением!
Программа написана на Delphi7. Программа сначала обращается к одному документу Excel, добавляет столбец и вставляет в его "шапку" текст-название. Потом обращается ко второму документу Excel, считывает данные с ячеек. После этого эти данные необходимо внести в ячейки вставленного столбца 1-го документа Excel. На 1-м документе добавляет столбец со сдвигом столбцов вправо, вставляет в его шапку текст-название, после обращается ко 2-му документу, все действия производит. Но когда снова обращается к 1-му документу Excel -вставленный столбец с шапкой-названием "исчезает" и данные вставляются в столбец, оказавшийся на его месте. И вставленными оказываются только данные последней строчки(например должны вставится 3 строчки(ячейки в столбце друг под другом)), а вставляется только последняя строчка в указанную ячейку.

// Работа с 1-м документом

d:=10;
ExlApp.ActiveSheet.Columns[d].Select;
ExlApp.ActiveSheet.Columns[d].Insert(Shift:=xlToRight,CopyOrigin :=xlFormatFromLeftOrAbove);
ExlApp.ActiveSheet.Cells[1,d]:='Кол-во откликов';

// Работа со 2-м документом
s:=ExlApp.Workbooks.Open(XLSFile2). WorkSheets.Item[1].Cells[1,4];

//Вставка данных в 1-й документ

ExlApp.Workbooks.Open(XLSFile1).Wor kSheets.Item[1].Cells[2,10]:=s;
ExlApp.Workbooks.Open(XLSFile1).Wor kSheets.Item[1].Cells[3,10]:=s;
ExlApp.Workbooks.Open(XLSFile1).Wor kSheets.Item[1].Cells[4,10]:=s;

[beegl]

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

обращается к одному документу Excel, добавляет столбец и вставляет в его "шапку" текст-название. Потом обращается ко второму документу Excel, считывает данные с ячеек. После этого эти данные необходимо внести в ячейки вставленного столбца 1-го документа Excel. На 1-м документе добавляет столбец со сдвигом столбцов вправо, вставляет в его шапку текст-название, после обращается ко 2-му документу, все действия производит. Но когда снова обращается к 1-му документу Excel -вставленный столбец с шапкой-названием "исчезает" и данные вставляются в столбец, оказавшийся на его месте. И вставленными оказываются только данные последней строчки(например должны вставится 3 строчки(ячейки в столбце друг под другом)), а вставляется только последняя строчка в указанную ячейку.

можно с этим: EMS Advanced Excel Report

или с этим: FlexCelVCL