jforget1
asked on
Multi value in export.
Have some code I have used for a variety of applications to export data into excel, the code is below. The new issue I have is the last item in the export is a checkbox field but it is only bringing over the first selection if both are selected, there are 2 items in the checkbox. What adjustments are needed to handle the multi value situation.
Joe
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 Mgrdc As NotesDocumentcollection
Dim MgrDoc As notesDocument
Dim Repdc As NotesDocumentCollection
Dim RepDoc As NotesDocument
Dim mgrview As NotesView
Dim RepView As NotesView
Dim txt_Agency As String
Dim tmp_NotesName As NotesName
Dim MgrKey, RepKey, ADKey As String
Dim ParticipantsItem As NotesItem
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
RepKey = "blackberry_order_form"
Set Repview = db.GetView( "(bb_export_all)")
Set RepDoc = Repview.GetDocumentByKey( RepKey ) ' form name must be first colum and sorted
Print "Creating Excel Workbook..."
Set xlApp = CreateObject("Excel.applic
Print "Creating Excel Worksheet for BlackBerry Data.."
xlApp.Workbooks.Add
Set xlSheet = xlApp.Workbooks(1).Workshe
xlSheet.Cells(1,1).Value = "Name (Last, First)" ' change your column headings
xlSheet.Cells(1,2).Value = "Cost Center"
xlSheet.Cells(1,3).Value = "Employee#"
xlSheet.Cells(1,4).Value = "Product(Bundle)"
xlSheet.Cells(1,5).Value = "Optional Add-Ons"
x = 3
While Not ( RepDoc Is Nothing ) ' as long as it has a handle on a document do the following
If RepDoc.Form(0) = "blackberry_order_form" Then
xlSheet.Rows("1:1").Select
xlSheet.Rows(1).WrapText =True
xlsheet.Columns(1).Columnw
xlsheet.Columns(2).Columnw
xlsheet.Columns(3).Columnw
xlsheet.Columns(4).Columnw
xlsheet.Columns(5).Columnw
xlSheet.Cells(x,1).Value = RepDoc.name_imported
xlSheet.Cells(x,2).Value = RepDoc.ccc
xlSheet.Cells(x,3).Value = RepDoc.cert_adjusted
xlSheet.Cells(x,4).Value = RepDoc.bundle
xlSheet.Cells(x,5).Value = RepDoc.addons
RecNum = x - 3 ' optional
Print "Gathering Data. Record Number: " + RecNum ' optional
x = x + 1
Else
Set RepDoc = Repview.GetLastDocument ' While not (RepDoc) is nothing
End If
Set RepDoc = Repview.GetNextDocument(Re
Wend
Print "Data Collection Complete."
Set xlSheet = xlApp.Workbooks(1).Workshe
Set range1 = xlsheet.Range("A1: Z2000")
Call range1.Sort(xlsheet.Column
Msgbox "Your BlackBerry Report is ready in Excel. Click OK and then open the Excel file flashing near the bottom of your screen. ", 64, "Excel Export"
xlApp.Visible = True
xlApp.UserControl = True
End Sub
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
That did it perfectly, as always thanks for the super fast help.
:) Welcome...
ASKER