Hola.
Alguien pidio como incluir una imagen en Excel, aqui esta el codigo en ASP NET 2.0:
Public Function HTML() As String
Dim page1 As New Page()
page1.EnableViewState = False
Dim builder1 As New System.Text.StringBuilder()
Dim writer1 As New System.IO.StringWriter(builder1)
Dim writer2 As New HtmlTextWriter(writer1)
writer2.Write("<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0 Transitional//EN"" ""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">" & Chr(10) & "<html xmlns=""http://www.w3.org/1999/xhtml"">" & Chr(10) & "<head>" & Chr(10) & "<title>Datos</title>" & Chr(10) & "<meta http-equiv=""Content-Type"" content=""text/html; charset=iso-8859-1"" />" & Chr(10) & "<style>" & Chr(10) & "</style>" & Chr(10) & "</head>" & Chr(10) & "<body>" & Chr(10) & "")
writer2.Write("<img src=http://enlace/a/Imagen.gif>")
writer2.Write("<table><tr><td></td><td></td><td></td><td></td><td><font face=Arial size=5><center>Título Principal</center></font></td></tr></table><br>")
writer2.Write("<table>" & Chr(10) & "<tr>" & Chr(10) & "<td></td><td class=TD width=35%><b>Fecha :</b></td><td width=65% align=left>" + "20/04/2008" + "</td>" & Chr(10) & "</tr>" & Chr(10) & "<tr>" & Chr(10) & "<td></td><td class=TD><b>Gerencia:</b></td><td>" + "gggg" + "</td>" & Chr(10) & "</tr>" & Chr(10) & "</table>" & Chr(10) & "<br><br>")
page1.DesignerInitialize()
page1.RenderControl(writer2)
writer2.Write("" & Chr(10) & "</body>" & Chr(10) & "</html>")
page1.Dispose()
page1 = Nothing
Return builder1.ToString()
End Function
Protected Sub Button1_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Response.Clear()
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader("Content-Disposition", "attachment;filename=NombreArchivo.xls")
Response.Charset = "UTF-8"
Response.ContentEncoding = System.Text.Encoding.[Default]
Response.Write(HTML())
'Llamada al procedimiento HTML
Response.[End]()
End Sub
Ahora quisiera saber si alguien puede ayudarme con lo siguiente, quiero exportar un archivo a Excel, pero con varias hojas. Mediante este sistema no lo he conseguido, lo logro exportandolo como XML, pero para leerlo en Excel el cliente debe tener Excel 2003 o superior, el Excel 2000 no los lee.
Tampoco me sirve instanciando objetos de Excel con:
Dim oXL As Excel.Application
Dim oWB As Excel._Workbook
Dim oSheet As Excel._Worksheet
Dim oRng As Excel.Range
oXL = New Excel.Application()
....
Porque el servidor no permite instanciar objetos.
Si alguien tiene alguna idea que me lo haga llegar por favor.
Saludos.