Inmovilizar paneles en Excel desde FWH

Inmovilizar paneles en Excel desde FWH

Postby JmGarcia » Wed Jul 02, 2008 9: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
User avatar
JmGarcia
 
Posts: 654
Joined: Mon May 29, 2006 3:14 pm
Location: Madrid - ESPAÑA

Postby carlos vargas » 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)
User avatar
carlos vargas
 
Posts: 1721
Joined: Tue Oct 11, 2005 5:01 pm
Location: Nicaragua

Postby csincuir » Thu Jul 03, 2008 2:26 am

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
 
Posts: 409
Joined: Sat Feb 03, 2007 6:36 am
Location: Guatemala

Postby csincuir » Thu Jul 03, 2008 2: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  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.
csincuir
 
Posts: 409
Joined: Sat Feb 03, 2007 6:36 am
Location: Guatemala

Postby JmGarcia » Thu Jul 03, 2008 7:22 pm

csincuir wrote:
Code: Select all  Expand view  RUN
oExcel:Range( "5:5" ):Select()
oExcel:Application:ActiveWindow:FreezePanes := .T.
¿ Que es el "5:5" ?

csincuir wrote:
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.
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
User avatar
JmGarcia
 
Posts: 654
Joined: Mon May 29, 2006 3:14 pm
Location: Madrid - ESPAÑA

Postby csincuir » Thu Jul 03, 2008 7: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.
csincuir
 
Posts: 409
Joined: Sat Feb 03, 2007 6:36 am
Location: Guatemala

Postby JmGarcia » Fri Jul 04, 2008 2: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
User avatar
JmGarcia
 
Posts: 654
Joined: Mon May 29, 2006 3:14 pm
Location: Madrid - ESPAÑA


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 49 guests