• Domingo 22 de Diciembre de 2024, 13:08

Autor Tema:  Problema Al Exportar Datos De Grid A Excel  (Leído 990 veces)

CSIU

  • Nuevo Miembro
  • *
  • Mensajes: 17
    • Ver Perfil
Problema Al Exportar Datos De Grid A Excel
« en: Martes 25 de Julio de 2006, 00:10 »
0
Saludos,

 La situación es esta: Estoy trabajando con visual studio 2003 y he hecho una aplicación en asp.net (vb) el cual muestra una información en un grid, pero he estado teniendo problemas al querer hacer la exportación de dicho grid a un archivo de excel apareciendome el mensaje "res://c:\winnt\system32\shdoclc.dll\dnserror.htm" y me muestra como que no ha encontrado una pagina web. Lo raro es que la misma función he ocupado en otras aplicaciones y funciona bien, pero lo peculiar de esta aplicacion es que tiene 2 frames, uno superior para el menu y uno inferior (donde esta el grid) para mostrar la informacion.

Alguna idea de lo que este pasando en la aplicación?. Gracias de antemano.
Anexo el segmento de código:

[CODE]
Private Sub btnExporta_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExporta.Click

        Try
            ' No enviamos la respuesta hasta que hemos terminado de procesar todo
            Response.Clear()
            Response.Buffer = True
            Dim Nombre As String
            Nombre = "TablaDinamica_" & Trim(Me.listMes.SelectedItem.Text) & "_" & Trim(Me.listAnio.SelectedItem.Text) & ".xls"
            Response.AddHeader("Content-Disposition", "attachment;filename=" & Nombre & "")
            Response.Charset = "UTF-8"
            Response.ContentEncoding = System.Text.Encoding.Default
            Dim tw As New System.IO.StringWriter
            Dim hw As New System.Web.UI.HtmlTextWriter(tw)
            Me.DataGrid1.RenderControl(hw)
            'Me.pnlResult.RenderControl(hw)
            Response.Write(tw.ToString())
            ' Enviamos los datos al cliente
            Response.End()
        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
End Sub
"Six bullets... more than enough to kill a man." Revolver Ocelot