Apache OpenOffice: Foro oficial de la comunidad

Código: Seleccionar todo

Plage.NumberFormat = Entero

Código: Seleccionar todo

Call Plage.SetPropertyValue("NumberFormat", 36) 

Código: Seleccionar todo

Dim sLocale as New com.sun.star.lang.Locale
oDoc = ThisComponent
NumForms = oDoc.getNumberFormats()
DateKey = NumForms.queryKey("DD/MM/AAAA", sLocale, True)
Print DateKey  

Código: Seleccionar todo

'Esta linea no te funcionara pues es una estructura de OOo, tienes que crearla primero, como te muestro en el ejemplo anexo
Dim sLocale as New com.sun.star.lang.Locale
oDoc = Oo
NumForms = oDoc.getNumberFormats()
DateKey = NumForms.queryKey("DD/MM/AAAA", sLocale, True)
MsgBox DateKey

Código: Seleccionar todo

Private Sub Form_Load()
Dim ServiceManager As Object
Dim Desktop As Object
Dim Document As Object
Dim Oo As Object
Dim Plage As Object
Dim objCols As Object
Dim objCol As Object
Dim objRows As Object
Dim objRow As Object
Dim PrintArea(0)
Dim PrintArgs(2)

'Creacion de un servicio OpenOffice
Set ServiceManager = CreateObject("com.sun.star.ServiceManager")
Set Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop")
Dim args(1) As Object
Set args(0) = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
args(0).Name = "Hidden"
args(0).Value = True
Set Document = Desktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, args)
Set Oo = Document.getSheets().getByIndex(0)

'Doy formato de fecha tipo dd/mm/aaaa a la celda 0,0
Set Plage = Oo.getCellRangeByPosition(0, 0, 0, 0)
Plage.NumberFormat = 36


'Almaceno la fecha del dia en una variable de formato fecha
Dim MiFecha As Date
MiFecha = Date

'Presento el valor en el label1
Label1 = MiFecha

'Cargo el valor de MiFecha en la celda 0,0
Call Oo.getcellbyposition(0, 0).setFormula(MiFecha)

'Abro la hoja Calc
Document.getCurrentController.getFrame.getContainerWindow.setVisible (True)
Document.getCurrentController.getFrame.getComponentWindow.setVisible (True)
End Sub