Tengo un Datatable llamado dtConsolidado que lo traigo desde un procedimiento de sql, esta parte funciona bien pero es muy demorado a la hora de exportar una gran cantidad de registros, alguna manera de hacerlo mas optimo?
Dim m_Excel As New Excel.Application
m_Excel.Cursor = Excel.XlMousePointer.xlWait
m_Excel.ScreenUpdating = False
m_Excel.Visible = True
Dim objLibroExcel As Excel.Workbook = m_Excel.Workbooks.Add
objLibroExcel.Worksheets.Add()
Dim objHojaConsolidado As Excel.Worksheet = objLibroExcel.Worksheets(1)
Dim objHojaAvance As Excel.Worksheet = objLibroExcel.Worksheets(2)
With objHojaConsolidado
.Name = ("HOJA 1")
.Activate()
.Cells.Select()
.Cells.ClearContents()
' Seleccionamos la primera celda de la hoja.
.Range("A1").Select()
' Escribimos los nombres de las columnas en la primera
' celda de la primera fila de la hoja de cálculo
Dim fila As Integer = 1
Dim columna As Integer = 1
For Each dc As DataColumn In dtConsolidado.Columns
.Cells(fila, columna) = dc.ColumnName
columna += 1
Next
' Establecemos los atributos de la fuente para las
' celdas de la primera fila.
With .Range(.Cells(1, 1), .Cells(1, dtConsolidado.Columns.Count)).Font
.Name = "Calibri"
.Bold = True
.Size = 12
End With
' Insertamos los datos en la hoja de cálculo, comenzando por la
' fila número 2, ya que la primera fila está ocupada
' por el nombre de las columnas.
fila = 2
For Each row As DataRow In dtConsolidado.Rows
' Primera columna
columna = 1
For Each dc As DataColumn In dtConsolidado.Columns
.Cells(fila, columna) = row(dc.ColumnName)
' Siguiente columna
columna += 1
Next
' Siguiente fila
fila += 1
Next
' Autoajustamos el ancho de todas las columnas utilizadas.
.Columns().AutoFit()
End With
Podrian ayudarme por favor , necesito que sea rapido y eficiente este se demora varios minutos exportando.