Convertir archivos.

Hacer un macro y examinar el codigo del macro.

-Anders

wrote in message
news:

Tengo el codigo necesario para leer un archivo .html en VFP 6.0.

Lo que quiero lograr es que desde codigo en VFP 6.0 se pueda grabar en
formato .CSV, sin que el usuario tenga que intervenir para nada.

Tengo el siguiente codigo, pero el usuario tiene que responder a cada
pregunta desde excel.

OleApp.ActiveWorkbook.SaveAs("C:\TEMP.CSV",6,,,,,,,,,)

La pregunta es:

Cuales seran los parametros a utilizar para automatizar todas las
respuestas??

Ya hice la macro y no me muestra nada nuevo, en fin seguiremos
investigando


Alberto.

On 14 oct, 09:07, "Anders Altberg" <anders.altberg> wrote:

Hacer un macro y examinar el codigo del macro.

-Anders

wrote in message

news:

> Tengo el codigo necesario para leer un archivo .html en VFP 6.0.

> Lo que quiero lograr es que desde codigo en VFP 6.0 se pueda grabar en
> formato .CSV, sin que el usuario tenga que intervenir para nada.

> Tengo el siguiente codigo, pero el usuario tiene que responder a cada
> pregunta desde excel.

> OleApp.ActiveWorkbook.SaveAs("C:\TEMP.CSV",6,,,,,,,,,)

> La pregunta es:

> Cuales seran los parametros a utilizar para automatizar todas las
> respuestas??

AL FIN!!!

Despues de una extensa búsqueda, por fin he dado con la respuesta a mi
pregunta. Gracias a todos los que contribuyen con sus respuestas en
los diversos foros.

Aqui pongo el codigo resultante por si le sirve a alguien.

RELEASE ALL
CLEAR ALL

* Creamos el objeto Excel:
loExcel=CREATEOBJECT("Excel.application")

* Lo hacemos visible:
loExcel.APPLICATION.VISIBLE=.T.
loExcel.Application.DisplayAlerts=.F. && AQUI ESTA LA CLAVE DE TODO EL
ASUNTO.
&& CON
DISPLAYALERTS EN "FALSO"

* Aqui va el codigo para abrir el archivo ...
loExcel.APPLICATION.workbooks.OPEN("C:\TEMP\Prueba.mht")

* Como no queremos hacer ninguna modificacion en si, sino
* unicamente transformar su formato, lo guardamos como .CSV

IF FILE ('C:\TEMP\Prueba.CSV') && si el archivo existe lo borramos.
DELETE FILE 'C:\TEMP\Prueba.CSV'
ELSE
loExcel.ActiveWorkbook.SaveAs('C:\TEMP\Prueba.CSV',6,,'NO',,,,,,,,)
loExcel.ActiveWorkbook.Close()
ENDIF

* Salimos de excel.
loExcel.Application.QUIT()
RELEASE loExcel
RETURN

Atentamente


Alberto Ojeda Y.
Chetumal, Quintana Roo, México