hola amigos, tengo un listview y quiero exportar todos los datos que se encuentran dentro del listiew a excel.
el listview tiene 5 columnheaders, yo lo intente hacer con este codigo que realice que no me da los resultados que quiero:
Código:
For i = 8 To compra.ListItems.Count + 7
For o = 2 To 5
For u = 1 To compra.ListItems.Count
ApExcel.cells(i, 1).Formula = compra.ListItems.item(u).Text
v = o - 1
ApExcel.cells(i, o).Formula = compra.ListItems(u).SubItems(v) & ""
ApExcel.RANGE("A" & i & ":E" & i).BORDERS.Color = RGB(0, 0, 200)
Next u
Next o
Next i
el resultado es que me llena todas las filas de excel con los datos del ultimo item que se encuentra en el listview. les pongo la imagen de como muestra los resultados en EXCEL:
espero q' me puedan ayudar...
GRx!
Salu2!