Cita:
Iniciado por parboli
Bueno encontré yo mismo la solución.
Les dejo el código, por si les sirva
Dim str As String
Dim I As Integer
Dim x As Integer
Dim y As Integer
x=10
For I = 1 To ListPedido.ListItems.Count
If ListPedido.ListItems(I).Selected Then
For y = 0 To x - 1
If y = 0 Then
str = str & ListPedido.ListItems(I)
Else
str = str & ListPedido.ListItems(I).ListSubItems(y)
End If
str = str & vbTab
Next y
str = str & vbCr
End If
Next I
Clipboard.Clear
Clipboard.SetText str, 1
Saludos
A mi me sirvió
Aqui les dejo una versión mas genérica
Public Sub copiarListViewEnPortaPapeles(prLvw As ListView, Optional prTitulo As String = "")
Dim str As String
Dim objLi As ListItem
Dim objCh As ColumnHeader
Dim objSubI As ListSubItem
On Error GoTo errorHandler
str = ""
If prTitulo <> "" Then
str = str & prTitulo
str = str & vbTab
str = str & vbCr
str = str & vbCr
End If
'copio la cabecera del listview
For Each objCh In prLvw.ColumnHeaders
str = str & objCh.Text
str = str & vbTab
Next
str = str & vbCr
For Each objLi In prLvw.ListItems
str = str & objLi.Text
str = str & vbTab
For Each objSubI In objLi.ListSubItems
str = str & objSubI.Text
str = str & vbTab
Next
str = str & vbCr
Next
Clipboard.Clear
Clipboard.SetText str, 1
Exit Sub
errorHandler:
Err.Raise Err.Number, "copiarListViewEnPortaPapeles", Err.Description
End Sub