2022-12-14 12:41:09 -07:00
parent 5a38a00399
commit a213e05375
12 changed files with 300 additions and 157 deletions
--- a/RH/ActualizacionMasiva.aspx.vb
+++ b/RH/ActualizacionMasiva.aspx.vb
@@ -1,6 +1,7 @@
 Option Strict On
 Option Explicit On

+Imports ClosedXML.Excel
 Imports Extensiones
 Imports System.Data

@@ -391,6 +392,7 @@ Partial Class RH_ActualizacionMasiva
        If continuar Then

            Try
+                Dim workbook = New XLWorkbook(fileItem.FileUrl)
                DTEXcel = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, True).FiltraParametros("  LEN(Codigo)>0  ")
            Catch ex As Exception
                continuar = False