Public Function MySample()
Dim oServiceManager As Object
Dim oCalcDoc As Object
Dim oBook As Object
Dim oSheet As Object
Dim aNoArgs()
On Error GoTo Sample_OOO_Error

Dim cUrl As String
Set oServiceManager = CreateObject("com.sun.star.ServiceManager")
Set oCalcDoc = oServiceManager.createInstance("com.sun.star.frame.Desktop")
cUrl = ConvertToUrl("c:\Sh1" + ".ots")
Set oBook = oCalcDoc.loadComponentFromURL(cUrl, "_blank", 0, aNoArgs())
Set oSheet = oBook.getSheets().getByIndex(0)
Call oSheet.getCellByPosition(1, 2).SetFormula("Иванов")

Set oBook = Nothing
Set oSheet = Nothing
Set oCalcDoc = Nothing
Set oServiceManager = Nothing
On Error GoTo 0
   Exit Function

Sample_OOO_Error:
    Select Case Err.Number
        Case 1001
            MsgBox "Ошибка при сохранении файла. Файл занят другим приложением."
        Case Else
            MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure Sample_OOO"
        End Select

End Function