Copiar líneas de un listview

[parboli]

Hola a todos, de antemano gracias por su ayuda.

Quisiera que saber, cómo podría hacer para copiar varias líneas de un control listview y poderlas pegar, ya sea en un excel o en el openoffice o quisá en el un notepad, pero que me conserve la tabulación.

Saludos y gracias

[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

[edfsoft]

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