Click here to Skip to main content
13,143,637 members (30,985 online)
Rate this:
Please Sign up or sign in to vote.
See more:
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("")
        odp = oSM.createInstance("")
        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("")
        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.

Posted 29-Sep-11 2:14am
Updated 4-Oct-11 23:57pm

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

  Print Answers RSS
Top Experts
Last 24hrsThis month

Advertise | Privacy |
Web03 | 2.8.170915.1 | Last Updated 5 Oct 2011
Copyright © CodeProject, 1999-2017
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