delphi excel

[shrews]

впринципе работает но только все дание вводит не в низ в лево )

[S@fer]

Дык, так ты поменяй i c j местами он будет вниз печатать.
Cells[i,j] - означает запись (или чтение) в i-тую строку, в j-тый столбец.

[shrews]

огромное СПС те!!!!

[shrews]

ещо один вопросик как с помощь стринггрид добавить дание в таблицу excel,(не наново закатать а просто добавить).

[S@fer]

В смысле добавить? Открываешь нужную тебе книгу, лист. И заносишь в нужные ячейки данные. Затем сохраняешь ексель.

[shrews]

ну мене надо штоб програма искала первий свободний рядоч в икселе и заносила туда первий и єдинственний рядок и стрінггриде

[S@fer]

Тогда тебе нужно.
1. Загрузить данный из экселя в стринггрид.
2. Посчитать количество "непустых" строк.
3. К этому кол-ву прибавить 1. Записать это кол-во в переменную.
4. Записать новую строку в эксель используя позицию этой переменной.

[shrews]

нет в стрингрид я в ручную в програме ввожу дание

[shrews]

а как ети строки подсчитать?))

[shrews]

var 
 WorkBk: _WorkBook;
 WorkSheet: _WorkSheet;
 i,j,X,Y: integer;
 IIndex: OleVariant;
begin
 NomFich:=ExtractFilePath(ParamStr(0))+'xl.xls';
 IIndex:=1;
 XLApp.Connect;
 // Открываем файл Excel
 XLApp.WorkBooks.Open(NomFich,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
       EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                                                EmptyParam,EmptyParam,0);
 WorkBk:=XLApp.WorkBooks.Item[IIndex];
 WorkSheet:=WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;
WorkSheet.Cells.SpecialCells(xlCellTypeLastCell,EmptyParam).Activate;
 // Получаем значение последней строки
 X:=XLApp.ActiveCell.Row;
 x:=x+1;

//a - это и будет количество строк
//Затем к а прибавляешь единцу, и уже пишеш в эксель
for i:=0 to StringGrid1.ColCount do
 for j:=0 to StringGrid1.RowCount do begin
XL.WorkBooks[1].WorkSheets[1].Cells[x,j]:=StringGrid1.Cells[i,j];
end;
end;

кажите плис че не так, почемут не работает ((