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

   Set oSOffice = CreateObject("com.sun.star.ServiceManager")
   Set oDesk = oSOffice.createinstance("com.sun.star.frame.Desktop")

   Set oFile = oDesk.loadComponentFromURL("private:factory/scalc", "_blank",  0 , vArg())
   Set oSheets = oFile.getSheets()

   oSheets.InsertNewByName strMySheetName,  0 

   If oSheets.Count >  1  Then 
      Do While oSheets.Count >  1 
         Set oSheet = oSheets.getByIndex(oSheets.Count -  1 )
         oSheets.RemoveByName (oSheet.Name)
      Loop
   End If

   Set oSheet = oFile.getSheets().getByName(strNomeRelat)
   Set oControl = oFile.getCurrentController()
   oControl.setActiveSheet oSheet

   oSheet.SetPropertyValue "CharFontName", "Arial"
   oSheet.SetPropertyValue "CharHeight",  10 

   Set objCel = oSheet.getCellByPosition(MyCol,MyRow)

   Select Case TypeName(MyText)
   Case "String"
      If Left(MyText,  1 ) = "=" Then 
         objCel.setFormula MyText
      Else
         objCel.setString MyText
      End If
   Case "Double", "Integer", "Long"
      objCel.SetValue MyText
   End Select

   Set objCel = oSheet.getCellByPosition(MyCol,MyRow)
   oType = objCel.getType()
   Select Case oType
   Case  1 
      MyValue = objCel.getValue()
   Case  2 
      MyValue = objCel.getString()
   Case  3 
      MyValue = objCel.getFormula()
   End Select

   Set oRow = oSheet.GetRows().getByIndex(intRow)
      oRow.Width = varSize
или
      oRow.optimalHeight = True 'Autofit


   Set oCol = oSheet.getColumns().getByIndex(intCol)
      oCol.Width = varSize
или
      oCol.optimalWidth = True 'Autofit

   Set oRange = oSheet.getCellRangeByName(strRange)

   Dim oServiceManager As Object
   Set oServiceManager = CreateObject("com.sun.star.ServiceManager")
   Dim oLocale As Object
   Set oLocale = oServiceManager.bridge_getstruct("com.sun.star.lang.Locale")
   Dim oFormats As Object
   Set oFormats = oFile.getNumberFormats()
   Dim lngFormatNum As Integer
   lngFormatNum = oFormats.queryKey(strNewFormat, oLocale, True) 
  If (lngFormatNum = - 1 ) Then 
    lngFormatNum = oFormats.AddNew(strNewFormat, oLocale)
    If (lngFormatNum = - 1 ) Then lngFormatNum =  0 
  End If
  
   oRange.NumberFormat = lngFormatNum

      objCel.SetPropertyValue "CharFontName", strFonte
      objCel.SetPropertyValue "CharHeight", intTamanho
 
      Select Case intAlignment
         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

   objCel.SetPropertyValue "ShrinkToFit", True
   objCel.SetPropertyValue "IsTextWrapped", True

   Dim oRange As Object
   Set oRange = oSheet.getCellRangeByName(strRange)
   oRange.Merge (True)
   oRange.ParaAdjust = intParaAdjust

   Dim oRange As Object
   Set oRange = oSheet.getCellRangeByName(strRange)
   Dim oTableBorder As Object
   Set oTableBorder = oSheet.TableBorder
    
   Dim oTBorder As Object
   Set oTBorder = oTableBorder.TopLine
   oTBorder.Color = lngColor
   oTBorder.OuterLineWidth = intLineWidth
   oTableBorder.TopLine = oTBorder
    
   Dim oBBorder As Object
   Set oBBorder = oTableBorder.BottomLine
   oBBorder.Color = lngColor
   oBBorder.OuterLineWidth = intLineWidth
   oTableBorder.BottomLine = oBBorder
    
   Dim oLBorder As Object
   Set oLBorder = oTableBorder.LeftLine
   oLBorder.Color = lngColor
   oLBorder.OuterLineWidth = intLineWidth
   oTableBorder.LeftLine = oLBorder
    
   Dim oRBorder As Object
   Set oRBorder = oTableBorder.RightLine
   oRBorder.Color = lngColor
   oRBorder.OuterLineWidth = intLineWidth
   oTableBorder.RightLine = oRBorder
    
   oTableBorder.IsTopLineValid = True
   oTableBorder.IsBottomLineValid = True
   oTableBorder.IsLeftLineValid = True
   oTableBorder.IsRightLineValid = True
    
   oRange.SetPropertyValue "TableBorder", oTableBorder

   Dim oFamilies As Object   'Families Styles
   Dim oPageStyles As Object 'Page Styles
   Dim oPageStyle As Object  'Page Style in use
   Dim sNomesEstilos         'Style Names
   Dim oHeader As Object     'Header
   Dim oFooter As Object     'Footer
   Dim intCont As Integer    'Counter
    
   'Select Default Style
   Set oFamilies = oFile.getStyleFamilies()
   Set oPageStyles = oFamilies.getByName("PageStyles")
   If oPageStyles.hasByName("Default") = False Then 'There's no Default Style, so make it
      Set oPageStyle = oFile.createinstance("com.sun.star.style.PageStyle")
      oPageStyles.insertByName "Padrão", oPageStyle
   Else 'Default style exists, so select it to changes
      sNomesEstilos = oPageStyles.getElementNames()
      For intCont = LBound(sNomesEstilos) To UBound(sNomesEstilos)
         If sNomesEstilos(intCont) = "Default" Then
            Exit For
         End If
      Next intCont
      Set oPageStyle = oPageStyles.getByName(sNomesEstilos(intCont))
   End If
   oPageStyle.LeftMargin =  2000 
   oPageStyle.RightMargin =  500 
   oPageStyle.TopMargin =  1000 
   oPageStyle.BottomMargin =  1000 
    
   'Enable Header and Footer
   oPageStyle.HeaderIsOn = True
   oPageStyle.FooterIsOn = True
    
   'Header inicialization
   Set oHeader = oPageStyle.RightPageHeaderContent
    
   'Set Header botton border
   Dim oHBBorder As Object
   Set oHBBorder = oPageStyle.HeaderBottomBorder
   oHBBorder.Color = vbBlack
   oHBBorder.OuterLineWidth =  100 
   oPageStyle.HeaderBottomBorder = oHBBorder
    
   'Set Left Header
   oHeader.LeftText.String = "RC Software" 'Your program name
   oHeader.LeftText.Text.CharFontName = "Arial"
   oHeader.LeftText.Text.CharHeight =  8 
    
   'Set Center Header
   oHeader.CenterText.String = "Usuário: " & strLogin 'Logged user name
   oHeader.CenterText.Text.CharFontName = "Arial"
   oHeader.CenterText.Text.CharHeight =  8 
    
   'Set Right Header
   Dim oFieldPageNumber As Object 'Field Page Number
   Dim oFieldPageCount As Object  'Field Page Numbers
   Dim oHRText As Object          'Header Right Text to insert the field
   Dim oHRCursor As Object        'Header Right Cursor to insert the field
   Set oFieldPageNumber = oFile.createinstance("com.sun.star.text.TextField.PageNumber")
   Set oFieldPageCount = oFile.createinstance("com.sun.star.text.TextField.PageCount")
   Set oHRText = oHeader.RightText
   Set oHRCursor = oHRText.CreateTextCursor()
   oHeader.RightText.Text.CharFontName = "Arial"
   oHeader.RightText.Text.CharHeight =  8 
   oHRText.insertstring oHRCursor, "Fls.:", False
   oHRText.insertTextContent oHRCursor, oFieldPageNumber, False
   oHRText.insertstring oHRCursor, "/", False
   oHRText.insertTextContent oHRCursor, oFieldPageCount, False
      
   'Insert all Header informations into sheet
   oPageStyle.RightPageHeaderContent = oHeader

   'Footer initialization
   Set oFooter = oPageStyle.RightpageFooterContent
    
   'Set Top Footer border
   Dim oFTBorder As Object
   Set oFTBorder = oPageStyle.FooterTopBorder
   oFTBorder.Color = vbBlack
   oFTBorder.OuterLineWidth =  100 
   oPageStyle.FooterTopBorder = oFTBorder
    
   'Set Left Footer
   oFooter.LeftText.String = "Gerado em " & Format(Now, "dd/mm/yyyy - hh:mm:ss")
   oFooter.LeftText.Text.CharFontName = "Arial"
   oFooter.LeftText.Text.CharHeight =  8 
    
   'Set Center Footer
   oFooter.CenterText.String = "Rodapé Centro"
   oFooter.CenterText.Text.CharFontName = "Arial"
   oFooter.CenterText.Text.CharHeight =  8 
    
   'Set Right Footer
   Dim oFieldFileName As Object  'Field File Name
   Dim oFRText As Object         'Footer Right Text to insert a field
   Dim oFRCursor As Object       'Footer Right Cursor to insert a field
   Set oFRText = oFooter.RightText
   Set oFRCursor = oFRText.CreateTextCursor()
   Set oFieldFileName = oFile.createinstance("com.sun.star.text.TextField.FileName")
   oFieldFileName.SetPropertyValue "FileFormat",  0  'File name with path
   oFRText.insertstring oFRCursor, "Arq.:", False
   oFRText.insertTextContent oFRCursor, oFieldFileName, False
   oFooter.RightText.Text.CharFontName = "Arial"
   oFooter.RightText.Text.CharHeight =  8 
    
   'Insert all Footer informations into sheet
   oPageStyle.RightpageFooterContent = oFooter

   oPageStyle.isLandscape = False
   oControl.ShowGrid = False
   oFile.print(vArg)

Set Args( 0 ) = oServ.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
Args( 0 ).Name = "FilterName"
Args( 0 ).Value = "MS Excel 97"
 
Doc.StoreToURL "file:///C:/MyReport.xls", Args
Doc.Close (True)
Doc.Terminate()