Exporting multi-line view columns to Excel

HCL Domino Domino Forum
1

Well I am trying to export a view with a column that is multilined. The export works fine but when opening in excel or CSV format it seems to be truncating the data. I am losing half of the multi-line content. Any suggestions how to do this?

2

Subject: exporting multi-line view columns to Excel

Here are some solutions I’m sure I originally got from this forum…

I think this will work:

For x = 1 To vc.Count

	Print "Processing Row: " & x & "/" & vc.Count & " (" & Round(x/vc.count*100,0) & "%)"

	cp=0 ' reset the column position 

	y = 0 ' reset the count for check for hidden columns

	Set entry = vc.GetNthEntry(x)

	

	Forall columns In entry.ColumnValues

		If cols(y).ishidden = False Then

			If cols(y).isicon = False Then

				xlWs.Range("A1").OffSet(x,cp).value=columns

				cp= cp + 1

			End If

		End If

		y = y +1

	End Forall

Next

or

Do While Not (dataentry Is Nothing)

	If dataentry.Document.IsResponse=False Then

		For x=1 To maxcols

			With dataentry

				If Datatype(.columnvalues(x-1))=8712 Then

					s=""

'Is multivalue

					If dataview.columns(x-1).iscategory Then

'Determine the occurance for this doc, so we can pick the right value

						ListItem=.NoteID 

						If Iselement(myList(ListItem)) Then

							Count=myList(ListItem)+1

						Else

							Count=1

						End If 

						myList(ListItem)=Count

						temp=.columnvalues(x-1)

						s=temp(Count-1)

					Else

						temp=.columnvalues(x-1)

						For i=0 To Ubound(temp)

							s=s+temp(i)+", "

						Next

						s=Left(s,Len(s)-2) 'removing last comma

					End If

					xlsheet.Cells(rows,cols).Value =s

				Else

'Not multivalue

					xlsheet.Cells(rows,cols).Value = .columnvalues(x-1)

				End If

			End With

			cols=cols+1

		Next 

		xlApp.StatusBar = "Importing Notes Data - Document " & rows-1 & " of " & vc.count & "." 

		rows=rows+1

		cols=1

	End If

	Set dataentry = vc.getnextentry(dataentry)

Loop