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
|