Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

50 - Exportar los datos de un ListView a Excel

La siguiente función exporta los datos de un control ListView a una hoja de Excel y muestra el progreso en un control ProgressBar

Vista del formulario de ejemplo

Exportar datos de visual a Excel y mostrar el progreso

Hay una función llamada Exportar_Excel a la cual se le debe pasar el path y el nombre del Libro. El segundo parámetro es el control ListView, y el tercer parámetro es opcional y es para el Progressbar. Por ejemplo :

Call Exportar_Excel("c:\libro.xls", ListView1, ProgressBar1)

Ejemplo

Agregar un control command
Un ListView
Un Progressbar
Especificar la ruta del libro de Excel

Código fuente en un Formulario:

Option Explicit Function Exportar_Excel( _ Path_Libro As String, _ ListView As ListView, _ Optional Progressbar As Progressbar) As Boolean 'CREAR EL OBJETO (INSTANCIAR)CON EL OBJETO APLICACION (obj_Excel) Dim obj_Excel As Object Dim obj_Libro As Object ' Nueva referencia a Excel y nuevo referencia al Libro Set obj_Excel = CreateObject("Excel.Application") Set obj_Libro = obj_Excel.Workbooks.Add(Path_Libro) 'Variables para las columnas y filas Dim Col As Integer, Fila As Integer With obj_Excel 'crea el libro Set obj_Libro = .Workbooks.Add(App.Path & "\libro1.xls") End With With obj_Libro 'Asignamos El valor Maximo del Progress teniendo _ como dato la cantidad de items en el ListView If Not Progressbar Is Nothing Then Progressbar.Max = ListView.ListItems.Count End If 'Referencia a la hoja con índice 1 With .Sheets(1) 'Recorremos la cantidad de items del ListView For Fila = 1 To ListView.ListItems.Count Col = 1 'Asignamos EL Item actual en la celda .Cells(Fila, Col) = ListView.ListItems.Item(Fila) 'Asignamos EL SubitemItem actual en la celda For Col = 1 To ListView.ColumnHeaders.Count - 1 .Cells(Fila, Col + 1) = _ ListView.ListItems(Fila).SubItems(Col) Next If Not Progressbar Is Nothing Then 'Aumentamos en 1 la propiedad value Progressbar.Value = Progressbar.Value + 1 End If Next End With End With 'Destruimos las variables de objeto obj_Excel.Visible = True Set obj_Libro = Nothing Set obj_Excel = Nothing 'Ok Exportar_Excel = True If Not Progressbar Is Nothing Then Progressbar.Value = 0 End If Exit Function errSub: Exportar_Excel = False MsgBox Err.Description, vbCritical On Error Resume Next Set obj_Libro = Nothing Set obj_Excel = Nothing Progressbar.Value = 0 End Function Private Sub Command1_Click() Dim ret As Boolean 'Le pasa el path donde está ubicado el libro, _ el control ListView y opcional un Progressbar ret = Exportar_Excel(App.Path & "\libro1.xls", ListView1, ProgressBar1) If ret Then ' OK MsgBox " Datos exportados a Excel OK ", vbInformation End If End Sub Private Sub Form_Load() Dim i_Item As ListItem Dim i As Integer ListView1.ColumnHeaders.Add , , " Columna 1 " ListView1.ColumnHeaders.Add , , " Columna 2 " ListView1.View = lvwReport 'Añade algunos items al listview For i = 0 To 5000 Set i_Item = ListView1.ListItems.Add(, , " Item " & i) i_Item.SubItems(1) = "subitem " & i Next Command1.Caption = " > Exportar Listview a Excel " End Sub Private Sub Form_Resize() ListView1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight - (Command1.Height + 50) Command1.Move Me.ScaleWidth - (Command1.Width + 50), _ ListView1.Top + ListView1.Height + 50 ProgressBar1.Move 0, Command1.Top, _ Me.ScaleWidth - (Command1.Width + 100), Command1.Height End Sub

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb