Na hora de carregar seu listview você coloca:
ListView1.CheckBoxes = true
Para exportar você faz assim
Private Sub botao_Exportar_Click()
Dim resp As Integer
resp = MsgBox("Tem certeza que deseja exportar os registros?", vbYesNo, "Confirmação")
If resp = vbYes Then
On Error Resume Next
Dim iRow As Integer
Dim i, w, lastRow As Integer
Dim rStartCell As Range
'Plan2.Range("A2:i65536").Value = ""
Set rStartCell = Plan2.Range("A65536").End(xlUp).Offset(1, 0)
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Checked = True Then
' MsgBox ListView1.ListItems(i).Text
iRow = iRow + 1
rStartCell.Cells(iRow, 1).Value = ListView1.ListItems(i).Text
rStartCell.Cells(iRow, 2).Value = ListView1.ListItems(i).ListSubItems(1).Text
rStartCell.Cells(iRow, 3).Value = ListView1.ListItems(i).ListSubItems(2).Text
rStartCell.Cells(iRow, 4).Value = CDbl(ListView1.ListItems(i).ListSubItems(3).Text)
End If
Next
ListView1.ListItems.Clear
End If
End Sub
Postado : 28/02/2015 5:55 pm