Vadim B Roshass 25.Jan.12 11:45 AM a Web browser Domino Designer7.0.2Windows XP
Hello,
I have a view which needs to be exported to Excel. In this view I have a button that contains the following code.
Data looks OK. But it creates extra spaces between the documents(rows). I just need one space or no spaces between the documents.
Set otherdoc =view.GetFirstDocument
While Not otherdoc Is Nothing
row% = row% + 1
col% = 0
Forall colval In otherdoc.ColumnValues
col% = col% + 1
If Isarray(colval) Then
columnVal=Fulltrim(colval)
For y = 0 To Ubound(columnVal)
offset% = row% + y +lastOffset%
oWorkSheet.Cells(offset%,col%).value = columnVal(y)
Next
Else
offset% = row% + y +lastOffset%
oWorkSheet.Cells(row%, col%).value = colval
End If
End Forall
row%=offset%
Return to top
Export to Excel (Vadim B Roshass... 25.Jan.12)
. . 
Print this page
