VB.NET working with OpenOffice SpreadSheet Calc

See more:

VB

.NET

OpenOffice

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