Funcion para pasar un DataTable a Excel en Visual Basic .NET

Aqui os dejo una funcion que permite pasar los datos contenidos en un datatable y mostrarlos a Excel en Visual Basic .NET.

Shared Function ExportarDataTableAExcel(ByVal Titulo As String,
ByVal Tabla As DataTable) As Boolean
Try
'Creamos las variables
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
Dim filaTabla As System.Data.DataRow

'Añadimos el Libro al programa, y la hoja al libro
exLibro = exApp.Workbooks.Add
exHoja = exLibro.Worksheets.Add()

' ¿Cuantas columnas y cuantas filas?
Dim NCol As Integer = Tabla.Columns.Count
Dim NRow As Integer = Tabla.Rows.Count

'Aqui recorremos todas las filas, y por cada fila todas las columnas y vamos escribiendo.
For i As Integer = 1 To NCol
exHoja.Cells.Item(3, i) = Tabla.Columns(i - 1).Caption
'exHoja.Cells.Item(1, i).HorizontalAlignment = 3
Next

For Fila As Integer = 0 To NRow - 1
filaTabla = Tabla.Rows(Fila)
For Col As Integer = 0 To NCol - 1
exHoja.Cells.Item(Fila + 4, Col + 1) = filaTabla(Col)
Next
Next

'Titulo en negrita, Alineado al centro y que el tamaño de la columna se ajuste al texto
exHoja.Rows.Item(3).Font.Bold = 1
exHoja.Rows.Item(3).HorizontalAlignment = 3
exHoja.Columns.AutoFit()

'Aplicación visible
exApp.Application.Visible = True

exHoja = Nothing
exLibro = Nothing
exApp = Nothing

ExportarDataTableAExcel = True
Catch ex As Exception
MessageBox.Show(" ERROR : " & ex.Message & " --UtilForm.ExportarDataTableAExcel", "Administrador", MessageBoxButtons.OK, MessageBoxIcon.Error)
ExportarDataTableAExcel = False
Finally
Tabla = Nothing
End Try
End Function

Espero que os sirva de ayuda. Saludos