::. Automatizacion Excel + CSV .::
Publicado por Martin (10 intervenciones) el 26/12/2009 23:37:54
Espero me puedan ayudar….
Tengo un conjunto de 50 archivos con extensión csv (Archivo de valores separados por comas de Microsoft Office Excel) a diario tengo que abrir los 50 archivos y guardarlos como Libro de Microsoft Office Excel (Archivo/Guardar Como).
Necesitaría automatizar todo esto….
Ya se como abrir los 50 archivos, pero tengo problemas para poder guardarlos.
Cada vez que los guardo manualmente los csv me quedan tabulados, pero cuando los guardo por automatización NO quedan tabulados, sino que quedan como un string separados por punto y como (“;”).
Le agradecería mucho la que me pueda ayudar….
A continuacion les adjunto las lineas de codigo que uso para guarder el csv como Libro de Excel.
loExcel=CreateObject("Excel.Application")
loExcel.Application.Visible=.T.
loExcel.Workbooks.Open(TRIM(mRutaDatos)+TRIM(FileInfo[1,1]))
loexcel.ActiveWorkbook.SaveAs(mRutaDatos+SUBSTR(FileInfo[1,1],1,23),1,,,.F.)
Muchas Graciassssss
Tengo un conjunto de 50 archivos con extensión csv (Archivo de valores separados por comas de Microsoft Office Excel) a diario tengo que abrir los 50 archivos y guardarlos como Libro de Microsoft Office Excel (Archivo/Guardar Como).
Necesitaría automatizar todo esto….
Ya se como abrir los 50 archivos, pero tengo problemas para poder guardarlos.
Cada vez que los guardo manualmente los csv me quedan tabulados, pero cuando los guardo por automatización NO quedan tabulados, sino que quedan como un string separados por punto y como (“;”).
Le agradecería mucho la que me pueda ayudar….
A continuacion les adjunto las lineas de codigo que uso para guarder el csv como Libro de Excel.
loExcel=CreateObject("Excel.Application")
loExcel.Application.Visible=.T.
loExcel.Workbooks.Open(TRIM(mRutaDatos)+TRIM(FileInfo[1,1]))
loexcel.ActiveWorkbook.SaveAs(mRutaDatos+SUBSTR(FileInfo[1,1],1,23),1,,,.F.)
Muchas Graciassssss
Valora esta pregunta
0