topic-11793

Posts: 654

Joined: Mon May 29, 2006 03:14 PM

Inmovilizar paneles en Excel desde FWH
Posted: Wed Jul 02, 2008 09:41 PM

Que objeto/metodo/data (o lo que sea) tengo que usar para inmovilizar paneles en una hoja excel con código fuente FWH.

Ademas como doy formato a las celdas (fecha, numérico, carécter, etc...)

Todo ello usando OLE... oExcel:=CreateObject("Excel.Application") etc...

Gracias.

Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Inmovilizar paneles en Excel desde FWH
Posted: Wed Jul 02, 2008 11:28 PM

La manera mas facil, es creando una macro en excel, y luego mientras esta grabando, realizar los procesos que se requiera conocer el codigo, luego se para la macro y se edita con VBA y tendras el codigo necesario el cual adecuara para ser usado con harbour.

salu2
carlos vargas

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

csincuir

Posts: 476

Joined: Sat Feb 03, 2007 06:36 AM

Inmovilizar paneles en Excel desde FWH
Posted: Thu Jul 03, 2008 02:26 AM

Jm,
Si utilizas TExcels sería de esta forma:

Code: Select all Collapse

oXls:FreezePanel( "5:5" )

Si no, pues de esta otra forma:

Code: Select all Collapse

  oExcel:Range( "5:5" ):Select()
  oExcel:Application:ActiveWindow:FreezePanes := .T.

Espero te sirva.

Carlos.

csincuir

Posts: 476

Joined: Sat Feb 03, 2007 06:36 AM

Inmovilizar paneles en Excel desde FWH
Posted: Thu Jul 03, 2008 02:34 AM

Y se me olvido lo de el formato. Aunque solo se lo del formato numerico que lo puedes hacer así:

Code: Select all Collapse

oExcel :=CreateObject("Excel.Application")
oSheet := oExcel:Get( "ActiveSheet" )

cFormat := '#,###,##0.00'   // Para Numeros
//cFormat := '##0.00%'      // para POrcentajes

oSheet:Cells( nRow, nCol ):Set("NumberFormat",cFormat)

Al menos asi me funcionan a mi.

Saludos.

Carlos.

JmGarcia

Posts: 654

Joined: Mon May 29, 2006 03:14 PM

Inmovilizar paneles en Excel desde FWH
Posted: Thu Jul 03, 2008 07:22 PM

csincuir wrote:
Code: Select all Collapse
oExcel:Range( "5:5" ):Select()
oExcel:Application:ActiveWindow:FreezePanes := .T.

¿ Que es el "5:5" ?

csincuir wrote:

Code: Select all Collapse

cFormat := '#,###,##0.00'   // Para Numeros
oSheet:Cells( nRow, nCol ):Set("NumberFormat",cFormat)

Y ademas de "NumberFormat" ¿ cuales son el resto de formatos ?

Muchas gracias csincuir.

Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013

csincuir

Posts: 476

Joined: Sat Feb 03, 2007 06:36 AM

Inmovilizar paneles en Excel desde FWH
Posted: Thu Jul 03, 2008 07:44 PM

Jm, perdon que no explique lo del "5:5", pero no es mas que la linea que se quiera dejar inmovilizada,por lo que si se quiere inmovilizar los páneles desde la linea 7, pues tendrías que colocar "7:7"

Con lo de los parámetros, como te comentaba, solo utilizo formato para celdas con números, será de investigar mas sobre los mismos.

Saludos.

Carlos.

JmGarcia

Posts: 654

Joined: Mon May 29, 2006 03:14 PM

Inmovilizar paneles en Excel desde FWH
Posted: Fri Jul 04, 2008 02:00 PM

Funciona perfecto lo de inmovilizar paneles.

csincuir wrote:...Con lo de los parámetros, como te comentaba, solo utilizo formato para celdas con números, será de investigar mas sobre los mismos.

Pues he probado y siempre es NumberFormat

oSheet:Cells( nRow, nCol ):Set("NumberFormat","#,###,##0.00")
oSheet:Cells( nRow, nCol ):Set("NumberFormat","##0.00%")
oSheet:Cells( nRow, nCol ):Set("NumberFormat","dd/mm/yyyy")
oSheet:Cells( nRow, nCol ):Set("NumberFormat","dd/mm/aaa hh:mm:ss")
etc...

Gracias de nuevo csincuir
Carlos, lo de las macros y ver el código VBA ayuda mucho, gracias tambien.

Mi abuelo decía: Los aviones vuelan porque Dios quiere, y los helicópteros ni Dios sabe porque vuelan.

FWH 16.02, xHarbour 1.2.3, Harbour 3.2.0, WorkShop 4.5, AJ Make 0.30, Borlan BCC 7.00, VisualStudio 2013

FiveTech Support Forums

Continue the discussion