hi
I have a categorized view, and i am trying to export through LOTUS 1-2-3 method, by going to file-Export…
When i haad selected 199 documents from the view and do a lotus 1-2-3 exportit works well, but when i select 200 + and above, only null values(Blank Excel Sheet ) is coming. Please let me know the fix
Thanks
Samy
Subject: Unable to export – Second time pl’s help
Hi Samy,There is one more thing which u can do.
Firstly, create write an agent in lotus script as the one below:
*code
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim fmlaitem As notesitem
Dim myobject As Variant
Dim mysheet As Variant
Dim uiview As NotesUIView
Dim ws As New NotesUIWorkspace
Dim collection As NotesDocumentCollection
Dim column As NotesViewColumn
On Error Goto generalError
Set db=session.currentDatabase
Print "Please Be Patient as the Excel Spreadsheet is being created..."
Set uiview=ws.currentView
Set view=uiview.View
Set collection = db.UnprocessedDocuments
Set doc=collection.getFirstDocument
If doc Is Nothing Then
Msgbox "No record found"
End
End If
Set myobject=createObject("Excel.application")
On Error Goto theError
myobject.statusbar="Creating Excel Sheet"
myobject.workbooks.add
Set mysheet=myobject.workbooks(1).Worksheets(1)
mysheet.name="Review"
count=2
Dim fmlaval As Variant
For i = 1 To collection.count
Forall c In view.Columns
mysheet.cells(1, c.Position).value=c.Title
mysheet.cells(1,c.Position).Font.Bold = True
If c.formula <> "" Then
fmla = c.formula
fmlaval = Evaluate(fmla, doc)
Else
item = c.ItemName
fmlaval = doc.GetItemValue( item )
End If
mysheet.cells(count, c.position).value = fmlaval
End Forall
Set doc=collection.getNextDocument(doc)
count=count+1
Next
myobject.statusbar="Finished"
mysheet.Columns.shrinktofit = True
mysheet.Columns.autofit
myobject.visible=True
End
theError:
myobject.quit
Msgbox Error()
End
generalError:
Msgbox Error()
End
End Sub
Then select as many documents required from the view and run the agent.