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.
?