|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
экспорт данных из access в ШАБЛОН excel
Доброго дня, уважаемые форумчане. Столкнулся с такой проблеммой:
имеется база данных, и по нажатию на кнопку она должна экспортироваться в шаблон эксель. Код:
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; Вопрос как сделать чтобы при экспорте данных из БД добавлялась строка и в нее вносились данные. В этом примере, в шаблон добавляются данные из БД, а строки не сдвигаются. Заранее спасибо |