[RESOLVED] Export to excel

[hypermount]

Hi, I'm having problems exporting data from a listview control to excel

for example we have item "serial" with the child items "pass value".

serial | value1 | value 2 | value 3 | value 4 |
-------------------------------------------
serial |    a     |     b     |    c      |     d     | 

 For i = 1 To ListView1.listitems.count
        With xlSheet
        'serial
            .Cells(init_row + i + 1, init_col + 1) = ListView1.listitems.Item(i)
            For j = 1 To ListView1.ColumnHeaders.count - 1
                'pass value
                .Cells(init_row + i + 1, init_col + 1 + j) = ListView1.listitems.Item(i).SubItems(j)
            Next j
        End With
    Next
    init_row = init_row + i + 1 

How to arrange the data in the required format?

serial   | a  |     |     |  b |    |    |
          |-------------------------
          | c  |     |     | d  |    |    |
--------------------------------- 

[RhinoBull]

You need to first loop thru column headers and when it's done thru the list of items.
So, move "For j = 1 To ListView1.ColumnHeaders.count - 1" loop out of the main loop; then start the main loop "For i = 1 To ListView1.listitems.count".

For j = 1 To ListView1.ColumnHeaders.count - 1
    '...
Next j

For i = 1 To ListView1.listitems.count
    '...
Next i

[hypermount]

Thanks but I've gone the way of outputting plain text files in HTML code and save it as .xls and spreadsheet program like Kingsoft ET is able to interpret all those HTML tags like <tr>,<td> and <table>. This way is so much easier. I wonder if this is a correct way but it provides the solution I want.

You need to first loop thru column headers and when it's done thru the list of items.
So, move "For j = 1 To ListView1.ColumnHeaders.count - 1" loop out of the main loop; then start the main loop "For i = 1 To ListView1.listitems.count".

For j = 1 To ListView1.ColumnHeaders.count - 1
    '...
Next j

For i = 1 To ListView1.listitems.count
    '...
Next i