SoloCodigo
Programación General => Visual FoxPro => Mensaje iniciado por: mrivera-pwc en Jueves 30 de Agosto de 2007, 01:00
-
Hola a todos:
Me puedes apoyar con lo siguiente, tengo este programa que convierte de DOC a TXT, pero quiero que ahora convuerta de XLS a CSV, alguien de ustedes me podria ayudar, de antemano mil gracias.
cRuta = GetFile('DOC', 'Archivo', "Abrir", 0, 'Seleccione el archivo de Word a Convertir')
If Empty(cRuta)
Return .F.
EndIf
oW = CreateObject("Word.Application")
With oW
.DisplayAlerts = .F.
cNewTxt = ForceExt(cRuta, 'Txt')
.Documents.Open(cRuta)
.ActiveDocument.SaveAs(cNewTxt, 2, .F., '', .F., '', .F., .F., .F., .F., .F., .T., .F.)
.Documents(1).Close
.Quit
EndWith
Release oW
Wait Window "Documento guardado en ... " + cNewTxt