topic-29258

David Williams

Posts: 82

Joined: Fri Mar 03, 2006 06:26 PM

OpenOffice Calc
Posted: Mon Sep 15, 2014 09:48 AM

Hi

Can anyone share a code snippet to allow me to do this in Calc? In Excel, I use

oSheet:Range(aColumns[16]+"5:"+aColumns[16]+ltrim(str(nRow))):NumberFormat := "####0.0000"

I looked at ToCalc in xBrowse but I'm lost

TIA
David

Manuel Valdenebro

Posts: 711

Joined: Thu Oct 06, 2005 09:57 PM

Re: OpenOffice Calc
Posted: Mon Sep 15, 2014 07:28 PM

oSheet:GetCellByPosition( nCol, nRow ):CharHeight = 16 // fontsize
oSheet:GetCellByPosition( nCol, nRow ):CharWeight = 150 // bold
oSheet:GetCellByPosition( nCol, nRow ):CharColor = 0 // black

oSheet:GetCellByPosition( nCol, nRow ):SetValue := 12345 // numeric value

oSheet:GetCellByPosition( nCol, nRow ):HoriJustify=2 // center
oSheet:GetCellByPosition( nCol, nRow ):SetString= customer->NAME // string

For how to use a macro: https://suite.io/mark-alexander-bain/14pc2aa

Un saludo

Manuel

anserkk

Posts: 1335

Joined: Fri Jun 13, 2008 11:04 AM

Re: OpenOffice Calc
Posted: Tue Sep 16, 2014 05:17 AM

If you are looking for the number formatting in OpenOffice Calc, then please refer the function GetNumberFormatId(oBook, cNumberFormat, cType) in xbrowse.prg

Code (fw): Select all Collapse

oSheet:GetColumns():GetByIndex( nCol-1 ):NumberFormat:=GetNumberFormatId(oBook, cNumberFormat, cType) // Returns nFormatID

Code (fw): Select all Collapse

// Function GetNumberFormatId(oBook, cNumberFormat, cType)
cCharLocale = oBook:GetPropertyValue("CharLocale")
nFormatId = oBook:GetNumberFormats:QueryKey(cNumberFormat, cCharLocale, .F.)

// if nFormatID is -1, then it means that this particular format is not available and you need to add the format.
// For this you can use the following code

IF nFormatId = -1 // 'Format is not yet defined
   TRY
      nFormatId = oBook:GetNumberFormats:AddNew(cNumberFormat, cCharLocale)
   CATCH
      MsgInfo( "Could not set the format"  + " " + cNumberFormat )
   END
ENDIF

Regards
Anser

David Williams

Posts: 82

Joined: Fri Mar 03, 2006 06:26 PM

Re: OpenOffice Calc
Posted: Tue Sep 16, 2014 04:15 PM

Thanks Guys,

I copied some code from xbrowse and it works a treat. I understand it a lot better now

The link is also very useful, Manuel.

David

FiveTech Support Forums

Continue the discussion