Eliminar Columnas en Excel via codigo FiveWin

Board index FiveWin para Harbour/xHarbour Eliminar Columnas en Excel via codigo FiveWin

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Eliminar Columnas en Excel via codigo FiveWin
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 (fw): Select all Collapse

   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

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Eliminar Columnas en Excel via codigo FiveWin
Posted: Wed Dec 23, 2020 02: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.
viewtopic.php?f=3&t=34444&hilit=hide+columns+excel#p204605
Continúo buscando.

Code (fw): Select all Collapse

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

Saludos.

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: Eliminar Columnas en Excel via codigo FiveWin
Posted: Wed Dec 23, 2020 03:35 AM

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

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

FiveTech Support Forums

Continue the discussion