|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Помогите победить EXCEL
Народ подскажите как вставить строку в таблицу excel при этом все остальные сдвинуть на позицию в низ, сохранив их формат.
пробовал сделать так: Код:
Var x:variant; Tel,datD,datM,datY:String; myDate : TDateTime; i,z:integer; begin z:=StrToInt(gar5.Text); x:=CreateOleObject('Excel.Application'); x.WorkBooks.ADD(template:='D:\info-c\Бланки\Garant.xls'); x.worksheets[1].Select; myDate:=Now; DateTimeToString(datD, 'dd', myDate); DateTimeToString(datM, 'mmmm', myDate); DateTimeToString(datY, 'yyyy', myDate); x.cells[StrToInt(gar7.Text),StrToInt(gar8.Text)]:='ГАРАНТИЙНЫЙ ТАЛОН от «' +datD+ '» ' +datM+' '+datY+' г.'; with Table3 do begin Table3.First; for i := 0 to 9 do if not EOF then begin x.cells[StrToInt(gar1.Text)+i+1,StrToInt(gar2.Text)].insert; x.cells[StrToInt(gar1.Text)+i,StrToInt(gar2.Text)]:=FieldByName ('Наименование').AsString; x.Range['A'+IntToStr(z+i)+':C'+IntToStr(z+i)].select; x.selection.borders.linestyle:=1; Table3.Next; end; end; x.visible:=true; подскажите как можно реализовать то что я хочу или где можно почитать литературу |