How to export documents on web to excel sheet

HCL Domino Domino Forum
1

HI ALL

i want to export documents in to excel sheet on the web how to do this can any one send code for this

hope experts send code for my requirement…

2

Subject: how to export documents on web to excel sheet

Sub Initialize

On Error Goto myerr

Dim db As NotesDatabase

Dim qs As NotesView

Dim nv As NotesViewNavigator

Dim ne As NotesViewEntry

Set s=New notessession

Set db=s.currentdatabase

Set qs = db.GetView("ABC") 'Write View name

Set nv = qs.CreateViewNav



Set ne = nv.GetFirst

	

Print |Content-Type:application/vnd.ms-excel|

Print |<table border="1">	<tr><td width="80" bgcolor='#C4ECFF'><B>Column Title 1</B></td><td bgcolor='#C4ECFF'><B>Column Title 2.</B></td><td bgcolor='#C4ECFF'><B>Column Title 3</B></td><td bgcolor='#C4ECFF'><B>Column Title 4</B></td></tr>|



While Not(ne Is Nothing)

	Set doc=ne.Document 

	Print |<tr><td>| + doc.fieldname1(0) + |</td><td>| + ne.Columnvalues(1) + |</td><td>| + ne.Columnvalues(2) + |</td><td>| + ne.Columnvalues(3)+ |</td></tr>|

	Set ne= nv.GetNext( ne )			

Wend





Print |</table>|

Exit Sub

myerr:

Msgbox"Error occured in Agent of  " +dbtitle(0)+ " is "+Error$+" at  "+Cstr(Erl)

myerror

Exit Sub

End Sub

Try out this agent to get view’s doucment into excel…

3

Subject: How to use search :wink:

http://www-10.lotus.com/ldd/nd6forum.nsf/Search?SearchView&Query=export%20and%20web%20and%20excel&SearchOrder=0&Start=1&Count=100

You’d be amazed what you’ll find if you just search around a bit…

4

Subject: how to export documents on web to excel sheet

The easiest way is to use notesstream class to create a .csv file which is a plain text file that can be easily read by excel.

5

Subject: RE: how to export documents on web to excel sheet

Why NotesStream instead of more regular Print#filenumber,text ?