Try
Dim strBuilder As New StringBuilder
For J As Integer = 0 To Source_Collection.Columns.Count - 1
strBuilder.Append(Source_Collection.Columns(J).ColumnName & chr(9))
Next
strBuilder.AppendLine()
'copy the requested rows one by one
For I As integer = 0 To Source_Collection.Rows.Count -1
Dim Values(Source_Collection.Columns.Count - 1) As Object
For J As Integer = 0 To Source_Collection.Columns.Count - 1
Values(J) = Source_Collection.Rows(I)(J)
strBuilder.Append(Values(J) & chr(9))
Next
strBuilder.AppendLine()
Next
Clipboard.SetDataObject(strBuilder.ToString,True)
Success = True
Catch Ex As Exception
Success = False
Error_Message = Ex.ToString()
End Try
Hi Sachin,Hi @ilarum ,
if you want to copy collection to clipboard then add new action in collection Manipulation VBO. Copy Collection to Clipboard.
1. Code Stage Code Screen Shot.
View attachment 5308
2.VB.net Code.
I hope it will help you..!Code:Try Dim strBuilder As New StringBuilder For J As Integer = 0 To Source_Collection.Columns.Count - 1 strBuilder.Append(Source_Collection.Columns(J).ColumnName & chr(9)) Next strBuilder.AppendLine() 'copy the requested rows one by one For I As integer = 0 To Source_Collection.Rows.Count -1 Dim Values(Source_Collection.Columns.Count - 1) As Object For J As Integer = 0 To Source_Collection.Columns.Count - 1 Values(J) = Source_Collection.Rows(I)(J) strBuilder.Append(Values(J) & chr(9)) Next strBuilder.AppendLine() Next Clipboard.SetDataObject(strBuilder.ToString,True) Success = True Catch Ex As Exception Success = False Error_Message = Ex.ToString() End Try