Mark XY Brown 26.May.11 01:37 PM a Web browser Domino Designer 6.0.3 Windows XP
I'm working on an RFC database, and have hit a snag with exporting view totals. I've created a couple of views that summarise completed RFCs and then give counts according to closure code. There's a hidden column that controls the sort order, a categorised column that holds the RFCs' classification and then six computed columns (total RFCs, Incomplete, Successful, Failed, failed/Backed Out, Cancelled). These six all either compute to 0 or 1, and are set to give a sum. The view is set to collapse when first opened.
I've been asked to provide the facility to export the totals as displayed when the view is first opened. According to my reading of the Help file, the view entry properties IsCategory and IsTotal should help me with this.
My script follows:
Sub Click(Source As Button)
'Export the category and total rows for this view
Dim ws As New NotesUIWorkspace
Dim vwThis As NotesView
Dim vecThis As NotesViewEntryCollection
Dim veThis As NotesViewEntry
Dim xlApp As Variant
Dim xlSheet As Variant
Dim intCol As Integer
Dim intRow As Integer
'Populate and format the Excel objects
Set xlApp = CreateObject("Excel.Application")
Set xlSheet = xlApp.ActiveWorkbook.ActiveSheet
However, this does not export any totals. When I stepped through the code, the If statement never registered True. Also, when I looked at the View Entry Collection properties, it showed the same number of entries as there were documents in the view.