<div>
 If &nbsp;RepDoc.Form(0) = &quot;bpq_form&quot; Or &nbsp; RepDoc.Form(0) = &quot;second_bpq_form&quot; Then 
 

</div>

<div>
OK I tried this, adding it to the RepKey as well &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;RepKey = &quot;bpq_form&quot; &nbsp;Or &nbsp;RepKey = &quot;second_bpq_form&quot; 
 
But I am not getting any data in the export
</div>

<div>
That's not the right way to lookup the view. 
This way the code tries to put boolean value in your RepKey variable - True or False (operator Or produces Boolean result). 
 
Instead use two collections (what? You get only one document from RepView, not collection, and bellow you go through the loop. 
 
You'll need to post the whole code. 
 
Pseudo code: 
 
get first collection (&quot;bpq_form&quot;) 
get second collection (&quot;second_bpq_form&quot;) 
 
loop through first collection 
loop through second one 
 
Hope this helps, 
mb¤
</div>

<div>
Is there another way I could just filter the view down to these 2 forms and then have the RepKey be linked to a common field on the forms? I have normally keyed off the form name, but can it be linked to something else? This would be much easier, let it pull all records in the view. 
</div>

<div>
You can get all documents in a view, using ViewEntryCollection 
 
BTW, viewentrycollection is much quicker to handle than documentcollection, specially when we can use columns of view, instead of document object. 

<pre><code class="code-10 nolinks" id="code-124358">Dim vec As NotesViewEntryCollection
Dim ve As NotesViewEntry
' ... '
Set Repview = db.GetView( &quot;(bpq_all)&quot;) 
	
' Get all documents in view as view entries'
Set vec = Repview.AllEntries
	
Set ve = vec.GetFirstEntry
Dim doc As NotesDocument
	
While Not ve Is Nothing
	Set doc = ve.Document
		
	If doc.Form(0) = &quot;bpq_form&quot; Or doc.Form(0) = &quot;second_bpq_form&quot; Then
		' ... your code ...'
	End If
 
	Set ve = vec.GetNextEntry(ve)
Wend
</code></pre>
</div>

<div>
If you have field Form as column in view, then we can speed up while loop, using construction: 

<pre><code class="code-10 nolinks" id="code-124364">Dim doc As NotesDocument
Dim colVals As Variant 
 
While Not ve Is Nothing
 
 colVals = ve.ColumnValues
 ' * Number N is number of column with Form name * '
 If colVals(N) = &quot;bpq_form&quot; Or colVals(N) = &quot;second_bpq_form&quot; Then
 ' Create document object oly if form is right type'
 Set doc = ve.Document
 ' ... your code ...'
 End If
 
 Set ve = vec.GetNextEntry(ve)
Wend
</code></pre>
</div>

<div>
OK I tried to work this last suggested code in, but I must have something wrong in the sequence. It does not bring any data back, plus it keeps running it indifinitely, I had about 40 excel sheets going before I finally had to do a hard shutdown. I am going to inlcude the full code as I have it right now. One thing I wonder is do I have adjust the setting of the RepKey value at all? 
 
RepKey = &quot;bpq_form&quot; &nbsp;Or &nbsp;RepKey = &quot;nef_bpq_form&quot; 

<pre><code class="code-10 nolinks" id="code-124561">Sub Click(Source As Button)
	
	Dim session As New NotesSession
	Dim workspace As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim doc As NotesDocument
	Dim colVals As Variant 
	Dim Mgrdc As NotesDocumentcollection
	Dim MgrDoc As notesDocument
	
	Dim Repdc As NotesDocumentCollection 
	Dim RepDoc As NotesDocument
	Dim RepDoc2 As NotesDocument
	Dim mgrview As NotesView 
	Dim RepView As NotesView
	Dim RepView2 As NotesView
	Dim txt_Agency As String 
	Dim tmp_NotesName As NotesName
	Dim MgrKey, RepKey, ADKey As String
	Dim RepKey2 As String
	Dim xlApp As Variant
	Dim xlSheet As Variant
	Dim i As Integer
	Dim x As Integer
	Set db = session.CurrentDatabase
	Set Mgrdc = db.UnprocessedDocuments
	Set Mgrdoc = Mgrdc.GetFirstDocument
	On Error Resume Next
	While Not ve Is Nothing
		
		colVals = ve.ColumnValues
 ' * Number N is number of column with Form name * '
		If colVals(1) = &quot;bpq_form&quot; Or colVals(1) = &quot;nef_bpq_form&quot; Then
 ' Create document object oly if form is right type'
			Set doc = ve.Document
			RepKey = &quot;bpq_form&quot; Or RepKey = &quot;nef_bpq_form&quot; 
			
			Set Repview = db.GetView( &quot;(bpq_all)&quot;) 
			Set RepDoc = Repview.GetDocumentByKey( RepKey ) ' form name must be first colum and sorted
			
			Print &quot;Creating Excel Workbook...&quot;
			Set xlApp = CreateObject(&quot;Excel.application&quot;)
			Print &quot;Creating Excel Worksheet for EXP Export..&quot;
			xlApp.Workbooks.Add
			Set xlSheet = xlApp.Workbooks(1).Worksheets(1)
			
			XlApp.Columns(&quot;A:AA&quot;).Select 
			With XlApp.Selection 
				.WrapText=1
				.HorizontalAlignment = xlCenter
			End With 
			
			xlSheet.Columns(1).Columnwidth = 10
		
			
			xlSheet.Cells(1,1).Value = &quot;First Name&quot; 	
					
			x = 3
			While Not ( RepDoc Is Nothing ) ' as long as it has a handle on a document do the following
				If RepDoc.Form(0) = &quot;bpq_form&quot; Or RepDoc.Form(0) = &quot;nef_bpq_form&quot; Then	
					
					xlSheet.Cells(x,1).Value = RepDoc.first_name
										
					
					RecNum = x - 3 ' optional
					Print &quot;Gathering Data. Record Number: &quot; + RecNum ' optional
					x = x + 1 
				Else						
					Set RepDoc = Repview.GetLastDocument ' While not (RepDoc) is nothing
				End If 
				Set RepDoc = Repview.GetNextDocument(RepDoc)
			Wend
			
			Print &quot;Data Collection Complete.&quot;
			
			Set xlSheet = xlApp.Workbooks(1).Worksheets(&quot;Sheet1&quot;)
			Set range1 = xlsheet.Range(&quot;A1: AE2000&quot;) 
			Call range1.Sort(xlsheet.Columns(&quot;A&quot;), , , , , , , 1)
			
			
			Msgbox &quot;Your BPQ Report is ready in Excel. Click OK and then open the Excel file flashing near the bottom of your screen. &quot;, 64, &quot;Excel Export&quot;
			
			xlApp.Visible = True
			xlApp.UserControl = True
		End If
		
		Set ve = vec.GetNextEntry(ve)
	Wend
End Sub
</code></pre>
</div>

<div>
Where do you exactly get your documents- from Unprocessed Documents collection or from view (bpq_all) ? You *can not* mix document collection with viewentrycollection. 
 
If you are using document Collection, as db.UnprocessedDocuments, then use documents, not view entry, or as in your code, just variant (as any undeclared variable). 
 
 
 

<pre><code class="code-10 nolinks" id="code-124578">' ... R28: '
 
 Set Mgrdc = db.UnprocessedDocuments
 Set Mgrdoc = Mgrdc.GetFirstDocument
 
 ' Checking Mgrdoc, NOT ve !!! '
 While Not Mgrdoc Is Nothing
 
 ' .. your code ...'
 
 Set Mgrdoc = Mgrdc.GetNextDocument(Mgrdoc)
 Wend
</code></pre>
</div>

<div>
Suggestion: put diagnostic messages into code. 
Like, after getting unprocessed documents collection, print out document count, as : 
 
Print &quot;Documents in unprocessed document collection : &quot;&nbsp;&amp; Cstr( Mgrdc.Count ) 
 
It will give feedback about running of code and also warns us, when it takes a while, if there are 5 million documents waiting for processing. Or, we had 10 documents but got infinite loop.
</div>

<div>
I am getting the documents from the bpq_all and I am trying to get it so it will pull two version of the form and not just the original. 
</div>

<div>
Why are you using the db.UnprocessedDocuments then? 
 
If you have two forms for documents, are both included in view's selection formula? 
Are other forms also present in the same view?
</div>

<div>
Honestly this is code that I got from others and have used in various DBs. If I can adjust it so it will just pull all records from that view that would be great, I have the view filtered down to just the records I want. I am new to LotusScript so some of the code I am not sure what it does at this point. 
</div>

<div>
Would I leave the line below as is? 
 
 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;RepKey = &quot;bpq_form&quot; &nbsp;Or &nbsp;RepKey = &quot;nef_bpq_form&quot; 
</div>

<div>
If you have only needed documents in view, then you do not need RepKey.
</div>

<div>
OK do I just eliminate the 1st and 3rd lines below? 
 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;RepKey = &quot;bpq_form&quot; &nbsp;Or &nbsp;RepKey = &quot;nef_bpq_form&quot; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set Repview = db.GetView( &quot;(bpq_all)&quot;) &nbsp; 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set RepDoc &nbsp;= Repview.GetDocumentByKey( RepKey ) 
</div>

<div>
If you do not need any filtering, then clean up your code. Remove everything. 
 
Start from similar code as mbonaci suggested, with simple view, starting with the first document &nbsp;and test the loop. If its working as expected, add Excel export code to it, using doc object in loop, and you are done. 
 
Important- start with clean code and build it up. It is much easier and simpler than trying to fix spaghetti code from past. 

<pre><code class="code-10 nolinks" id="code-125089">Dim sess As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument 
 
Set db = sess.CurrentDatabase
Set view = db.GetView( &quot;(bpq_all)&quot; )
 
Set doc = view.GetFirstDocument
 
While Not doc Is Nothing
 
	' ... excel export code...'
 
	Set doc = view.GetNextDocument( doc )
Wend
</code></pre>
</div>

<div>
This is the (pseudo)copy of my code?!?
</div>

<div>
There are credits to your suggestion in text. 
 
Similar solution, bit different approach. &nbsp;Sorry if it seems like &quot;stealing&quot; your abstract example. 
 
If after two days of struggling we find out that there is no need for form filtering or different loops at all, because it can be done at view level, then simple view loop is quite evident solution. 
 
The real point is not in this particular code, but in need to clean up old, messy code and start clean and as simple as possible. Otherwise we keep chasing buggy rows of code forever.
</div>

<div>
Trying to work in these suggestions, but I think I still have some code in here that is holding up the data gathering as I am still getting blank worksheets. 
 
I am pasting the entire set of code as this may help troubleshoot my issue. 

<pre><code class="code-100 nolinks" id="code-125748">Sub Click(Source As Button)
	
	Dim s As New NotesSession
	Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim db As NotesDatabase
	Dim v As NotesView
	Dim doc As NotesDocument
	Dim colVals As Variant 
	Dim Mgrdc As NotesDocumentcollection
	Dim MgrDoc As notesDocument
	Dim cur As NotesDocument 
	Dim Repdc As NotesDocumentCollection 
	Dim RepDoc As NotesDocument
	Dim RepDoc2 As NotesDocument
	Dim mgrview As NotesView 
	Dim RepView As NotesView
	Dim RepView2 As NotesView
	Dim txt_Agency As String 
	Dim tmp_NotesName As NotesName
	Dim MgrKey, RepKey, ADKey As String
	Dim RepKey2 As String
	Dim xlApp As Variant
	Dim xlSheet As Variant
	Dim i As Integer
	Dim x As Integer
	
	Set db = s.CurrentDatabase
	Set v = db.GetView( &quot;(bpq_all)&quot; )
	
	Set doc = v.GetFirstDocument
	
	While Not doc Is Nothing
		
		Print &quot;Creating Excel Workbook...&quot;
		Set xlApp = CreateObject(&quot;Excel.application&quot;)
		Print &quot;Creating Excel Worksheet for EXP Export..&quot;
		xlApp.Workbooks.Add
		Set xlSheet = xlApp.Workbooks(1).Worksheets(1)
		
		XlApp.Columns(&quot;A:AA&quot;).Select 
		With XlApp.Selection 
			.WrapText=1
			.HorizontalAlignment = xlCenter
		End With 
		
		xlSheet.Columns(1).Columnwidth = 10
		xlSheet.Columns(2).Columnwidth = 10
		xlSheet.Columns(3).Columnwidth = 9
		xlSheet.Columns(4).Columnwidth = 9
		xlSheet.Columns(5).Columnwidth = 15
		xlSheet.Columns(6).Columnwidth = 11
		xlSheet.Columns(7).Columnwidth = 18
		xlSheet.Columns(8).Columnwidth = 9
		xlSheet.Columns(9).Columnwidth = 30
		xlSheet.Columns(10).Columnwidth = 25
		xlSheet.Columns(11).Columnwidth = 20
		xlSheet.Columns(12).Columnwidth = 20
		xlSheet.Columns(13).Columnwidth = 20
		xlSheet.Columns(14).Columnwidth = 10
		xlSheet.Columns(15).Columnwidth = 10
		
		xlSheet.Cells(1,1).Value = &quot;First Name&quot; 	
		xlSheet.Cells(1,2).Value = &quot;Last Name&quot; 
		xlSheet.Cells(1,3).Value = &quot;Contract Type&quot;
		xlSheet.Cells(1,4).Value = &quot;Status&quot;
		xlSheet.Cells(1,5).Value = &quot;MD&quot;
		xlSheet.Cells(1,6).Value = &quot;Agy Number&quot;
		xlSheet.Cells(1,7).Value = &quot;Agy Name&quot;
		xlSheet.Cells(1,8).Value = &quot;Start Date&quot;
		xlSheet.Cells(1,9).Value = &quot;Prior Company&quot;
		xlSheet.Cells(1,10).Value = &quot;Prior Title&quot;
		xlSheet.Cells(1,11).Value = &quot;Relationship&quot;
		xlSheet.Cells(1,12).Value = &quot;Broker/Dealer&quot;
		xlSheet.Cells(1,13).Value = &quot;Clearing Firm&quot;
		xlSheet.Cells(1,14).Value = &quot;Trans Rept Date&quot;
		xlSheet.Cells(1,15).Value = &quot;Offer Letter Date&quot;
		
		x = 3
		While Not ( RepDoc Is Nothing ) ' as long as it has a handle on a document do the following
			
			
			xlSheet.Cells(x,1).Value = RepDoc.first_name
			xlSheet.Cells(x,2).Value = RepDoc.last_name
			xlSheet.Cells(x,3).Value = RepDoc.requested_contracted
			xlSheet.Cells(x,4).Value = RepDoc.status
			xlSheet.Cells(x,5).Value = RepDoc.md
			xlSheet.Cells(x,6).Value = RepDoc.agency_num
			xlSheet.Cells(x,7).Value = RepDoc.agency_name
			xlSheet.Cells(x,8).Value = RepDoc.start_date
			xlSheet.Cells(x,9).Value = RepDoc.company
			xlSheet.Cells(x,10).Value = RepDoc.curr_title
			xlSheet.Cells(x,11).Value = RepDoc.curr_co
			xlSheet.Cells(x,12).Value = RepDoc.bd
			xlSheet.Cells(x,13).Value = RepDoc.clearing
			xlSheet.Cells(x,14).Value = RepDoc.trans_rpt_date
			xlSheet.Cells(x,15).Value = RepDoc.offer_date
			
			
			RecNum = x - 3 ' optional
			Print &quot;Gathering Data. Record Number: &quot; + RecNum ' optional
			x = x + 1 
		Wend
		Print &quot;Data Collection Complete.&quot;
		Set xlSheet = xlApp.Workbooks(1).Worksheets(&quot;Sheet1&quot;)
		Set range1 = xlsheet.Range(&quot;A1: AE2000&quot;) 
		Call range1.Sort(xlsheet.Columns(&quot;A&quot;), , , , , , , 1)
		
		
		Msgbox &quot;Your BPQ Report is ready in Excel. Click OK and then open the Excel file flashing near the bottom of your screen. &quot;, 64, &quot;Excel Export&quot;
		
		xlApp.Visible = True
		xlApp.UserControl = True
		
		Set doc = view.GetNextDocument( doc )
	Wend
End Sub
</code></pre>
</div>

<div>
Replace the line: 
 
Set doc = view.GetNextDocument( doc ) 
 
with: 
 
Set doc = v.GetNextDocument( doc ) 
 
 
Always use Option Explicit (or Option Declare, it's the same thing). That will force you to declare all variables explicitly, so this kind of errors will be far history :) 
You can set the editor to insert it automatically in Programing pane properties (right click on LS code).
</div>

<div>
OK &nbsp;that last incarnation did it, I really appreciate all the help from everybody, this site is the best around. 
</div>

<div>
At the end you only need a few variables to declare: 
 
Also changed &quot;view&quot; to &quot;v&quot; on row 104:, as mbonaci mentioned. 
 
Now it must be more or less clear and minimal code. 
 
 

<pre><code class="code-100 nolinks" id="code-125821">Sub Click(Source As Button)
 
	Dim s As New NotesSession
	Dim db As NotesDatabase
	Dim v As NotesView
	Dim RepDoc As NotesDocument
	Dim xlApp As Variant
	Dim xlSheet As Variant
	Dim i As Integer
	Dim x As Integer
	Dim recNum As Integer
 
	Set db = s.CurrentDatabase
	Set v = db.GetView( &quot;(bpq_all)&quot; )
	
	Set RepDoc = v.GetFirstDocument
 
		
	Print &quot;Creating Excel Workbook...&quot;
	Set xlApp = CreateObject(&quot;Excel.application&quot;)
	Print &quot;Creating Excel Worksheet for EXP Export..&quot;
	xlApp.Workbooks.Add
	Set xlSheet = xlApp.Workbooks(1).Worksheets(1)
 
	XlApp.Columns(&quot;A:AA&quot;).Select 
	With XlApp.Selection 
		.WrapText=1
		.HorizontalAlignment = xlCenter
	End With 
 
	xlSheet.Columns(1).Columnwidth = 10
	xlSheet.Columns(2).Columnwidth = 10
	xlSheet.Columns(3).Columnwidth = 9
	xlSheet.Columns(4).Columnwidth = 9
	xlSheet.Columns(5).Columnwidth = 15
	xlSheet.Columns(6).Columnwidth = 11
	xlSheet.Columns(7).Columnwidth = 18
	xlSheet.Columns(8).Columnwidth = 9
	xlSheet.Columns(9).Columnwidth = 30
	xlSheet.Columns(10).Columnwidth = 25
	xlSheet.Columns(11).Columnwidth = 20
	xlSheet.Columns(12).Columnwidth = 20
	xlSheet.Columns(13).Columnwidth = 20
	xlSheet.Columns(14).Columnwidth = 10
	xlSheet.Columns(15).Columnwidth = 10
 
	xlSheet.Cells(1,1).Value = &quot;First Name&quot; 	
	xlSheet.Cells(1,2).Value = &quot;Last Name&quot; 
	xlSheet.Cells(1,3).Value = &quot;Contract Type&quot;
	xlSheet.Cells(1,4).Value = &quot;Status&quot;
	xlSheet.Cells(1,5).Value = &quot;MD&quot;
	xlSheet.Cells(1,6).Value = &quot;Agy Number&quot;
	xlSheet.Cells(1,7).Value = &quot;Agy Name&quot;
	xlSheet.Cells(1,8).Value = &quot;Start Date&quot;
	xlSheet.Cells(1,9).Value = &quot;Prior Company&quot;
	xlSheet.Cells(1,10).Value = &quot;Prior Title&quot;
	xlSheet.Cells(1,11).Value = &quot;Relationship&quot;
	xlSheet.Cells(1,12).Value = &quot;Broker/Dealer&quot;
	xlSheet.Cells(1,13).Value = &quot;Clearing Firm&quot;
	xlSheet.Cells(1,14).Value = &quot;Trans Rept Date&quot;
	xlSheet.Cells(1,15).Value = &quot;Offer Letter Date&quot;
		
	RecNum = 0
 
	While Not RepDoc Is Nothing
 
		x = RecNum + 3 ' Start at 3-rd row '
		
 
		xlSheet.Cells(x,1).Value = RepDoc.first_name
		xlSheet.Cells(x,2).Value = RepDoc.last_name
		xlSheet.Cells(x,3).Value = RepDoc.requested_contracted
		xlSheet.Cells(x,4).Value = RepDoc.status
		xlSheet.Cells(x,5).Value = RepDoc.md
		xlSheet.Cells(x,6).Value = RepDoc.agency_num
		xlSheet.Cells(x,7).Value = RepDoc.agency_name
		xlSheet.Cells(x,8).Value = RepDoc.start_date
		xlSheet.Cells(x,9).Value = RepDoc.company
		xlSheet.Cells(x,10).Value = RepDoc.curr_title
		xlSheet.Cells(x,11).Value = RepDoc.curr_co
		xlSheet.Cells(x,12).Value = RepDoc.bd
		xlSheet.Cells(x,13).Value = RepDoc.clearing
		xlSheet.Cells(x,14).Value = RepDoc.trans_rpt_date
		xlSheet.Cells(x,15).Value = RepDoc.offer_date
 
		RecNum = RecNum + 1
		Print &quot;Gathering Data. Record Number: &quot; + RecNum ' optional
 
		Set RepDoc = v.GetNextDocument( RepDoc )
 
	Wend
 
 
	Print &quot;Data Collection Complete.&quot;
	Set xlSheet = xlApp.Workbooks(1).Worksheets(&quot;Sheet1&quot;)
	Set range1 = xlsheet.Range(&quot;A1: AE2000&quot;) 
	Call range1.Sort(xlsheet.Columns(&quot;A&quot;), , , , , , , 1)
		
		
	Msgbox &quot;Your BPQ Report is ready in Excel. Click OK and then open the Excel file flashing near the bottom of your screen. &quot;, 64, &quot;Excel Export&quot;
 
	xlApp.Visible = True
	xlApp.UserControl = True
		
 
End Sub
</code></pre>
</div>

<div>
Yeah I really like this code, in the past I have always used the original which has to hinge off the Repkey, but in many cases I can do the filtering I need at the view itself and just have it export all in the view. Thanks again. 
</div>

<div>
Add this when you are using Excel constants: 
 
Const xlAutomatic = -4105 
Const xlBottom = -4107 
Const xlCategory = 1 
Const xlCenter = -4108 
Const xlColumnClustered = 51 
Const xlContinuous = 1 
Const xlDataLabelsShowValue = 2 
Const xlDataLabelsShowPercent = 3 
Const xlEdgeBottom = 9 
Const xlEdgeLeft = 7 
Const xlEdgeRight = 10 
Const xlEdgeTop = 8 
Const xlHairline = 1 
Const xlInsideHorizontal = 12 
Const xlInsideVertical = 11 
Const xlLandscape = 2 
Const xlLeft = -4131 
Const xlLine=4 
Const xlLineMarkers = 65 
Const xlLocationAsObject = 2 
Const xlMedium = -4138 
Const xlNone = -4142 
Const xlPie=5 
Const xlPortrait = 1 
Const xlRows = 1 
Const xlThick = 4 
Const xlThin = 2 
Const xlTop = -4160 
Const xlValue = 2 
 
cuz' LotusScript doesn't know what is xlCenter is. 
 
The other thing is that you have to add (0) to the end of the lines where you get doc field values, like this: 
 
xlSheet.Cells(x,1).Value = RepDoc.first_name(0) 
 
 
This code must work (paste the above constants in Declarations section of your button/action code): 

<pre><code class="code-100 nolinks" id="code-125832">Sub Click(Source As Button)	
	Dim s As New NotesSession
	Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim db As NotesDatabase
	Dim v As NotesView
	Dim doc As NotesDocument
	Dim colVals As Variant 
	Dim Mgrdc As NotesDocumentcollection
	Dim MgrDoc As notesDocument
	Dim cur As NotesDocument 
	Dim Repdc As NotesDocumentCollection 
	Dim RepDoc As NotesDocument
	Dim RepDoc2 As NotesDocument
	Dim mgrview As NotesView 
	Dim RepView As NotesView
	Dim RepView2 As NotesView
	Dim txt_Agency As String 
	Dim tmp_NotesName As NotesName
	Dim MgrKey, RepKey, ADKey As String
	Dim RepKey2 As String
	Dim xlApp As Variant, range1 As Variant, RecNum As Variant
	Dim xlSheet As Variant
	Dim i As Integer
	Dim x As Integer
	
	Set db = s.CurrentDatabase
	Set v = db.GetView( &quot;(bpq_all)&quot; )
	
	Print &quot;Creating Excel Workbook...&quot;
	Set xlApp = CreateObject(&quot;Excel.application&quot;)
	Print &quot;Creating Excel Worksheet for EXP Export..&quot;
	xlApp.Workbooks.Add
	Set xlSheet = xlApp.Workbooks(1).Worksheets(1)
	
	XlApp.Columns(&quot;A:AA&quot;).Select 
	With XlApp.Selection 
		.WrapText=1
		.HorizontalAlignment = xlCenter
	End With 
	
	xlSheet.Columns(1).Columnwidth = 10
	xlSheet.Columns(2).Columnwidth = 10
	xlSheet.Columns(3).Columnwidth = 9
	xlSheet.Columns(4).Columnwidth = 9
	xlSheet.Columns(5).Columnwidth = 15
	xlSheet.Columns(6).Columnwidth = 11
	xlSheet.Columns(7).Columnwidth = 18
	xlSheet.Columns(8).Columnwidth = 9
	xlSheet.Columns(9).Columnwidth = 30
	xlSheet.Columns(10).Columnwidth = 25
	xlSheet.Columns(11).Columnwidth = 20
	xlSheet.Columns(12).Columnwidth = 20
	xlSheet.Columns(13).Columnwidth = 20
	xlSheet.Columns(14).Columnwidth = 10
	xlSheet.Columns(15).Columnwidth = 10
	
	xlSheet.Cells(1,1).Value = &quot;First Name&quot; 	
	xlSheet.Cells(1,2).Value = &quot;Last Name&quot; 
	xlSheet.Cells(1,3).Value = &quot;Contract Type&quot;
	xlSheet.Cells(1,4).Value = &quot;Status&quot;
	xlSheet.Cells(1,5).Value = &quot;MD&quot;
	xlSheet.Cells(1,6).Value = &quot;Agy Number&quot;
	xlSheet.Cells(1,7).Value = &quot;Agy Name&quot;
	xlSheet.Cells(1,8).Value = &quot;Start Date&quot;
	xlSheet.Cells(1,9).Value = &quot;Prior Company&quot;
	xlSheet.Cells(1,10).Value = &quot;Prior Title&quot;
	xlSheet.Cells(1,11).Value = &quot;Relationship&quot;
	xlSheet.Cells(1,12).Value = &quot;Broker/Dealer&quot;
	xlSheet.Cells(1,13).Value = &quot;Clearing Firm&quot;
	xlSheet.Cells(1,14).Value = &quot;Trans Rept Date&quot;
	xlSheet.Cells(1,15).Value = &quot;Offer Letter Date&quot;
	
	Set doc = v.GetFirstDocument
	x = 3
	While Not ( doc Is Nothing ) ' as long as it has a handle on a document do the following
		
		
		xlSheet.Cells(x,1).Value = Doc.first_name(0)
		xlSheet.Cells(x,2).Value = Doc.last_name(0)
		xlSheet.Cells(x,3).Value = Doc.requested_contracted(0)
		xlSheet.Cells(x,4).Value = Doc.status(0)
		xlSheet.Cells(x,5).Value = Doc.md(0)
		xlSheet.Cells(x,6).Value = Doc.agency_num(0)
		xlSheet.Cells(x,7).Value = Doc.agency_name(0)
		xlSheet.Cells(x,8).Value = Doc.start_date(0)
		xlSheet.Cells(x,9).Value = Doc.company(0)
		xlSheet.Cells(x,10).Value = Doc.curr_title(0)
		xlSheet.Cells(x,11).Value = Doc.curr_co(0)
		xlSheet.Cells(x,12).Value = Doc.bd(0)
		xlSheet.Cells(x,13).Value = Doc.clearing(0)
		xlSheet.Cells(x,14).Value = Doc.trans_rpt_date(0)
		xlSheet.Cells(x,15).Value = Doc.offer_date(0)
		
		
		RecNum = x - 3 ' optional
		Print &quot;Gathering Data. Record Number: &quot; + RecNum ' optional
		x = x + 1 
		
		Set doc = v.GetNextDocument( doc )
	Wend
	
	Print &quot;Data Collection Complete.&quot;
	Set xlSheet = xlApp.Workbooks(1).Worksheets(&quot;Sheet1&quot;)
	Set range1 = xlsheet.Range(&quot;A1: AE2000&quot;) 
	Call range1.Sort(xlsheet.Columns(&quot;A&quot;), , , , , , , 1)
	
	
	Msgbox &quot;Your BPQ Report is ready in Excel. Click OK and then open the Excel file flashing near the bottom of your screen. &quot;, 64, &quot;Excel Export&quot;
	
	xlApp.Visible = True
	xlApp.UserControl = True
	
End Sub
</code></pre>
</div>

<div>
The problems were: 
&nbsp; - you used two loops without any need for that (setting the same column properties for each doc - you have one sheet) 
&nbsp; - the workbook creation, sorting and opening (making visible) were all inside the loop, so you would get all that v.TopLevelEntryCount number of times executed 
&nbsp; - you used Excel constants inside LotusScript 
 
I think that's it.
</div>

<div>
I would like to think that you will learn from this, not forget about it now when it's working. 
 
I suggest you to start using Debugger (the great tool for making yourself proficient in LS coding) and go through both of those codes, your first one and then the working one, so you'll get the differences and the meaning of each and every one of modifications we made. 
 
Thanks for the points.
</div>

<div>
I have the following Constants 
Const xlLeft=-4131 
Const xlRight=-4152 
Const xlTop=-4160 
Const xlBottom=-4107 
Const xlCenter=-4108 
Const xlThin=2 
Const xlHairline=1 
Const xlNone=-4142 
Const xlAutomatic=-4105 
 
Const xlPortrait=1 
Const xlLandscape=2
</div>

<div>
<div class="content wysiwyg-content">
I have an export which I want to add a second parameter to &nbsp;the export so it will export based on 2 form names, I get a type mismatch off the info below. How can I add a second form. I need to have it include the second_bpq_form as well. I have stripped out most of the code, leaving only the 2 parts I believe need to be updated. 
 

<pre><code class="code-10 nolinks" id="code-124282">RepKey = &quot;bpq_form&quot; Or &quot;second_bpq_form&quot; 
	
	Set Repview = db.GetView( &quot;(bpq_all)&quot;) 
	Set RepDoc = Repview.GetDocumentByKey( RepKey ) ' form name must be first colum and sorted
	
...................
	
	x = 3
	While Not ( RepDoc Is Nothing ) ' as long as it has a handle on a document do the following
		If RepDoc.Form(0) = &quot;bpq_form&quot; Or &quot;second_bpq_form&quot; Then
</code></pre>
</div>
</div>

I have an export which I want to add a second parameter to  the export so it will export based on 2 form names, I get a type mismatch off the info below. How can I add a second form. I need to have it include the second_bpq_form as well. I have stripped out most of the code, leaving only the 2 parts I believe need to be updated. 


Exporting off 2 form values.

Lotus Software produced the Lotus 1-2-3 spreadsheet program, and later developed Lotus Notes, a groupware and email system. Following its acquisition by IBM, the Notes and Domino client/server collaborative platform were expanded to include functions such as email, calendars, to-do lists, contacts management, teamrooms, discussion forums, file sharing, microblogging, instant messaging, blogs, and user directories. IBM also release SmartSuite, a comprehensive office suite, and followed that with Symphony, unrelated to the Lotus suite of the same name.