Modulo donde está el código de exportación a excel:
Public RutaArchivo As String Public CantidadRegistros As Integer Public RegistrosTerminados As Integer Sub GenerarReporte(ByVal NombreDataGrid As DataGridView, TamañoLetra As Integer, NombreDefaultReporte As String) 'Se debe instalar el paquete Nuguet SpreadsheetLight y hacer 'referencia a DocumentFormat.OpenXML Dim Sl As New SLDocument Dim Columna As DataGridViewColumn Dim iCol As Integer = 1 Dim iRow As Integer = 2 'Se define el tamaño de la letra para el encabezado de las 'columnas y ponerle negrilla Dim Estilo As New SLStyle Estilo.Font.FontSize = TamañoLetra Estilo.SetFontColor(Color.DimGray) Estilo.Font.Bold = True '_____________________________________________________________ For Each Columna In NombreDataGrid.Columns Sl.SetCellValue(1, iCol, Columna.HeaderText.ToString()) Sl.SetCellStyle(1, iCol, Estilo) iCol = iCol + 1 Next For Each Row In NombreDataGrid.Rows CantidadRegistros = NombreDataGrid.Rows.Count Dim ColumnaInicial As Integer = 1 Dim CantidadColumnas As Integer = NombreDataGrid.ColumnCount For i As Integer = 0 To CantidadColumnas Step 1 Sl.SetCellValue(iRow, ColumnaInicial, Row.Cells(i).Value.ToString()) ColumnaInicial = ColumnaInicial + 1 Next iRow = iRow + 1 RegistrosTerminados = iRow Next Dim SaveFileDialog1 As New SaveFileDialog SaveFileDialog1.DefaultExt = " *.xlsx" SaveFileDialog1.FileName = NombreDefaultReporte SaveFileDialog1.Filter = "Archivos de Excel (*.xlsx)|*.xlsx" SaveFileDialog1.ShowDialog() Sl.SaveAs(SaveFileDialog1.FileName) End Sub
Botón de Exportar
Private Sub BtnExportar_Click(sender As Object, e As EventArgs) Handles BtnExportar.Click If BackgroundWorker1.IsBusy <> True Then BackgroundWorker1.RunWorkerAsync() End If End Sub
Evento DoWork de mi BackgroundWorker, es aqui donde le llamo la funcion generar reporte, pero antes de llamarla llamo a mi barra de progreso personalizada FrmBarraProgreso.
Dim FechaHoy As Date = Date.Now
Dim F As String = Format(CDate(FechaHoy), "dd-MM-yyyy ( HH 'Hrs' mm 'Min' ss 'Seg' )")
GenerarReporte(DgvEmpleados, 12, "Reporte de Empleados" + " --- " + F)
System.Threading.Thread.Sleep(500)