HOLA ESTOY HACIENDO UN PROGRAMA Y NECESITO PASAR MIS DATOS DE MI LISTVIEW A UN ARCHIVO EXEL AKI LES DEJO EL CODIGO QUE ESTOY MANEJANDO PERO IA NO SE COMO ENVIARLO :s

hola aqui de nuevo con un problemita que tengo, lo que pasa es que
quiero pasar los datos de un listview a un archivo de excel en vb 2005



este es mi codigo pero me sale un error o mas bien no se como madar los datos que estan dentro del listview.





Option Explicit On

Imports System

Imports System.Reflection ' For Missing.Value and BindingFlags

Imports System.Runtime.InteropServices ' For COMException

Imports Microsoft.Office.Interop.Excel



Public Class FIteraciones



Private Sub GuardarToolStripMenuItem1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
GuardarToolStripMenuItem1.Click



app = New Application()

If app Is Nothing Then

' MsgBox("ERROR: EXCEL couldn't be started!")

Environment.ExitCode = 0

Exit Sub

End If



'Console.WriteLine("Making application visible")

app.Visible = True



'MsgBox("Getting the workbooks collection")



workbooks = app.Workbooks

'MsgBox("Adding a new workbook")

Dim workbook As _Workbook

workbook = workbooks.Add(XlWBATemplate.xlWBATWorksheet)



'MsgBox("Getting the worksheets collection")

Dim sheets As Sheets

sheets = workbook.Worksheets



Dim worksheet As _Worksheet

worksheet = sheets.Item(1)

If worksheet Is Nothing Then

'MsgBox("ERROR: worksheet == null")

End If





Dim range3 As Object

Dim i As Integer

Dim aux As Integer

Dim aux1 As Integer

aux1 = Me.ListView1.Columns.Count

aux = Me.ListView1.Items.Count







range3 = worksheet.Range("A2", "C3")

Dim array3(aux, aux1) As Integer

Dim j As Integer

For i = 0 To aux 'CONTROL DE LAS FILAS

For j = 0 To aux1 'CONTROL DE LAS COLUMNAS

array3(i, j) = Me.CADENA3(i) <--- es aqui donde debo de mandar lo que tiene mi listview pero no se como ??



'i * 10 + j

Next j

Next i

range3.Value2 = array3









Environment.ExitCode = 100



End Sub





End Class