error al tratar de exportar datos desde vb 6 a excel

[emilio21]

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!

[emilio21]

solucionado...

Código:

i = 8
                For u = 1 To compra.ListItems.Count
                    o = 1
                    .cells(i, o).Formula = compra.ListItems.item(u).Text
                    For o = 1 To compra.ColumnHeaders.Count -1
                        .cells(i, o + 1).Formula = compra.ListItems(u).SubItems(o)
                    Next o
                    .RANGE("A" & i & ":E" & i).BORDERS.Color = RGB(0, 0, 200)
                    i = i + 1
                Next u

donde i indica la fila donde va a partir....