Eliminar Columnas en Excel via codigo FiveWin

Post Reply
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Eliminar Columnas en Excel via codigo FiveWin

Post by FranciscoA »

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.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Eliminar Columnas en Excel via codigo FiveWin

Post by FranciscoA »

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.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
User avatar
FranciscoA
Posts: 1964
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Eliminar Columnas en Excel via codigo FiveWin

Post by FranciscoA »

Ya solucioné lo de ocultar columnas, con oSheet:Columns("C:C"):EntireColumn:Hidden := (.T.)
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh1204-MySql-TMySql
Post Reply