Buscar y reemplazar un caracter o palabra en una hoja completa de excel desde Visual FoxPro 9

[Alfredo]

Estimad@s tod@s.

 

Requiero de su ayuda con lo siguiente:

 

Tengo realizado el proceso de exportación de datos de una tabla a excel, ahora lo que quisiera saber es como buscar y reemplazar un caracter o palabra en toda la hoja.

 

De antemano mi agradecimiento por la ayuda que me puedan brindar.

 

Saludos

Alfredo

 

 

[Jean Pierre Adonis De La Cruz Garcia]

depende que version de excel tienes, por que en algunos casos, los comandos cambian segun la version.

Lo mas practico, es primero hacerlo desde el mismo excel con un Macro, y ver como lo consituyo la rutina, y esa adaptarla a nuestra automatizacion en frxpro

es decir.entras a excel

activas macro, y haces todo lo que deseas hacer, inicias la busqueda, escribes lo que deseas buscar y reemplazar y listo, detienes el macro.

entras a ver el macro de excel, y ese proceso lo llevas a VF y automatizas y listo, solucionado tu problema, espero que se haya entendido, eso es lo que yo hago para automatiza con Microsoft.

[Alfredo]

Estimado Jean Pierre.

 

Gracias por tu tiempo y ayuda.

 

Realicé el proceso que me recomendaste y obtuve el siguiente resultado.

 

Sub Buscar_reemplazar()
'
' Buscar_reemplazar Macro
'

'
    Cells.Select
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

 

Podrías indicarme como sería el código para pasarlo a Visual FoxPro?

 

De antemano mi agradecimeinto.

 

Saludos

Alfredo

[Jean Pierre Adonis De La Cruz Garcia]

como te mencione que version de Excel tiene, ojo, que algunos procesos de Automatizacion, funcionan en algunas versiones de excel, es decir, quizas todo lo que programes aca te funcione bien, psi tuvieras excel, 2007, pero supongamos que tienes office 2013 en otra maquina quizas no te funcione, asi que debes de auomatizar en forma adecuada.

tratare de ver como ayudarte.

[Jean Pierre Adonis De La Cruz Garcia]

Bueno amigo, espero que te pueda servir este pequeño proceso.

PUBLIC loexcel

loExcel = CREATEOBJECT("Excel.application") 

palbus="600"  && Palabra que va a buscar

palrem="foxexpert"  &&Palabra que va a reemplazar

WITH loExcel

   .Application.Workbooks.Open("C:\datos.xls")

   .Visible = .t. && See the results

   .ActiveCell.Replace(palbus,palrem)  && Comando para reemplazar directo al excel

ENDWITH

Atte. 

Analista Programador: Jean Pierre Adonis De la Cruz garcia

Cel: 956888831

Pisco - Peru 

[Alfredo]

Excelente Jean Pierre !!!

 

Funcionó de maravilla.

 

Nuevamente gracias por tu ayuda.

 

Saludos

Alfredo

[Jean Pierre Adonis De La Cruz Garcia]

Un pequeño consejo, si deseas seguri practicando con otros comandos, solo sigue la variable public

en este caso cree Public el "loExcel"

es decir, mientras vas escribiendo, loExcel. te van a ir apareciendo lo posibles comando que debes usar y como manipularlos, suerte. que bueno que te haya servido.