No habia tenido necesidad de eliminar columnas en un fichero Excel.
He probado de la siguiente forma, pero no hace nada mas que "pegar" el programa.
Que le falta al codigo siguiente para que funcione?
- Code: Select all Expand view RUN
- oExcel := CreateObject( "Excel.Application")
oWorkBook := oExcel:WorkBooks:Open( cFicheroXls )
SheetName := oWorkBook:WorkSheets(1):Name
oSheet := oExcel:Sheets(SheetName)
oSheet:Columns("C"):Delete()
oSheet:Columns("E"):Delete()
oSheet:Columns("H"):Delete()
oExcel:WorkBooks:Close()
oExcel:Application:Quit()
oExcel:Quit()
release oSheet
release oExcel
Gracias por anticipado.