Nombre: Exporta ListView al Excel
Descripción:
Codigo que exporta los datos de unj listview tipo report a microsoft Excel
URL: http://www.mygnet.net/codigos/vb/archivos_y_directorios/exporta_listview_al_excel.1622
Código Fuente:
Private Sub Exportar_Click()
If listview1.listitems.count >0 then
Dim x as integer
Dim objexcel As Excel.Application
Set objexcel = New Excel.Application
objexcel.Visible = True
On Error Resume Next
Kill App.Path & "Comprobacion.xls"
If Err Then Err = 0
''''''''''''''''''''''''''''''''creo un libro de excel
objexcel.Workbooks.Add
objexcel.ActiveWorkbook.SaveAs FileName:=App.Path & Comprobacion.xls"
objexcel.Workbooks.Open FileName:=App.Path & Comprobacion.xls"
objexcel.Workbooks("Comprobacion.xls").Activate
'''ponemos los encabezados
objexcel.Range("a1").Value = "Codigo"
objexcel.Range("b1").Value = "Nombre"
objexcel.Range("c1").Value = "Saldo Anterior Debe"
objexcel.Range("d1").Value = "Saldo Anterior Haber"
objexcel.Range("e1").Value = "Movimiento del Mes Debe"
objexcel.Range("f1").Value = "Movimiento del Mes Haber"
objexcel.Range("g1").Value = "Saldo de la Cuenta Debe"
objexcel.Range("h1").Value = "Saldo de la Cuenta Haber"
objexcel.Range("i1").Value = "Total"
‘’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’PASO AL EXCEL LOS DATOS DEL LISTVIEW
X = 2
For i = 1 To ListView1.ListItems.Count Step 1
objexcel.Cells(X, 1).Value = ListView1.ListItems(i)
objexcel.Cells(X, 2).Value = ListView1.ListItems(i).SubItems(1)
objexcel.Cells(X, 3).Value = ListView1.ListItems(i).SubItems(2)
objexcel.Cells(X, 4).Value = ListView1.ListItems(i).SubItems(3)
objexcel.Cells(X, 5).Value = ListView1.ListItems(i).SubItems(4)
objexcel.Cells(X, 6).Value = ListView1.ListItems(i).SubItems(5)
objexcel.Cells(X, 7).Value = ListView1.ListItems(i).SubItems(6)
objexcel.Cells(X, 8).Value = ListView1.ListItems(i).SubItems(7)
X = X + 1
Next i
‘’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’
objexcel.Workbooks("Comprobacion.xls").Save
objexcel.ActiveWorkbook.Close
objexcel.Visible = False
else
msgbox”Lo Siento no hay datos en el listview”
End if
'''''''''''''''''''''''''''''''''''''''
End Sub
Importante:
En el Proyecto de Visual Basic hacer clic en Proyecto, Referencias y Agregar la referencia a Miscrosoft Excel Object Library
Esto para que las sentencia dim Objexcel as funcione
Descargar