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
	For x=1 To actRows
		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
			Set doc=view.GetNextDocument(doc)
	Set Exceli=Nothing
	Set Excelo=Nothing
All code submitted to OpenNTF XSnippets, whether submitted as a "Snippet" or in the body of a Comment, is provided under the Apache License Version 2.0. See Terms of Use for full details.
1 comment(s)Login first to comment...
Georgio Sergini
(at 04:17 on 04.10.2016)
Sweet, just what I was looking for! Thanks v.much!