Smart Tool to customize and export data from multiple NABs

	On Error Resume Next
	Dim xlFilenamei As String
	Dim xlFilenameo As String
	Dim x as integer
	Dim servername
	Dim filename
	Dim DArray
	Dim actRows As Integer
	Dim actColumns As Integer
	Dim Exceli As Variant
	Dim Excelo As Variant
	Dim xlWorkbooki As Variant
	Dim xlWorkbooko As Variant
	Dim xlSheeti As Variant
	Dim xlSheeto As Variant
	Dim object As NotesEmbeddedObject
	Dim i As Integer
	xlFilenamei = "C:\serverlist.xls"
	xlFilenameo = "C:\exporting.xls"
	Set Exceli = CreateObject( "Excel.Application" )
	Set Excelo = CreateObject( "Excel.Application" )
	Exceli.Visible = True               
	Excelo.Visible = True       
	Exceli.Workbooks.Open xlFilenamei
	Excelo.Workbooks.Open xlFilenameo
	Set xlWorkbooki = Exceli.ActiveWorkbook
	Set xlWorkbooko = Excelo.ActiveWorkbook
	Set xlSheeti = xlWorkbooki.ActiveSheet
	Set xlSheeto = xlWorkbooko.ActiveSheet
	Dim cellval As String
	Dim session As New NotesSession
	
	Dim doc As NotesDocument
	
	Dim view As NotesView
	
	
	actRows=3 ' 5 rows Please change this value to number of rows you are having in your excel sheet
	actColumns=2 ' 2 columns.Please change this value to number of rows you are having in your excel sheet

	ReDim DArray(actRows, actColumns) As String
	DArray=xlsheeti.Range("A1").Resize(actRows, actColumns).Value
	i=1
	For x=1 To actRows
		servername=Trim$(CStr(DArray(x,1)))
		filename = Trim$(DArray(x,2))
		Dim db As New NotesDatabase(servername,filename)
		Set view=db.GetView("$People")
		Set doc=view.GetFirstDocument
		
		While Not doc Is Nothing
			
			xlsheeto.Cells(i,1).value=doc.FirstName
			xlsheeto.Cells(i,2).value=doc.LastName
			xlsheeto.Cells(i,3).value=doc.InternetAddress
			
			Set doc=view.GetNextDocument(doc)
			i=i+1
		Wend
	
	Next 
	xlWorkbooko.Close(True)
		
	Exceli.quit
	Excelo.quit
	
	Set Exceli=Nothing
	Set Excelo=Nothing