[vb.net] ¿Cómo exportar y guardar los datos en la vista de lista en un archivo de Excel?

Función:

Función pública ListViewtoExcel(ByVal LV As ListView) As Boolean

Pruebe

Si LV.Items.Count <= 0 Entonces 'Juzgue el número de registros, salga si no hay registros

MessageBox.Show("No se pueden exportar registros" , "No hay elementos que se puedan exportar", MessageBoxButtons.OK, MessageBoxIcon.p> Return False

End If

'Si hay un registro exportar a Excel

Dim AP_Excel As Object 'Definir objeto de Excel

Dim wk As Object 'Definir objeto de libro de trabajo

AP_ Excel = CreateObject("Excel.Application") 'Crear objeto de Excel

wk = AP_Excel.workbooks.add()

Dim i Como entero, u Como entero = 0, v Como entero = 0 'Define variables de bucle, variables de fila y variables de columna

Para i = 1 Para LV.Columns.Count 'Escribir encabezado en Excel

wk.worksheets(1).cells(1, i) = LV.Columns(i - 1 ).celda(1, i) = LV.hojas de trabajo(2).celda(2, i) = LV.hojas de trabajo(3).celda(2, i) = LV.hojas de trabajo(4).celda(3, i) = LV.worksheets(5).cell(6, i) = LV.worksheets(6).cell(7, i) = LV.worksheets(8).cell(9, i)Columnas(i - 1).Texto .Trim

Siguiente

Dim str(LV.Items.Count - 1, LV.Columns.Count - 1) 'Define una matriz bidimensional

Para u = 0 A LV.Items.Count - 1 'bucle de fila.

p>

Si v < LV.Items(u).SubItems.Count Entonces 'Si esta fila, este elemento de columna existe

str(u, v) = LV.Items(u ).SubItems(v).Text.Trim

LV.Items(u).SubItems.Count - 1 'Bucle de fila

Para v = 0 a LV.Items.Count - 1 'Row Loop.Trim

Else 'Si este elemento de columna no existe en esta fila

str(u, v) = ""

End If

Siguiente

Siguiente

wk.worksheets(1).range("A2").Resize(LV.Items.Count, LV.Columns.Count .Value ) = str 'Escribe este elemento de fila y columna. Count).Value = str 'Escribe matrices juntas en Excel

wk.worksheets(1).Cells.EntireColumn.AutoFit() 'Ajusta automáticamente las columnas de Excel

' yy.worksheets ( 1).name = LV.TopLeftHeaderCell.Value.ToString 'El título de la tabla se escribe como el nombre de la hoja de cálculo de Excel

AP_Excel.visible = True 'Establecer Excel para que sea visible

wk = Nada 'Destruir y liberar recursos

AP_Excel = Nada 'Destruir y liberar recursos

AP_Excel = Nada 'Destruir y liberar recursos

AP_Excel = Nada 'Destruir Excel. p>

Devolver verdadero 'Devolver verdadero

Captura ex como excepción 'Manejo de errores

MessageBox.Show(Err.Description.ToString, "Error", MessageBoxButtons .OK, MessageBoxIcon.Error) 'Mensaje de error

Devuelve Falso 'Devuelve Falso

Finaliza el intento

Finaliza la función

Llamada la función: Por ejemplo, ListViewtoExcel(Me.ListView1)