From b2158864e66efc440e216ae5b5ba584a601e76f8 Mon Sep 17 00:00:00 2001 From: MLopez Date: Fri, 11 Nov 2022 18:03:28 -0700 Subject: [PATCH] =?UTF-8?q?Extension=20ExportToExcelGembox:=20No=20intenta?= =?UTF-8?q?r=20generar=20excel=20si=20no=20hay=20datos=20Evita=20generar?= =?UTF-8?q?=20una=20p=C3=A1gina=20de=20error=20innecesaria=20al=20usuario?= =?UTF-8?q?=20si=20accidentalmente=20genera=20el=20excel=20sin=20hacer=20a?= =?UTF-8?q?ntes=20consulta?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/modExtensiones.vb | 1 + 1 file changed, 1 insertion(+) diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 0f178b373..00f23851d 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -2155,6 +2155,7 @@ Namespace Extensiones Dim worksheet = excel.Worksheets(0) worksheet.Rows.InsertEmpty(0, TotalRowHeader) Dim celdasConTexto = worksheet.GetUsedCellRange(True) + If celdasConTexto Is Nothing Then Exit Sub 'No se recuperaron datos, salir de sin guardar porque soltará error celdasConTexto.Style.Font.Name = "Calibri Light" Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex)