Замечание к документу "ещё уточнения и вопросы!!!"   >>>

Тема: ну, примерно, вот так (+)

значит, это класс для экспорта представления

есть класс для MS Excel, этот - компиляция, причём недоделанная

В примере я переделал вывод в третью строку - раз у Вас работа с "объединённой ячейкой" - у меня тоже получилось

Как добирались до Row выделено ярко-синим

Вот до колонтитулов не добирались

Sub New (session As NotesSession, uiview As NotesUIView, newInstance As Variant)
Set Me.session = session
Set Me.currentDatabase = session.currentDatabase
Set Me.currentView = uiview.View
Set Me.oleObject = createObject("com.sun.star.ServiceManager") ' создание объекта приложения MS Excel
'Create the CoreReflection service that is later used to create structs
Set CoreReflection= oleObject .createInstance("com.sun.star.reflection.CoreReflection")
Set Desktop= oleObject .createInstance("com.sun.star.frame.Desktop")
'Set Document= oleObject .createInstance("com.sun.star.frame.Desktop.Document")
'Open a new empty writer document
Dim args()
Set Document= Desktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, args)
Set Sheets = Document.Sheets
'Dim NewSheetName As String
Set Me.Sheet = Sheets.getByIndex(0)
Set Cols=Sheet.Columns
Set Rows=Sheet.Rows
startRow = 6

End Sub

' В первой строке - наименование базы данных
Set range = Me.Sheet.getCellRangeByName("A1:" & Me.NameColumn(Me.columnCount) & "1")
range.merge( True )
Set Cell = Sheet.getCellByPosition(0,0)
Call Me.alignRange(cell, xlLeft, xlCenter, False, 0, False, 0, False, xlContext)
Call Me.rangeFontText(cell, "Arial Cyr", 12, False, False, False, False, False, xlUnderlineStyleNone, xlAutomatic, False, False)

Dim s As Variant
s= Me.currentDatabase.title
Call ValueToCell(cell,s)
' Во второй строке - наименование представления
Set range = Me.Sheet.getCellRangeByName("A2:" & Me.NameColumn(Me.columnCount) & "2")
range.merge( True )
Set Cell = Sheet.getCellByPosition(0,1)
Call Me.alignRange(cell, xlLeft, xlCenter, False, 0, False, 0, False, xlContext)
Call Me.rangeFontText(cell, "Arial Cyr", 11, False, False, False, False, False, xlUnderlineStyleNone, xlAutomatic, False, True)
s= Me.currentView.name
Call ValueToCell(cell,s)
' В третьей строке - имя пользователя, построившего отчёт
Set range = Me.Sheet.getCellRangeByName("A3:" & Me.NameColumn(Me.columnCount) & "4")
range.merge( True )
Set Cell = Sheet.getCellByPosition(0,2)
Set Rows=Me.Sheet.Rows
Set Row=Rows.getByIndex(2)
Dim rowheight As Long
rowheight=2050
Call RowH(row,0,rowheight)
Call Me.alignRange(cell, xlLeft, xlCenter, False, 0, False, 0, False, xlContext)
Call Me.rangeFontText(cell, "Arial Cyr", 10, False, False, False, False, False, xlUnderlineStyleNone, xlAutomatic, False, False)
result = Evaluate({@Name([CN]; @UserName(1))})
s = "Отчёт построен для: " & result(0)
Call ValueToCell(cell,s)
End Sub