VB NET

Hola a todos qué tal aquí os dejo en este post cómo exportar DataGridView a Excel. Ya veréis qué es muy fácil y muy sencillo no tiene ninguna complicación ,así que os dejo todo el código a continuación.

No os olvidéis de añadir la referencia de interop. Excel para que esto funcione.

Si no lo encontráis dentro de las referencias de visual studio.NET , en Google seguramente encontrareis donde la podéis encontrar

Dim exApp As New Microsoft.Office.Interop.Excel.Application
Dim exLibro As Microsoft.Office.Interop.Excel.Workbook
Dim exHoja As Microsoft.Office.Interop.Excel.Worksheet

exLibro = exApp.Workbooks.Add
exHoja = exLibro.Worksheets.Add()

Dim NCol As Integer = ElGrid.ColumnCount
Dim NRow As Integer = ElGrid.RowCount
For i As Integer = 1 To NCol
exHoja.Cells.Item(1, i) = ElGrid.Columns(i – 1).Name.ToString
‘exHoja.Cells.Item(1, i).HorizontalAlignment = 3
Next

For Fila As Integer = 0 To NRow – 1
For Col As Integer = 0 To NCol – 1
exHoja.Cells.Item(Fila + 2, Col + 1) = ElGrid.Rows(Fila).Cells(Col).Value
Next
Next

exHoja.Rows.Item(1).Font.Bold = 1
exHoja.Rows.Item(1).HorizontalAlignment = 3
exHoja.Columns.AutoFit()

exApp.Application.Visible = True

exHoja = Nothing
exLibro = Nothing
exApp = Nothing

Espero que os sirva un saludo a todos