[Solved] How do I get the NUMBERFORMATS object in VB6

[LBorlase]

Hello
I have a routine in VB6 that populates a Grid into a Calc spreadsheet - Code below.
I cannot figure out how to populate the NumberFormats object (o??????).
Any Ideas?

Code: Select all

  Dim oServiceManager As Object
  Dim oDesktop        As Object
  Dim oDocument       As Object
  Dim oSheet          As Object
  Dim oWindow         As Object
  Dim oFrame          As Object
  Dim oLocale         As Object
  Dim oNumberFormats As Object

  Set oServiceManager = CreateObject("com.sun.star.ServiceManager")
  Set oDesktop = oServiceManager.createInstance("com.sun.star.frame.Desktop")
  ' Create a new spreadsheet document.
  Set oDocument = oDesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, Array())
  Set oFrame = oDesktop.ActiveFrame
  Set oWindow = oFrame.GetContainerWindow
  
  Set oLocale = oServiceManager.Bridge_GetStruct("com.sun.star.lang.Locale")
  oDocument.getCurrentController.getFrame.GetContainerWindow.SetVisible False

  oNumberFormats = o???????.NumberFormats    [color=#808000]This is where I need to populate the oNumbeFormats object[/color]

  ' Get Spreadsheets Object
  Set oSheet = oDocument.Sheets(0).getByIndex(0)
 ......

Thank you

Laurie Borlase

[FJCC]

Here is a bit of OpenOffice Basic code I happen to have that creates an unusual number format and applies it to a cell. The oDoc object in my code corresponds to oDocument in your code.

Code: Select all

Dim sLocale as New com.sun.star.lang.Locale
dateFormatString = "YYYY/MM/DD\\ HH:MM:SS"
oDoc = ThisComponent
NumForms = oDoc.getNumberFormats()
DateKey = NumForms.queryKey(dateFormatString, sLocale, True)
Print DateKey 
IF DateKey = -1 then
	DateKey = NumForms.addNew(dateFormatString, sLocale)
	Print DateKey
end if
Sheet = oDoc.Sheets.getByIndex(0) 
Cell = Sheet.getCellByPosition(0,0)
Cell.NumberFormat = DateKey
Cell.Value = 40000

[Zizi64]

Do you want to format cells by direct formatting?
If you are using the native, Inrenational Standard ODF fileformats, then is is better to use the Cell styles instead of the applying some direct formatting by macro codes. You can create, apply and modify user defined cell styles by your macro.

Examples:
Create or modify a style - viewtopic.php?t=48960
Apply a style - http://ooo-forums.apache.org/en/forum/v ... 20&t=67938
Get the style of a cell/cellrange by various referencing - viewtopic.php?f=21&t=2762

Here is the desctription of the API function of the NumberFormats:
https://www.openoffice.org/api/docs/com ... rmats.html

The numberformat constants: http://api.libreoffice.org/docs/idl/ref ... ormat.html

Code example for Numberformat: https://wiki.openoffice.org/wiki/Docume ... _Documents

[LBorlase]

Thank you for your replies.

In all of the examples the line "DOC = ThisComponent" is in the code.

What is ThisComponent or how do I define it?

Thank you

[Zizi64]

ThisComponent

In most of cases it means (references to) the active document:
(the document what you can see on the display / the document that you edit in present time / the document where the macro was launched from)

You need study the API functions. Start with Andrew Pitonyak's free books.

[Zizi64]

In the object oriented programming environments and languages you need define (get) the objects.

Code: Select all

Dim oDoc as object 
oDoc = ThisComponent

oDoc: it is an user defined name of an object type variable. You will reference to the document object with this name in your code. The actual document object has many-many properties, methods...
You can reference to the active document by usage of the 'ThisComponent' API function. Or you can load a document from a specific URL (from the HDD) or you can create a new document by the

Code: Select all

oDoc = ... ...loadComponentFromURL("private:factory/scalc", "_self", 0, array())...

API function

[LBorlase]

Thank you.

I used the line:

Set oNumberFormats = oDocument.Numberformats

This now works and the formats populate in the spreadsheet..