SoloCodigo

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