ich habe es jetzt so gelöst, gibt es auch eine Lösung mit TADODAtaSet?
Delphi-Quellcode:
Excel := CreateOleObject('Excel.Application');
Excel.Workbooks.Open('test.xls');
loop := true;
i := 1;
while loop do
begin
if Excel.Cells.Item[i,1].Value = '22022' then
begin
Excel.Cells[i, 8].Value := 'X';
loop := false;
end;
i := i + 1;
end;
Excel.ActiveWorkBook.Save;
Excel.ActiveWorkbook.Close;
Excel.Quit;