Export View to Excel

Download this free guide

Download: IT Certifications 101

Inside this exclusive essential guide, our independent experts break down which IT certifications are worth your time and effort, and how to get started obtaining them to further your career— including specific certifications that any cloud or desktop pro should seriously consider.

Start Download

• Corporate E-mail Address:

  You forgot to provide an Email Address.

  This email address doesn’t appear to be valid.

  This email address is already registered. Please login.

  You have exceeded the maximum character limit.

  Please provide a Corporate E-mail Address.

By submitting my Email address I confirm that I have read and accepted the Terms of Use and Declaration of Consent.

By submitting your personal information, you agree that TechTarget and its partners may contact you regarding relevant content, products and special offers.

You also agree that your personal information may be transferred and processed in the United States, and that you have read and agree to the Terms of Use and the Privacy Policy.

 Sub Click(Source As Button)
	Dim WS As notesuiworkspace
	Dim UiView As notesuiview
	Dim ViewString As String
	Dim session As NotesSession
	Dim db As NotesDatabase 
	Dim v As NotesView
	Dim docX As NotesDocument
	Dim col As Integer
	Dim row As Double
	Dim xl As Variant
	Dim xlWbk As Variant
	Dim pagename As String
	
	Set WS = New notesuiworkspace
	Set session = New notessession
	Set db=session.CurrentDatabase
	
	Print "Please Be Patient as the Excel Spreadsheet is being created..."
	
' Get dynamic view name, R5 only
' Take this part out if using in R4, you have to hard-code the name of the view in ViewString
	Set UiView=WS.currentview
	ViewString=UiView.viewname
	
	Set v=db.GetView(ViewString)
	
' Create Excel Sheet
	Set xl=CreateObject("Excel.Application")
	Set xlWbk=xl.Workbooks.Add
	
' Add column headings to first row
	col=1
	Forall vColumn In v.Columns
		xlWbk.ActiveSheet.Cells(1, col)=vColumn.Title
		col=col+1
	End Forall
	
' Add row data from the documents
	row=2
	Set docX=v.GetFirstDocument
	While Not docX Is Nothing
		col=1
		Forall cValue In docX.ColumnValues
			xlWbk.ActiveSheet.Cells(row, col)=cValue
			col=col+1
		End Forall
		row=row+1
		Set docX=v.GetNextDocument(docX)
	Wend
	
' Make all columns fit
	xlWbk.ActiveSheet.Columns.AutoFit
	
	Print "Excel Document Successfully Created!"
	
' Open it up in Excel
	xl.Visible=True
	
End Sub