Red de conocimiento informático - Problemas con los teléfonos móviles - Cómo exportar datos a Excel en vb

Cómo exportar datos a Excel en vb

Introducción

La siguiente es una introducción paso a paso sobre cómo leer datos e importarlos a Excel a través de VB.NET.

Paso 1:

Abra VS Developer Tools y agregue una referencia.

Luego selecciona.

Biblioteca de objetos de Microsoft Excel 12.0 y

Biblioteca de objetos de Microsoft Excel 14.0.

Paso 2:

Crea un Excel en tu ordenador.

Paso 3:

Escribe el siguiente código en VS:

Importar System.Data

Importa System.Data.SqlClient

p>

Importa Excel = Microsoft.Office.Interop.Excel. ?xlWorkSheet.Cells(1, 3).Value = "Nombre"

?Cells(1, 3).Value = " Completo Nombre"

?xlWorkSheet.Cells(1, 4).Value = "Salario"

?' Importar datos a Excel

Para i = 0 To ds .Tables(0).Rows.Count - 1

'Columna

Para j = 0 Para ds.Tables(0).Column.Count - 1

'Columna

?Tables(0).Columns.Count - 1

'esto lo cambio a las celdas de la línea de encabezado gt;gt;gt;

xlWorkSheet .Cells(i 3, j 1) = _

ds.Tables(0).Rows(i).Item(j)

Siguiente

? ¿Usar codificación rígida en la hoja de cálculo de Excel

? '¿Es esta la celda de la fila del pie de página que cambié? Guardar en Excel

?xlWorkSheet.SaveAs("D:\vbexcel.xlsx")

?xlWorkBook.Close()

?xlApp.Quit()

?releaseObject(xlApp)

?releaseObject(xlWorkBook)

?releaseObject(xlWorkSheet)

?Una ventana emergente Se muestra el cuadro de diálogo Ruta guardada

?MsgBox("Puede encontrar el archivo D:\vbexcel.xlsx")

Captura ex como excepción

Finalizar intento

p>

End Sub

' Función para liberar objetos en tablas de Excel

Private Sub releaseObject(ByVal obj As Object)

Pruebe

?System.Runtime.InteropServices.Marshal.ReleaseComObject(ByVal obj como objeto)

?Catch ex como excepción

?obj = Nada

Finalmente

?GC.

Finalizar intento

Finalizar sub

Finalizar clase

Copiar el código.

Paso 4:

Consulte los resultados de la exportación a continuación.

?