i'm trying to do a module to export some tables to excel, but i found a couple of problems

when i use this method:
---------------------------------
Response.Clear()
Response.Charset = ""
Me.EnableViewState = False
'set the response type to excel
Response.ContentType = "application/vnd.ms-excel"
'create a string writer anf HTMLTextWriter that uses it
Dim StringWrite As New System.IO.StringWriter
Dim HTMLWrite As New System.Web.UI.HtmlTextWriter(StringWrite)
'instantiate a datagrid
Dim dg As New DataGrid
'set the datagrid datasource to the dataset passed in and bind it
dg.DataSource = uTabla
dg.DataBind()
'tell the datagrid to render itself to our htmltextwriter
dg.RenderControl(HTMLWrite)
'output the html
Response.Write(StringWrite.ToString)
Response.End()
----------------------------------
export ALL the page, not only the datatable


and when i use this method
----------------------------------
Dim xlsWB As Excel.Workbook
Dim xlsWS As Excel.Worksheet

Dim xlsApp As New Excel.ApplicationClass
'etc...
----------------------------------
i get this error, even if i have administrator and aspnet permissions:
DotNetNuke.Services.Exceptions.ModuleLoadException: Retrieving the COM class factory for component with CLSID {00024500-0000-0000-C000-000000000046} failed due to the following error: 80070005. ---> System.UnauthorizedAccessException: Retrieving the COM class factory for component with CLSID {00024500-0000-0000-C000-000000000046} failed due to the following error: 80070005. at d2bnetwork.Modules.Eventos.Inscriptos.ExportarExcel(Object sender, EventArgs e) --- End of inner exception stack trace ---


i'm using dnn version 4.3.5

any help would be appreciated

thanks,
Sebastian

thanks for your reply

i give up trying to export a xls file, and i follow the way you did it
at first, the csv file contained part of the html code, but it fixed alone (?)

anyway, the export to csv now works

thanks
Sebastian

don't worry, i fix it
my way to do it

export to csv:
---------------

Dim cInst As New d2bnetwork.Modules.Instituciones.InstitucionesController
Dim oInst As d2bnetwork.Modules.Instituciones.InstitucionesInfo
Dim ListaInst As List(Of d2bnetwork.Modules.Instituciones.InstitucionesInfo)

ListaInst = cInst.ObtenerInstituciones
Dim sb As New StringBuilder

sb.Append("""ID"";""Nombre"";""Descripcion""")
sb.Append(Environment.NewLine)

For Each oInst In ListaInst
sb.Append("""" & oInst.InstID.ToString & """;""" & oInst.Nombre & """;""" & oInst.Descripcion & """")
sb.Append(Environment.NewLine)
Next

'Response.ClearContent()
'Response.Clear()
Response.ClearHeaders()
Response.AppendHeader("Content-Disposition", "attachment; filename=Instituciones.csv")
'Response.AppendHeader("Content-Length", sb.Length.ToString())
Response.ContentType = "text/csv"
Response.Write(sb.ToString())
Response.Flush()
Response.SuppressContent = True
Response.End()

---------------


export to xls:
---------------

Dim cInst As New d2bnetwork.Modules.Instituciones.InstitucionesController
Dim oInst As d2bnetwork.Modules.Instituciones.InstitucionesInfo
Dim ListaInst As List(Of d2bnetwork.Modules.Instituciones.InstitucionesInfo)

ListaInst = cInst.ObtenerInstituciones

Dim uTabla As New DataTable
uTabla.Columns.Add(New DataColumn("ID", GetType(Integer)))
uTabla.Columns.Add(New DataColumn("Nombre", GetType(String)))
uTabla.Columns.Add(New DataColumn("Descripcion", GetType(String)))

Dim dr As DataRow

For Each oInst In ListaInst
dr = uTabla.NewRow()
dr("ID") = oInst.InstID
dr("Nombre") = oInst.Nombre
dr("Descripcion") = oInst.Descripcion
uTabla.Rows.Add(dr)
Next

Response.Clear()
Response.ClearContent()
Response.ClearHeaders()
Response.Buffer = True
Response.Charset = ""

'set the response type to excel
Response.AppendHeader("Content-Disposition", "attachment; filename=Instituciones.xls")
Response.ContentType = "application/vnd.ms-excel"
'create a string writer anf HTMLTextWriter that uses it
Dim StringWrite As New System.IO.StringWriter
Dim HTMLWrite As New System.Web.UI.HtmlTextWriter(StringWrite)
'instantiate a datagrid
Dim dg As New DataGrid
'set the datagrid datasource to the dataset passed in and bind it
dg.DataSource = uTabla.DefaultView 'DataTable
dg.DataBind()
'tell the datagrid to render itself to our htmltextwriter
dg.RenderControl(HTMLWrite)
'output the html
Response.Write(StringWrite.ToString)
Response.Flush()
Response.SuppressContent = True
Response.End()