var
Ex, Workbook, FitToPagesTall,FitToPagesWide,
CenterHorizontally, CenterVertically, Orientation, PaperSize:Variant;
p_, p1_,replace, range : OleVariant;
begin
Ex := CreateOleObject('Excel.Application');
Ex.Application.EnableEvents := false;
Ex.DisplayAlerts := False;
Workbook := Ex.WorkBooks.Open('C:\Temp\Ob.xlsx');
Ex.Visible := false;
Ex.ActiveWorkBook.WorkSheets[5].Select;
p1_:=LabeledEdit1.Text;
Ex.Cells.Replace(What:=#p#,Replacement:=p1_ );
Ex.DisplayAlerts:=True;
Ex.Application.EnableEvents := true;
Ex.Application.DisplayAlerts := True;
Ex.ActiveWorkBook.SaveAs('C:\Temp\Temp.xlsx);
Ex.ActiveWorkBook.Close(0);
Ex.Visible :=false;
end;
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.