FiveTech Software tech support forums

Posted: **Tue Dec 22, 2020 10:35 pm**

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

Gracias por anticipado.

Posted: **Wed Dec 23, 2020 2:34 am**

Ahora estoy intentando con ocultar columnas.
Encontré el siguiente post donde confirman que su codigo les funciona... pero a mi no. Ocurre lo mismo que en el post anterior.
https://forums.fivetechsupport.com/view ... el#p204605
Continúo buscando.

Code: Select all

    oSheet:Columns("B:B"):EntireColumn:Hidden := (.T.)

Saludos.

Posted: **Wed Dec 23, 2020 3:35 am**

Ya solucioné lo de ocultar columnas, con oSheet:Columns("C:C"):EntireColumn:Hidden := (.T.)

FiveTech Software tech support forums

Eliminar Columnas en Excel via codigo FiveWin

Eliminar Columnas en Excel via codigo FiveWin

Re: Eliminar Columnas en Excel via codigo FiveWin

Re: Eliminar Columnas en Excel via codigo FiveWin