Click here to Skip to main content
Rate this: bad
good
Please Sign up or sign in to vote.
See more: VB .NET Open-Office
I have a code that write a ODS file.
        Dim xr = Replace("C:\Documents and Settings\SOFT07\Desktop\", "\", "/") + "/Test.ods"
        Dim xr2 = Replace("C:\Documents and Settings\SOFT07\Desktop\", "\", "/") & "/TestC.ods"
 
        FileCopy(xr, xr2)
        Url = "file:///" & xr2
        oSM = CreateObject("com.sun.star.ServiceManager")
        odp = oSM.createInstance("com.sun.star.frame.Desktop")
        odc = odp.loadComponentFromURL(Url, "_blank", 0, Dummy)
        oss = odc.Sheets(0)
        os = oss.getByIndex(0)
 
        Dim OpenPar(1) As Object 
 
        Dim dispatch As Object
        dispatch = oSM.createInstance("com.sun.star.frame.DispatchHelper")
 
        MsgBox(os.getCellByPosition(0, 0).String)
        Cell = os.getCellByPosition(1, 1)
        Cell.String = "TEST OF MAKE FONT BOLD"
        Cell.CharWeight = 150
 
When this code is executed
        odc = odp.loadComponentFromURL(Url, "_blank", 0, Dummy)
the ODS file opens, is there a way to read the file but it won't open.
 
Thanks
Posted 29-Sep-11 3:14am
Edited 5-Oct-11 0:57am
v4

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



Advertise | Privacy | Mobile
Web01 | 2.8.141220.1 | Last Updated 5 Oct 2011
Copyright © CodeProject, 1999-2014
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100