FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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 |
#2
|
|||
|
|||
agregar valor
yo lo hago de la siguiente manera
ExcelApplication1.Cells.Item[i,j].Value:='Hola'; |
#3
|
|||
|
|||
este codigo
y para iniciar una busqueda en toda la hoja puedes hacer lo siguiente:
Por ejemplo tenemos una hoja de 10 columnas por 20 filas for i:=1 to 10 do begin for j:=1 to 20 do begin cadena:=ExcelApplication1.Cells.Item[i,j].Value; if cadena='Hola' then ExcelApplication1.Cells.Item[i,j].Value:='Chau'; end; end; |
|
|
|