Visual Basic.NET - Ayuda para insertar imágenes.

Protected Sub btnExportarExcel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExportarExcel.Click

	Call Exportar_Excel(grdDatos)

End Sub

Private Sub Exportar_Excel(ByVal pGrid As GridView)

	Dim sb As StringBuilder = New StringBuilder()

	Dim sw As StringWriter = New StringWriter(sb)

	Dim htw As HtmlTextWriter = New HtmlTextWriter(sw)

	Dim pagina As System.Web.UI.Page = New System.Web.UI.Page

	Dim form = New HtmlForm

	Dim lnAlto As Integer

	pGrid.AllowPaging = False

	pGrid.BottomPagerRow.Visible = False

	pGrid.EnableViewState = False

	pagina.EnableEventValidation = False

	pagina.DesignerInitialize()

	pagina.Controls.Add(form)

	form.Controls.Add(pGrid)

	'form.Controls.Add(grdMeEscuelasDet)

	pagina.RenderControl(htw)

	Response.Clear()

	Response.Buffer = True

	Response.ContentType = "application/vnd.ms-excel"

	'Response.AddHeader("Content-Disposition", "attachment;filename=Resumen_Anual" & Date.Now.ToShortDateString & ".xls")

	Response.AddHeader("Content-Disposition", "attachment;filename=Resumen_Anual" & ".xls")

	Response.Charset = "UTF-8"

	Response.ContentEncoding = Encoding.Default

	Response.Write(sb.ToString())

	Response.End()

	pGrid.Columns(0).Visible = True

End Sub

Protected Sub List_Conceptos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles List_Conceptos.SelectedIndexChanged

End Sub

Protected Sub grdDatos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles grdDatos.SelectedIndexChanged

End Sub