Eliminar Columnas en Excel via codigo FiveWin

Post Reply
User avatar
FranciscoA
Posts: 2164
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 | Expand

  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.

Fwxh-MySql-TMySql
User avatar
FranciscoA
Posts: 2164
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.
viewtopic.php?f=3&t=34444&hilit=hide+columns+excel#p204605
Continúo buscando.

Code: Select all | Expand

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

Saludos.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
Posts: 2164
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.

Fwxh-MySql-TMySql
Post Reply