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
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