Eliminar Columnas en Excel via codigo FiveWin

Eliminar Columnas en Excel via codigo FiveWin

Postby FranciscoA » 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  Expand view  RUN
  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: 2159
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

Re: Eliminar Columnas en Excel via codigo FiveWin

Postby FranciscoA » 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.
viewtopic.php?f=3&t=34444&hilit=hide+columns+excel#p204605
Continúo buscando.
Code: Select all  Expand view  RUN
   oSheet:Columns("B:B"):EntireColumn:Hidden := (.T.)

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

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

Re: Eliminar Columnas en Excel via codigo FiveWin

Postby FranciscoA » Wed Dec 23, 2020 3: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
User avatar
FranciscoA
 
Posts: 2159
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 65 guests