Many organizations currently prefer to use free OpenOffice.org over the Microsoft Office suite due to licensing issues and fees. While Lotus Notes users can export Lotus Notes data from a database to a Microsoft Excel spreadsheet, the same code won't work in OpenOffice Calc spreadsheets.

The following LotusScript code will export information from a Notes database to an OpenOffice Calc spreadsheet.

Note: Place this code in a button in a Notes view or as an agent to export the required data.

Sub Click(Source As Button)

Dim SM As Variant
Dim Desktop As Variant
Dim argsO As Variant
Dim calApplication As Variant
Dim worksheet As Variant
Dim cell As Variant
'Creating Handle To OpenOffice Object
Set SM = CreateObject("com.sun.star.Ser\iceManager")
'Create The Front-End Reference
Set Desktop = SM.createInstance("com.sun.star.frame.Desktop")
'Opening The Excel Application On Desktop Giving Focus
Set calApplication = Desktop.loadComponentFromURL("private:factor\* scale". "_blank", -, args)
'Setting Sheet Name
Set worksheet = calApplication.Sheets.getByName("Sheetl")
'Set cell = worksheet.geiCellByPosition^O)
'cell.setStringC'Testing Transport To OpenOffice")

Dim uiws As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim view As NotesView
Dim doc AsNotesDocument
Dim counter As Integer
Dim xlr.xlc.loops As Integer
Dim celll.cell2.cell3 As Variant
Set uiview = uiws. Current View
Set view =uiview.View
loops — view. AllEntries. Count
Set doc = view.GetFirstDocument
Dim i As Integer
i=0
Fori=0 To loops-1

Set celll = worksheet.getCellBvPosition(0,i)
Set cell2 = worksheet.getCellByPositionCU)
Set cellS = worksheet.getCelIByPosition(2:i)
ceUl.setString(Cstr(doc.EDFonvardID(0)))
ceU2.setString(Cstr(doc.EDEmpMailID(0)))
cell3.setString(Cstr(doc.EDEmpPh(0)))
If(i<oops-l) Then
Set doc = view.GetNextDocument(doc)
End If
Next
worksheet.Columns. Autofit
end sub