Dim t As Object

Set t = CreateObject("TOpenOffice.Bridge")
t.Open "C:\MyFile.xls"
t.Visible = True
Set t = Nothing

Private Sub Command1_Click()

Dim objServiceManager As Object
Dim Desktop As Object
Dim Document1 As Object
Dim OpenParams( 0 )

Set objServiceManager = CreateObject("com.sun.star.ServiceManager")

Set OpenParams( 0 ) = OOoPropertyValue("ReadWrite", True)

Set Desktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")

Set Document1 = Desktop.LoadComponentFromURL("file:///C:/MyFile.xls", "_blank",  0 , OpenParams)

End Sub

Dim t As Object

Set t = CreateObject("TOpenOffice.Bridge")
t.Open "C:\MyFile.xls"
t.Visible = True
Set t = Nothing

Private Sub Command1_Click()

Dim objServiceManager As Object
Dim Desktop As Object
Dim Document1 As Object
Dim OpenParams()

Set objServiceManager = CreateObject("com.sun.star.ServiceManager")

Set Desktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")

Set Document1 = Desktop.LoadComponentFromURL("file:///C:/MyFile.xls", "_blank",  0 , OpenParams)

End Sub

Function OOoPropertyValue(cName, uValue)
Dim oPropertyValue As Object

Set oPropertyValue = objServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
oPropertyValue.Name = cName
oPropertyValue.Value = uValue

Set OOoPropertyValue = oPropertyValue
End Function

'Insert string, formula or value in a cell and set basics formats
'Calc_InsertStringCell("A1","My Text","0.000", "Arial",18,1,True,True)
'Calc_InsertStringCell("A1","=sum(A2:A3)","0.000", "Arial",18,1,True,True)
'Calc_InsertStringCell("A1",15.17,"0.000,00", "Arial",18,1,True,True)

Sub Calc_InsertStringCell(strCell As String, uTxt, Optional strFormat As String, Optional strFont As String, Optional intSize As Integer, Optional intPos As Integer, Optional blWrp As Boolean, Optional blAutaj As Boolean)
'strCell = Cell Address in A1 layout
'uTxt = String, formula or value to be inserted in strCell
'strFormat = Cell format to applicate (optional)
'strFont = Font name (optional)
'intSize = Font size (optional)
'intPos = 1=Left; 2=Right; 3=Justify Word Wrap; 4=Center (optional)
'blWrp = TextWrapped (optional)
'blAutaj  = ShrinktoFit (optional)

   Dim objCel As Object
   Set objCel = oSheet.getCellByPosition(Calc_ColumnNumber(strCell), Calc_RowNumber(strCell)) 'Format (Column,Row)
   Select Case TypeName(uTxt)
   Case "String"
      If Left(uTxt,  1 ) = "=" Then 'It's a formula
         objCel.setFormula uTxt
      Else 'It's a string
         objCel.setString uTxt
      End If
   Case "Double", "Integer", "Long"
      objCel.SetValue uTxt
   End Select
   If IsMissing(strFormat) = False Then
      If Len(strFormat) >  0  Then 'there is a format
         Calc_FormatRange strCell, strFormat
      End If
   End If
   If Len(strFont) >  0  Then 'There is a font name
      objCel.SetPropertyValue "CharFontName", strFont
   End If
   If intSize >  0  Then 'Ther is a font size
      objCel.SetPropertyValue "CharHeight", intSize
   End If
   If intPos >  0  And intPos <=  4  Then
      '1=Left; 2=Right; 3=Justify Word Wrap; 4=Center
      Select Case intPos
         Case  1 : objCel.SetPropertyValue "ParaAdjust",  0   'Left
         Case  2 : objCel.SetPropertyValue "ParaAdjust",  1   'Right
         Case  3 : objCel.SetPropertyValue "ParaAdjust",  2   'Justify Word Wrap
         Case  4 : objCel.SetPropertyValue "ParaAdjust",  3  'Center
      End Select
   End If
   objCel.SetPropertyValue "ShrinkToFit", blAutaj 'ShrinktoFit
   objCel.SetPropertyValue "IsTextWrapped", blWrp 'TextWrapped
End Sub

'Insert strings, formulas or values in 15 columns of a row
'Calc_InsertStringRow("A1","MyText1","MyText2", "MyText3"

Sub Calc_InsertStringRow(strCell As String, Optional uTxt01, Optional uTxt02, Optional uTxt03, Optional uTxt04, Optional uTxt05, Optional uTxt06, Optional uTxt07, Optional uTxt08, Optional uTxt09, Optional uTxt10, Optional uTxt11, Optional uTxt12, Optional uTxt13, Optional uTxt14, Optional uTxt15)
   Dim objCel As Object
   If IsMissing(uTxt01) = False Then Calc_InsertStringCell strCell, uTxt01
   If IsMissing(uTxt02) = False Then Calc_InsertStringCell Calc_ColumnAddNumber(strCell,  1 ) & Calc_RowNumber(strCell) +  1 , uTxt02
   If IsMissing(uTxt03) = False Then Calc_InsertStringCell Calc_ColumnAddNumber(strCell,  2 ) & Calc_RowNumber(strCell) +  1 , uTxt03
   If IsMissing(uTxt04) = False Then Calc_InsertStringCell Calc_ColumnAddNumber(strCell,  3 ) & Calc_RowNumber(strCell) +  1 , uTxt04
   If IsMissing(uTxt05) = False Then Calc_InsertStringCell Calc_ColumnAddNumber(strCell,  4 ) & Calc_RowNumber(strCell) +  1 , uTxt05
   If IsMissing(uTxt06) = False Then Calc_InsertStringCell Calc_ColumnAddNumber(strCell,  5 ) & Calc_RowNumber(strCell) +  1 , uTxt06
   If IsMissing(uTxt07) = False Then Calc_InsertStringCell Calc_ColumnAddNumber(strCell,  6 ) & Calc_RowNumber(strCell) +  1 , uTxt07
   If IsMissing(uTxt08) = False Then Calc_InsertStringCell Calc_ColumnAddNumber(strCell,  7 ) & Calc_RowNumber(strCell) +  1 , uTxt08
   If IsMissing(uTxt09) = False Then Calc_InsertStringCell Calc_ColumnAddNumber(strCell,  8 ) & Calc_RowNumber(strCell) +  1 , uTxt09
   If IsMissing(uTxt10) = False Then Calc_InsertStringCell Calc_ColumnAddNumber(strCell,  9 ) & Calc_RowNumber(strCell) +  1 , uTxt10
   If IsMissing(uTxt11) = False Then Calc_InsertStringCell Calc_ColumnAddNumber(strCell,  10 ) & Calc_RowNumber(strCell) +  1 , uTxt11
   If IsMissing(uTxt12) = False Then Calc_InsertStringCell Calc_ColumnAddNumber(strCell,  11 ) & Calc_RowNumber(strCell) +  1 , uTxt12
   If IsMissing(uTxt13) = False Then Calc_InsertStringCell Calc_ColumnAddNumber(strCell,  12 ) & Calc_RowNumber(strCell) +  1 , uTxt13
   If IsMissing(uTxt14) = False Then Calc_InsertStringCell Calc_ColumnAddNumber(strCell,  13 ) & Calc_RowNumber(strCell) +  1 , uTxt14
   If IsMissing(uTxt15) = False Then Calc_InsertStringCell Calc_ColumnAddNumber(strCell,  14 ) & Calc_RowNumber(strCell) +  1 , uTxt15
End Sub