Delphy и Excel (подпись в конце таблицы)

[Аватар]

Наверняка же есть какой-то аналог INSERT-а строки в объектах Excel.Application

ADD

Вот даже в коде у себя нашел

ExcelApplication.ActiveWorkbook.ActiveSheet.Cells.Rows[Row].Insert;

[Stilet]

Как сделать так чтобы она динамично передвигалась в соответствии увеличению количества строк в таблице, при каждом формировании файла excel.

А почему не в Ворд? (выше кажись на это намекали)...
Вот в Ворде шаблон сделать и подписи в колонтитулы.

[laloca]

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

А почему не в Ворд? (выше кажись на это намекали)...
Вот в Ворде шаблон сделать и подписи в колонтитулы.

Потому что НАДО в excel)))))))))))))))))))))))))))))) )))))))

[FaTaL]

Зачем что-то куда то динамически передвигать? Вы как отчет формируете? Ну или на крайняк, открываете лист Excel, ищите последнюю строку и после неё добавляете свои подписи. В чем именно проблема?
Вот так можно активировать последнюю строку в Excel

Excel.Cells.SpecialCells($0000000B, EmptyParam).Activate;

И после неё что-то дописывать.

[laloca]

[QUOTE=FaTaL;1419529]Зачем что-то куда то динамически передвигать? Вы как отчет формируете? Ну или на крайняк, открываете лист Excel, ищите последнюю строку и после неё добавляете свои подписи. В чем именно проблема?
Вот так можно активировать последнюю строку в Excel

Excel.Cells.SpecialCells($0000000B, EmptyParam).Activate;

И после неё что-то дописывать.[/Q



Программой буду пользоваться не я, поэтому мне нужно максиммум убрать процесс мышевозения и кнопкотыканья, а просто нвжвтием на кнопку сформировать таблицу которая сегодня может состоять из 10 строк , а завтра из 100 , и подпись *чертеепобралбы

[FaTaL]

То ли лыжи не едут, то ли ...
Вы вообще читали что я Вам написал?

[laloca]

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

То ли лыжи не едут, то ли ...
Вы вообще читали что я Вам написал?

Прочитала, допустим, автивировала. А что дальше?! Как дописывать если не извнстно с какой строки дописывать - вот это меня интересует.

[laloca]

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

То ли лыжи не едут, то ли ...
Вы вообще читали что я Вам написал?

procedure TForm1.SpeedButton2Click(Sender: TObject);
var
 s: integer;
ExcelApp : variant;
row :integer;
col:integer;
begin
dbgrid1.DataSource.DataSet.First;

ExcelApp:=CreateOLEObject('Excel.Application'); // создает объект
ExcelApp.WorkBooks.add; //новый док
ExcelApp.visible:=true;  // показывает док

ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'list'; // переименовывание ЛИСТА 1

for col :=0 to DBGrid1.Columns.Count-1 do
ExcelApp.WorkBooks[1].WorkSheets[1].cells[1,col+1].value:=dbgrid1.fields[col].displaylabel;

for row :=0 to DBGrid1.DataSource.DataSet.RecordCount-1 do
begin
for col :=0 to DBGrid1.Columns.Count-1 do
begin
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+2,col+1].value:=dbgrid1.DataSource.DataSet.Fields[col].AsString;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+2,1]:=row+1 ;
ExcelApp.WorkBooks[1].WorkSheets[1].cells[row+2,col+1].borders.LineStyle:=xlHairline;

ExcelApp.Cells.SpecialCells($0000000B, EmptyParam).Activate;



//color:=clBlack;
//ExcelApp.WorkBooks[1].WorkSheets[1].cells[2,2].visible:=false;
end;
DBGrid1.DataSource.DataSet.Next;
end;

//ExcelApp.WorkBooks[1].WorkSheets[1].cells[1,1]:='Дата';
//ExcelApp.WorkBooks[1].WorkSheets[1].cells[1,2]:=datetostr(now);
//ExcelApp.WorkBooks[1].WorkSheets[1].visible:=true;
ExcelApp.WorkBooks[1].WorkSheets[2].visible:=false;
ExcelApp.WorkBooks[1].WorkSheets[3].visible:=false;


//ExcelApp.WorkBooks[1].WorkSheets[1].cells[2,2].visible:=false;

//ExcelApp.ActiveWorkbook.ActiveSheet.Range['A10:A15;C10:C15;E10:E15'].Select;
//ExcelApp.WorkBooks[1].WorkSheets.Range['A10:A15'].Borders.Color := clBlack;


//s:=ExcelApp.ActiveWorkbooks.ActiveSheet.Cells[2,2];//.Address+':'+
 //  ExcelApp.ActiveWorkbook.ActiveSheet.Cells[3,2];//.Address+';'+
 //  ExcelApp.ActiveWorkbook.ActiveSheet.Cells[2,3];//.Address+':'+
  // ExcelApp.ActiveWorkbook.ActiveSheet.Cells[3,3];//.Address;
//ExcelApp.ActiveWorkbook.ActiveSheet.Range[s].Select;