Ver Mensaje Individual
  #1  
Antiguo 06-12-2005
fcios fcios is offline
Miembro
 
Registrado: jul 2003
Posts: 108
Reputación: 21
fcios Va por buen camino
Buscar y/o reemplazar una celda en Excel...

Hola, No quiero reemplazar todos los valores de la hoja

Como hago para buscar y/o reemplazar un valor y que se posicione en dicha celda y saber cual es dicha celda ?

Estoy trabajando con Delphi 7 y excel2000 y los componentes de la solapa Servers

Yo tengo el siguiente codigo que reemplaza "hola" por "chau"

ExcelApp.Connect;
ExcelApp.Workbooks.Open('C:\MiArchivo.xls',EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
ExcelApp.Visible[0] := True;
WS.ConnectTo(ExcelApp.Sheets[1] as _Worksheet);
WS.UsedRange[0].Replace('hola','chau',xlPart,xlByRows,False,False);

donde :
ExcelApp = TExcelApplication
WS = TExcelWorksheet

Pero este codigo me reemplaza todos los "hola" yo necesito que me reemplace el primero y se quede en la celda buscada o reemplazada y saber cual es dicha celda

Desde ya muchas gracias
Responder Con Cita