Export View to Excel



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.
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
Start the conversation
0 comments