Click here to Skip to main content
11,705,123 members (47,497 online)
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 2:14am
Edited 4-Oct-11 23:57pm
v4

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

  Print Answers RSS
0 Sergey Alexandrovich Kryukov 595
1 OriginalGriff 289
2 Andy Lanng 175
3 CPallini 162
4 ppolymorphe 126
0 OriginalGriff 8,958
1 Sergey Alexandrovich Kryukov 8,276
2 CPallini 5,189
3 Maciej Los 4,726
4 Mika Wendelius 3,606


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