none
Exportar SQL a EXCEL [89%] Solo que sale un error [Ayuda] RRS feed

  • Pregunta

  • Hola,

    Con el siguiente código [Exporto datos de un Select * from ] pero el problema es que cuando abro el EXCEL me sale un mensaje

    El formato y la extensión de archivo xxx.xls no coinciden. Puede que el archivo esté dañado o no sea seguro.
    No lo abra a menos que confié en su origen


    Pero si exporta los datos correctamente 

    Código

      SqlQuery = String.Format("Select from tabla ")
                Dim dt As DataTable = ObjClsDB.informacion(SqlQuery)
    
                If dt.Rows.Count > 0 Then
                    Dim nombreArchivo As String = "GestiónVehicular"
                    Dim archivoOrigen As String = "C:\Users\Zz\Desktop\GestionVehicular.xls"
                    Dim archivoDestino As String = "C:\Users\Zz\Desktop\"
    
                    If System.IO.File.Exists(archivoDestino & nombreArchivo & ".xls") Then
                        System.IO.File.Delete(archivoDestino & nombreArchivo & ".xls")
                    End If
    
                    Dim objExcel As New clsExcel(archivoDestino & nombreArchivo & ".xls")
    
                    objExcel.crearReporte(dt, nombreArchivo)
    
                    Dim uri As New Uri(archivoDestino & nombreArchivo & ".xls")
                    Dim fileName As String = Path.GetFullPath(uri.LocalPath)
                    Dim fileInfo As New FileInfo(fileName)
    
                    If fileInfo.Exists Then
                        Response.ContentType = "application/xls"
                        Response.AppendHeader("Content-Disposition", "attachment; filename=" & fileInfo.Name & "")
                        Response.TransmitFile(fileInfo.FullName)
                        Response.End()
                    End If
    
                End If

    Saludos..


    lunes, 17 de abril de 2017 22:57

Respuestas

Todas las respuestas