diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index c11e6ed30..b1cc3606d 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -2623,7 +2623,7 @@ Namespace Extensiones
             If Dt.TableName Is Nothing Then Dt.TableName = ValidFileName(NombreArchivoXLSx)
 
             Dim excel As New GemBox.Spreadsheet.ExcelFile
-            Dim item = excel.Worksheets.Add(Truncate(Dt.TableName, 31))
+            Dim item = excel.Worksheets.Add(ValidFileName(Dt.TableName))
 
             item.InsertDataTable(Dt, New InsertDataTableOptions() With
             {