All of the program code and information presented in the OpenNTF.org Code Bin are provided "as-is", and should be used at your own risk. OpenNTF.org make no express or implied warranty about anything in the Code Bin, and OpenNTF.org will not be responsible or liable for any damage caused by the use or misuse of anything from this site. OpenNTF.org makes no guarantees about anything. Please thoroughly test all of the knowledge and code you find here before you attempt to use them in your production environment.

I wanted to have an Excel reporting class, because i often use Excel for reporting purposes of Lotus Notes. I didn't find any appropriate example on the internet. So I did it myself with

http://www.11tmr.com/11tmr.nsf/d6plinks/MWHE-6AVMHV

as inspiration.

Well, somehow I got carried away :-) I think the current state might be of interest to others, so here it is.

Ideas are appreciated!

V1.2.0
---------
QUICK ADDITION: had to disable the destructor, didn't work as intended
- added some comments
- reentered "isWithheader" functionality in view export (somehow that got lost). Check your number of parameters for that function if you already use it !!
- added class destructor

V1.1.0
--------
- basic functionality

Just use the database. It includes the complete ExcelReport class and two agent examples. As a teaser, the following is all you need to export a view to excel in LotusScript:

...
Set view = ws.CurrentView.View
Set report = New ExcelReport(excelfilepath, False)
Call report.exportNotesView(view, Sheet, OffsetX, OffsetY, isWithHeader, includeIcons, includeColors, includeHidden)
Call report.setVisibility(True)
...

Of course the obvious (getting and setting cells, saving, ...) is also included. Be careful, because error handling is not yet implemented.

Here are the implemented methods:

Sub new (xlFilename As String, isVisible As Boolean)
Sub delete ()
Function save ()
Function saveAs (filename as String)
Function quit ()
Function setCell ( Sheet As Variant , row As Integer , column As Variant , value As String )
Function getCell ( Sheet As Variant , row As Integer , column As Variant ) As String
Function setVisibility (isVisible As Boolean)
Function setCellColor ( Sheet As Variant , row As Integer , column As Variant, innercolor As Variant )
Function setCellFont ( Sheet As Variant , row As Integer , column As Variant, style As Variant, size As Variant, color As Variant )
Function getVersion () As String
Function exportNotesView (view As NotesView, Sheet As Variant, OffsetRow As Integer, OffsetCol As Integer, isWithHeader as Boolean, includeIcons As Boolean, includeColors As Boolean, includeHidden As Boolean)


C.