час58,
файл обычный, без наворотов
но применяется автоматизация --вывод отчета в опен офис
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
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
