Inmovilizar paneles en Excel desde FWH

[JmGarcia]

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.

[carlos vargas]

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

[csincuir]

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

Code: Select all  Expand view  RUN

oXls:FreezePanel( "5:5" )


Si no, pues de esta otra forma:

Code: Select all  Expand view  RUN

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


Espero te sirva.

Carlos.

[csincuir]

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

Code: Select all  Expand view  RUN

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]

Code: Select all  Expand view  RUN

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


¿ Que es el "5:5" ?

Code: Select all  Expand view  RUN

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.

[csincuir]

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]

Funciona perfecto lo de inmovilizar paneles.

...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.