Export Data to Excel (CSV)

Sub Initialize

	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim fileName As String
	Dim fileNum As Integer
	Dim headerstring As String
	Dim values As String
	Dim selection As String
	Dim collection As NotesDocumentCollection
	Dim doc As NotesDocument
	
	On Error Resume Next

	Set db = session.CurrentDatabase

	ForAll form In db.Forms
		If IsEmpty(form.Fields) Then
			MessageBox form.Name & " has no fields"
		Else
			'Export Form
			Dim fieldcount As Integer
			Dim msgString As String           
			If form.Name = "FORMNAME" Then            
				fieldCount = 0
				msgString = ""
				fileNum% = FreeFile()
				fileName$ = "c:\temp\export\" & form.Name & ".csv"
				Open FileName$ For Output As fileNum%

				ForAll Field In form.Fields
					msgString = msgString & Chr(10) & _
					"" & Field
					fieldCount = fieldCount + 1  
					headerstring=headerstring & |"| &Field &|",| 
				End ForAll

				Write #fileNum%,  |",| & headerstring & |"|
				headerstring=""
			Else
			End If

		End If

		selection = |Form="| & form.Name & |"|
		Set collection=db.Search(selection, Nothing, 0)
		
		Dim x As Integer
		Dim newvalue As Variant
			Set doc = collection.GetFirstDocument
			Do Until (doc Is Nothing)
				values=""
				ForAll formfield In form.Fields
					newvalue=doc.GetItemValue(formfield)
					values=values & |"| & newvalue(0) & |",| 
				 End ForAll

				Write #fileNum%,  |",| & values &|"|
				values=""
				Set doc = collection.GetNextDocument(doc)
			Loop

					ForAll aliaz In form.Aliases
					If aliaz = form.Name Then
						GoTo NextAliaz   'alias is same as form name
					End If
					selection = |Form="| & aliaz & |"|  
					Set collection=db.Search(selection, Nothing, 0)

						Set doc = collection.GetFirstDocument
						Do Until (doc Is Nothing)
							values=""
							ForAll formfield In form.Fields
								newvalue=doc.GetItemValue(formfield)
								values=values & |"| & newvalue(0) & |",| 
							End ForAll

							Write #fileNum%,  |",| & values &|"|
							values=""
							NextAliaz:
							
						Set doc = collection.GetNextDocument(doc)
						Loop
					End ForAll
				
				Close fileNum%
			End ForAll
End Sub