inewman
asked on
Output ASP tables to Excel and creat seperate worksheets
I have an ASP web page that creates 3 tables from a SQL data base. I am abel to export the tables to Excel using the following code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Response.Clear()
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.Charset = ""
Dim oStringWriter As System.IO.StringWriter = New System.IO.StringWriter
Dim oHtmlTextWriter As System.Web.UI.HtmlTextWrit er = New System.Web.UI.HtmlTextWrit er(oString Writer)
tb2.RenderControl(oHtmlTex tWriter)
lbl1.RenderControl(oHtmlTe xtWriter)
tb3.RenderControl(oHtmlTex tWriter)
lbl2.RenderControl(oHtmlTe xtWriter)
tb4.RenderControl(oHtmlTex tWriter)
lbl3.RenderControl(oHtmlTe xtWriter)
tb5.RenderControl(oHtmlTex tWriter)
Response.Write(oStringWrit er.ToStrin g())
Response.End()
End Sub
Each table is seperated by a label and all three tables are on one worksheet.
I would like to creat a seperate worksheet in the Excel workbook for each table. How can this be done?
Thanks.
Ira
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Response.Clear()
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.Charset = ""
Dim oStringWriter As System.IO.StringWriter = New System.IO.StringWriter
Dim oHtmlTextWriter As System.Web.UI.HtmlTextWrit
tb2.RenderControl(oHtmlTex
lbl1.RenderControl(oHtmlTe
tb3.RenderControl(oHtmlTex
lbl2.RenderControl(oHtmlTe
tb4.RenderControl(oHtmlTex
lbl3.RenderControl(oHtmlTe
tb5.RenderControl(oHtmlTex
Response.Write(oStringWrit
Response.End()
End Sub
Each table is seperated by a label and all three tables are on one worksheet.
I would like to creat a seperate worksheet in the Excel workbook for each table. How can this be done?
Thanks.
Ira
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.