Cibys Thawts
Just my blabber
Monday, February 20, 2012
Tuesday, January 25, 2011
Saturday, April 29, 2006
Thursday, December 22, 2005
Tuesday, November 22, 2005
Lotus Notes and Excel Pivot table.
Atlast I was able to generate a Pivot Table in Excel from Lotus Notes. Excel is very powerful, so by using its features reporting becomes very simple. I am posting the approach and code here so that it may be of use to any one who may come across the same problem.
Lotus Client : 5.08
Excel : Version 92
Challenges
Atlast I was able to generate a Pivot Table in Excel from Lotus Notes. Excel is very powerful, so by using its features reporting becomes very simple. I am posting the approach and code here so that it may be of use to any one who may come across the same problem.
Lotus Client : 5.08
Excel : Version 92
Challenges
- An error message stating cannot access the property of the class or cannot access the method. For eg. "Unable to get the PivotTableWizard property of the Worksheet class"
Approach
- Lotus Script may not recognize the extented syntax for the OLE object, so every object has to be individually declared and accessed.
- Sheet Name shouldnot contain spaces
Code
See the thread in Lotus Forum for I have posted the code.
Sub createPivotTable (xlSheet As Variant,datarange As String,targetsheet As
String,xlPivotTableName As String, xlFieldlist List As PivotFieldList)
Dim xlPivotField As Variant
Dim xlPivotTable As Variant
Call xlsheet.PivotTableWizard ( 1, dataRange, targetSheet,xlPivotTableName)
Set xlPivotTable = xlSheet.PivotTables(xlPivotTableName)
Forall x In xlFieldList
Set xlPivotField =xlPivotTable.PivotFields(Listtag(x))
xlPivotField.Orientation = xlFieldlist(Listtag(x)).xlOrientation
If xlFieldlist(Listtag(x)).xlFunction<>0 Then
xlPivotField.Function = xlFieldlist(Listtag(x)).xlFunction
End If
End Forall
End Sub
Sunday, October 23, 2005
I have been lazy to type, I am updating the site www.cibys.com. I had it in geocities india , but some how google is not crawling to it. So to test a theory of mine I am moving it to geocities in US. Let me wait for 3 months for the results.
Subscribe to:
Posts (Atom)