[pesi]

вот вроде работает

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

procedure TForm1.Button3Click(Sender: TObject); var e : OleVariant; i, p, u : integer; begin e:= CreateOleObject('Excel.Application'); e.Visible:=true;   for u:=1 to listbox1.Count do begin  e.WorkBooks.open(ExtractFilePath(ParamStr(0))+listbox1.Items[u-1]);   p:=0;   for  i:=1 to e.WorkSheets.count do   e.Sheets[i].SELECT;   begin     try      e.cells.Find('7').select;      inc(p);     except    end;   if p>0 then    begin     E.activeWorkBook.SaveAs(ExtractFileDir(ParamStr(0))+'\' + '-' + listbox1.Items[u-1]);     E.activeWorkBook.close;    end;  end; end; E.Quit; E := Unassigned; end;