Here is one solution (there are probably many ways, some better). This works well with CLI UNO and MS VB 2005.
Imports System Imports System.Collections.Generic Imports System.Windows.Forms Imports unoidl.com.sun.star.lang Imports unoidl.com.sun.star.frame Imports unoidl.com.sun.star.container Imports unoidl.com.sun.star.sheet Imports unoidl.com.sun.star.beans Imports unoidl.com.sun.star.util Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim localContext As unoidl.com.sun.star.uno.XComponentContext = uno.util.Bootstrap.bootstrap() Dim multiServiceFactory As XMultiServiceFactory = DirectCast(localContext.getServiceManager(), unoidl.com.sun.star.lang.XMultiServiceFactory) Dim componentLoader As XComponentLoader = DirectCast(multiServiceFactory.createInstance("com.sun.star.frame.Desktop"), XComponentLoader) Dim multiComponentFactory As XMultiComponentFactory multiComponentFactory = DirectCast(multiServiceFactory.createInstance("unoidl.com.sun.star.lang"), XMultiComponentFactory) Dim xComponent As XComponent = componentLoader.loadComponentFromURL("private:factory/scalc", "_blank", 0, New unoidl.com.sun.star.beans.PropertyValue(-1) {}) Dim xNumberFormatter As unoidl.com.sun.star.util.XNumberFormatter xNumberFormatter = DirectCast(multiServiceFactory.createInstance("com.sun.star.util.NumberFormatter"), XNumberFormatter) Dim xNumberFormatSupplier As XNumberFormatsSupplier xNumberFormatSupplier = DirectCast(multiServiceFactory.createInstance("com.sun.star.util.NumberFormatsSupplier"), XNumberFormatsSupplier) xNumberFormatter.attachNumberFormatsSupplier(xNumberFormatSupplier) Dim oDoc As unoidl.com.sun.star.sheet.XSpreadsheetDocument Dim oSheets As unoidl.com.sun.star.sheet.XSpreadsheets Dim oSheet As XSpreadsheet Dim oSheetsIA As XIndexAccess oDoc = xComponent oSheets = oDoc.getSheets oSheetsIA = oSheets oSheet = oSheetsIA.getByIndex(0).Value oSheet.getCellByPosition(0, 0).setFormula(xNumberFormatter.convertNumberToString(34, 40035.0)) 'August oSheet.getCellByPosition(0, 1).setFormula(xNumberFormatter.convertNumberToString(35, 40035.0)) '3rd quarter 09 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End Sub End Class -- View this message in context: http://www.nabble.com/Cli-Uno-MS-visual-basic-2005---cannot-format-cell-programatically-tp24943858p24977304.html Sent from the openoffice - dev mailing list archive at Nabble.com. --------------------------------------------------------------------- To unsubscribe, e-mail: dev-unsubscr...@openoffice.org For additional commands, e-mail: dev-h...@openoffice.org