FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Excel Help
Posts: 708
Joined: Fri Oct 28, 2005 09:53 AM
Excel Help
Posted: Mon Aug 21, 2006 02:32 AM

Hello,

Can someone provide the correct to set the following?

1) Freeze pane
2) Set Header
3) Set Footer

Thank you,

*~*~*~*~*~*~*~*~*~*
Darrell Ortiz
CDM Software Solutions, Inc.
https://www.cdmsoft.com
Posts: 38
Joined: Mon Nov 28, 2005 02:10 PM
Excel Help
Posted: Mon Aug 21, 2006 02:43 AM
For freeze panel...using TExcelScript:
/*
 *  TExcelScript():FreezePanel() 
 */
METHOD FreezePanel( cRange )  CLASS TExcelScript

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

RETURN Self
Carlos Sincuir
Posts: 708
Joined: Fri Oct 28, 2005 09:53 AM
Excel Help
Posted: Mon Aug 21, 2006 02:56 AM

Hello,

I am using the following code and getting an error.

oAs := oExcel:ActiveSheet()

oAs:FreezePanes := .T.

Any ideas?

Thank you,

*~*~*~*~*~*~*~*~*~*
Darrell Ortiz
CDM Software Solutions, Inc.
https://www.cdmsoft.com
Posts: 312
Joined: Sat Oct 08, 2005 09:12 AM
Excel Help
Posted: Mon Aug 21, 2006 06:43 AM
cdmmaui,

as Carlos pointed out, you have do do a "select" before.
The freeze command works like in real Excel.
First you have to select a cell and then you can freeze the sheet.

This sample works for me:
   oWin := oExcel:Get( "ActiveWindow" )
   oSheet:Cells( 2, 1 ):Select()
   oWin:Set( "FreezePanes", .t. )

Regards,
Detlef
Posts: 711
Joined: Thu Oct 06, 2005 09:57 PM
Re: Excel Help
Posted: Sat Oct 18, 2025 12:14 PM

Danke, Detlef. Es hat funktioniert.

Saludos

Un saludo



Manuel

Continue the discussion