ListView copy - VB

Формулировка задачи:

Добрый день, хотелось бы узнать как можно скопировать содержимое listview или вывести столбы куда нибудь еще где можно копирнуть. Любые способы хоть что нибудь, срочно нужно

Sub loadlistview()
SQL = "exec sumandel  '" & DTPicker1.value & "','" & DTPicker2.value & "' "
CMD.CommandText = SQL
Set RS = CMD.Execute
    ListView1.ListItems.Clear
    With RS
        Do Until .EOF
        Set list = ListView1.ListItems.Add(, , !nomergos & "")
        list.SubItems(1) = !sumeel & ""
        list.SubItems(2) = !nm & ""
        list.SubItems(3) = !dog & ""
        .MoveNext
        Loop
        End With
        With ListView1
        If .ListItems.Count > 0 Then
        Set .selectedItem = .ListItems(1)
        'ListView1_ItemClick.SelectItem
        End If
        End With
        Set RS = Nothing
End Sub

Решение задачи: «ListView copy»

textual
                            Листинг программы 
                        

                            Sub SaveListView(ByVal FileName$)
    Dim i&, j&, s$, ff&
    With ListView1
        For i = 1 To .ListItems.Count
            With .ListItems(i)
                If i > 1 Then s = s & "=="
                s = s & .Text
                For j = 1 To .ListSubItems.Count
                     s = s & "||"
                     s = s & .ListSubItems(j).Text
                Next
            End With
        Next
        ff = FreeFile
        Open FileName For Binary As #ff: Put #ff, 1, s: Close #ff
    End With
End Sub
 
 
Private Sub LoadListView(ByVal FileName$)
    Dim i&, j&, s$, ff&, a$(), aa$(), Item As Object, OldTag$
    
    ff = FreeFile: Open FileName For Binary As #ff
    s = Space(LOF(ff)): Get #ff, 1, s: Close #ff
    With ListView1
        .Enabled = 0
        .ListItems.Clear
        a = Split(s, "==")
        For i = 1 To UBound(a): aa = Split(a(i), "||"): For j = 0 To UBound(aa)
                If j = 0 Then
                    Set Item = .ListItems.Add(, , aa(j))
                Else
                    With Item.ListSubItems.Add(, , aa(j))
                        Select Case j
                        Case 1
'                            .ForeColor = IIf(IsURL(.Text), vbBlue, vbBlack)
                        End Select
                    End With
                End If
        Next: Next
        .Enabled = 1
    End With
End Sub
                        