Написха следния код, но за мое съжаление нито дава грешка, нито променя Excel файла (значи нищо не прави):
try
XLS_Book := GetActiveOleObject('Excel.Application');
except
try
// ако няма инстанция, опит да се създаде нов Excel обект
XLS_Book := CreateOleObject('Excel.Application');
except
ShowMessage('Не може да се стартира Ексел / Excel не е инсталиран ?');
Exit;
end;
end;
S := '1.xls';
XLS_Book.Workbooks.Open(S);
IR := GetLastLine(1);
Edit1.Text := IntToStr(IR);
for I := 1 to IR do
begin
if (XLS_Book.Cells[I, 1].Value = Edit_A_.Text) then
XLS_Book.Cells[I, 2].Value := Variant(Edit_B_.Text);
end;
XLS_Book.Workbooks[1].Save;
XLS_Book.Workbooks[1].Close;