Доброго дня, уважаемые форумчане. Столкнулся с такой проблеммой:
имеется база данных, и по нажатию на кнопку она должна экспортироваться в шаблон эксель.
Код:
var
i,j, index: Integer;
ExcelApp,sheet: Variant;
begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.workbooks.open(ExtractFilePath(ParamStr(0 ))+'reestr\reestrOB.xls');
ExcelApp.Visible := true;
ExcelApp.WorkBooks[1].WorkSheets[1].name := 'реестр';
sheet:=ExcelApp.WorkBooks[1].WorkSheets['реестр'];
index:=11; //здесь выбираю номер строки в экселе с которой надо заполнять
for i:=1 to form6.DBGrid1.DataSource.DataSet.RecordCount do
begin
for j:=1 to form6.DBGrid1.FieldCount do
sheet.cells[index,8]:=form6.DBGrid1.fields[2].asstring;
sheet.cells[index,5]:=form6.DBGrid1.fields[0].asstring;
sheet.cells[index,2]:=form6.DBGrid1.fields[1].asstring;
form6.DBGrid1.DataSource.DataSet.Next; //переход на следующую строку
//НУМЕРАЦИЯ СТРОК ИЗ БД
sheet.cells[index, 1]:=i;//проставляем в цикле в 1-ю колонку
inc(index);
end;
Вопрос как сделать чтобы при экспорте данных из БД добавлялась строка и в нее вносились данные.
В этом примере, в шаблон добавляются данные из БД, а строки не сдвигаются.
Заранее спасибо