Доступ к таблице Open Office

Подскажите пожалуйста. Есть код для достута к таблице Excel(сокращенный). Как мне тоже самое сделать с таблицей OpenOffice
Sub Opisanie1()
Dim file1 As String
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
'получение ссылки на документ Excel
Set xlApp = Excel.Application
Set xlBook = xlApp.Workbooks.Open("C:\Таблица1.xls")
file1 = Excel.Application.GetSaveAsFilename("Таблица1.xls", "Excel Files (*.xls), .xls")
If file1 = "False" Then 'если ошибка то выходим из программы
  Exit Sub
End If
xlBook.SaveAs file1
For i = 1 To 1000
   KNStr = Cells(i, 1).Value
   If Trim(KNStr) = "Кадастровый номер:" Then
     Cells(i + 1, 1).Value = "53:11:12000000"
  End If
Next i
Cells(i + 1, 1).Select
Selection.EntireRow.Ins ert , CopyOrigin:=xlFormatFromLeftOrAbove 'вставка строки
' X
Range(Cells(i + i, 1), Cells(i + i, 2)).Select
With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = True 'объединение ячеек
        .Font.Bold = False
    End With
xlBook.Save
xlBook.Close
xlApp.Quit
Set xlSheet = Nothing
Set xlBook = Nothing
Se t xlApp = Nothing
End Sub
Нужен доступ к листу таблицы, запись значения в произвольную ячейку, вставка строки, и объединение ячеек.
Может у кого ссылка есть. Спасибо.