|
P: n/a
|
I have a web page written in asp.net that has multiple datagrids on it that
would need to be exported to Excel. Each of the datagrids would be a subset
of what the datagrid above it was.
Thus far, I've had no luck in finding anything to work reliably. Some of
the files I've saved (using a radio button click event), will open fine in
Excel, others give me an "Unable to open file" message.
Any help appreciated.
Thanks,
SC
| |
Share this Question
|
P: n/a
|
For simple pages, you can export the page as Excel as tables will render.
For more complex Excel, you will either have to program against the Excel
objects (set up Office components on the web server), which is awfully
expensive, perf wise, or get a third party component. My suggestion would be
to find a third party component on a site like componentsource.com.
--
Gregory A. Beamer
MVP; MCP: +I, SE, SD, DBA
************************************************** ********************
Think Outside the Box!
************************************************** ********************
<me@privacy.net> wrote in message
news:uT**************@TK2MSFTNGP09.phx.gbl... I have a web page written in asp.net that has multiple datagrids on it
that would need to be exported to Excel. Each of the datagrids would be a
subset of what the datagrid above it was.
Thus far, I've had no luck in finding anything to work reliably. Some of
the files I've saved (using a radio button click event), will open fine in
Excel, others give me an "Unable to open file" message.
Any help appreciated.
Thanks,
SC
| |
|
P: n/a
|
I found the following online article and sample to be useful. Check it out http://www.c-sharpcorner.com/Code/20...GridToExcel.as
Suresh
----- me@privacy.net wrote: ----
I have a web page written in asp.net that has multiple datagrids on it tha
would need to be exported to Excel. Each of the datagrids would be a subse
of what the datagrid above it was
Thus far, I've had no luck in finding anything to work reliably. Some o
the files I've saved (using a radio button click event), will open fine i
Excel, others give me an "Unable to open file" message
Any help appreciated
Thanks
S | |
|
P: n/a
|
I've tried a VB version of this and just end up with a blank page with
nothing in it.
SC
"Suresh" <an*******@discussions.microsoft.com> wrote in message
news:8C**********************************@microsof t.com... I found the following online article and sample to be useful. Check it
out.
http://www.c-sharpcorner.com/Code/20...ridToExcel.asp
Suresh.
----- me@privacy.net wrote: -----
I have a web page written in asp.net that has multiple datagrids on
it that would need to be exported to Excel. Each of the datagrids would be a
subset of what the datagrid above it was.
Thus far, I've had no luck in finding anything to work reliably.
Some of the files I've saved (using a radio button click event), will open
fine in Excel, others give me an "Unable to open file" message.
Any help appreciated.
Thanks,
SC
| |
|
P: n/a
|
It's working for me in VB.NET as well
Can you post your code? Maybe some C# wasn't coverted properly
Suresh
FYI: (in VB.NET from the code that worked for me
Private Sub btnConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvert.Clic
Response.Clear(
Response.Buffer = Tru
Response.ContentType = "application/vnd.ms-excel
Response.Charset = "
Me.EnableViewState = Fals
Dim oStringWriter As System.IO.StringWriter = New System.IO.StringWriter(
Dim oHtmlTextWriter As System.Web.UI.HtmlTextWriter = New System.Web.UI.HtmlTextWriter(oStringWriter
Me.ClearControls(DataGrid1
DataGrid1.RenderControl(oHtmlTextWriter
Response.Write(oStringWriter.ToString()
Response.End(
End Su
Private Sub ClearControls(ByVal ctrl As Control
Dim i As Int3
For i = ctrl.Controls.Count - 1 To 0 Step -
ClearControls(ctrl.Controls(i)
Nex
If ctrl.GetType().ToString() <> "TableCell" The
If Not ctrl.GetType().GetProperty("SelectedItem") Is Nothing The
Dim literal As LiteralControl = New LiteralControl(
ctrl.Parent.Controls.Add(literal
Tr
literal.Text = CType(ctrl.Controls.GetType().GetProperty("Selecte dItem").GetValue(ctrl, Nothing), System.String
Catc
End Tr
ctrl.Parent.Controls.Remove(ctrl
End I
Els
Dim literal As LiteralControl = New LiteralControl(
ctrl.Parent.Controls.Add(literal
literal.Text = CType(ctrl.Controls.GetType().GetProperty("Text"). GetValue(ctrl, Nothing), System.String
ctrl.Parent.Controls.Remove(ctrl
End I
Retur
End Su
----- me@privacy.net wrote: ----
I've tried a VB version of this and just end up with a blank page wit
nothing in it
S
"Suresh" <an*******@discussions.microsoft.com> wrote in messag
news:8C**********************************@microsof t.com.. I found the following online article and sample to be useful. Check i
out
http://www.c-sharpcorner.com/Code/20...GridToExcel.as Suresh
----- me@privacy.net wrote: ----
I have a web page written in asp.net that has multiple datagrids o
it tha would need to be exported to Excel. Each of the datagrids would be
subse of what the datagrid above it was Thus far, I've had no luck in finding anything to work reliably
Some o the files I've saved (using a radio button click event), will ope
fine i Excel, others give me an "Unable to open file" message Any help appreciated
Thanks
S> | |
|
P: n/a
|
When I put in your code, exactly as you have it below, I change only the
Private Sub btnconvert_click line, to reflect the button I am using. It's a
radio button.
The code I have executing follows:
Private Sub RbtnExport_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RbtnExport.SelectedIndexChanged
Response.Clear()
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.Charset = ""
Me.EnableViewState = False
Dim oStringWriter As System.IO.StringWriter = New System.IO.StringWriter()
Dim oHtmlTextWriter As System.Web.UI.HtmlTextWriter = New
System.Web.UI.HtmlTextWriter(oStringWriter)
Me.ClearControls(DataGrid1)
DataGrid1.RenderControl(oHtmlTextWriter)
Response.Write(oStringWriter.ToString())
Response.End()
End Sub
Private Sub ClearControls(ByVal ctrl As Control)
Dim i As Int32
For i = ctrl.Controls.Count - 1 To 0 Step -1
ClearControls(ctrl.Controls(i))
Next
If ctrl.GetType().ToString() <> "TableCell" Then
If Not ctrl.GetType().GetProperty("SelectedItem") Is Nothing Then
Dim literal As LiteralControl = New LiteralControl()
ctrl.Parent.Controls.Add(literal)
Try
literal.Text =
CType(ctrl.Controls.GetType().GetProperty("Selecte dItem").GetValue(ctrl,
Nothing), System.String)
Catch
End Try
ctrl.Parent.Controls.Remove(ctrl)
End If
Else
Dim literal As LiteralControl = New LiteralControl()
ctrl.Parent.Controls.Add(literal)
literal.Text =
CType(ctrl.Controls.GetType().GetProperty("Text"). GetValue(ctrl, Nothing),
System.String)
ctrl.Parent.Controls.Remove(ctrl)
End If
Return
End Sub
as you can see, it is exactly the same as yours, excluding the sub on the
first line.
However, when this runs, I'll step thru it in debug mode, and it'll only
return a blank page. It appears that it's just empty. Do not know why. It
does appear to iterate thru the loop in the clearcontrols section. When it
gets to response.end though, it just sits there.
I'm trying to return a customer list, with names, addresses, etc. on it.
Steve
"Suresh" <an*******@discussions.microsoft.com> wrote in message
news:8A**********************************@microsof t.com... It's working for me in VB.NET as well.
Can you post your code? Maybe some C# wasn't coverted properly.
Suresh.
FYI: (in VB.NET from the code that worked for me)
Private Sub btnConvert_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnConvert.Click Response.Clear()
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.Charset = ""
Me.EnableViewState = False
Dim oStringWriter As System.IO.StringWriter = New
System.IO.StringWriter() Dim oHtmlTextWriter As System.Web.UI.HtmlTextWriter = New
System.Web.UI.HtmlTextWriter(oStringWriter)
Me.ClearControls(DataGrid1)
DataGrid1.RenderControl(oHtmlTextWriter)
Response.Write(oStringWriter.ToString())
Response.End()
End Sub
Private Sub ClearControls(ByVal ctrl As Control)
Dim i As Int32
For i = ctrl.Controls.Count - 1 To 0 Step -1
ClearControls(ctrl.Controls(i))
Next
If ctrl.GetType().ToString() <> "TableCell" Then
If Not ctrl.GetType().GetProperty("SelectedItem") Is Nothing Then
Dim literal As LiteralControl = New LiteralControl()
ctrl.Parent.Controls.Add(literal)
Try
literal.Text =
CType(ctrl.Controls.GetType().GetProperty("Selecte dItem").GetValue(ctrl,
Nothing), System.String) Catch
End Try
ctrl.Parent.Controls.Remove(ctrl)
End If
Else
Dim literal As LiteralControl = New LiteralControl()
ctrl.Parent.Controls.Add(literal)
literal.Text =
CType(ctrl.Controls.GetType().GetProperty("Text"). GetValue(ctrl, Nothing),
System.String) ctrl.Parent.Controls.Remove(ctrl)
End If
Return
End Sub
----- me@privacy.net wrote: -----
I've tried a VB version of this and just end up with a blank page
with nothing in it.
SC
"Suresh" <an*******@discussions.microsoft.com> wrote in message
news:8C**********************************@microsof t.com... > I found the following online article and sample to be useful.
Check it out. >>
http://www.c-sharpcorner.com/Code/20...ridToExcel.asp >> Suresh.
>> ----- me@privacy.net wrote: -----
>> I have a web page written in asp.net that has multiple
datagrids on it that > would need to be exported to Excel. Each of the datagrids
would be a subset > of what the datagrid above it was. >> Thus far, I've had no luck in finding anything to work
reliably. Some of > the files I've saved (using a radio button click event), will
open fine in > Excel, others give me an "Unable to open file" message. >> Any help appreciated.
>> Thanks,
>> SC
>>>>> | |
|
P: n/a
|
Interesting..
This may be something other than just converting the grid to excel
Couple of more checks/tests you can perform to narrow the problem down.
1. Ensure EnableViewState is set to true on the page that has datagrid
2. In the immediate window check if there's anything at all is in thi
oStringWriter.ToString(
This will narrow the problem to the conversion code. If it has your table in HTML format then it might be a browser problem
3. Try creating a test page that simply has a button and a grid. Clicking on the button export the grid to Excel. Leave all the default settings of the page
Suresh
----- me@privacy.net wrote: ----
When I put in your code, exactly as you have it below, I change only th
Private Sub btnconvert_click line, to reflect the button I am using. It's
radio button
The code I have executing follows
Private Sub RbtnExport_SelectedIndexChanged(ByVal sender As System.Object
ByVal e As System.EventArgs) Handles RbtnExport.SelectedIndexChange
Response.Clear(
Response.Buffer = Tru
Response.ContentType = "application/vnd.ms-excel
Response.Charset = "
Me.EnableViewState = Fals
Dim oStringWriter As System.IO.StringWriter = New System.IO.StringWriter(
Dim oHtmlTextWriter As System.Web.UI.HtmlTextWriter = Ne
System.Web.UI.HtmlTextWriter(oStringWriter
Me.ClearControls(DataGrid1
DataGrid1.RenderControl(oHtmlTextWriter
Response.Write(oStringWriter.ToString()
Response.End(
End Su
Private Sub ClearControls(ByVal ctrl As Control
Dim i As Int3
For i = ctrl.Controls.Count - 1 To 0 Step -
ClearControls(ctrl.Controls(i)
Nex
If ctrl.GetType().ToString() <> "TableCell" The
If Not ctrl.GetType().GetProperty("SelectedItem") Is Nothing The
Dim literal As LiteralControl = New LiteralControl(
ctrl.Parent.Controls.Add(literal
Tr
literal.Text
CType(ctrl.Controls.GetType().GetProperty("Selecte dItem").GetValue(ctrl
Nothing), System.String
Catc
End Tr
ctrl.Parent.Controls.Remove(ctrl
End I
Els
Dim literal As LiteralControl = New LiteralControl(
ctrl.Parent.Controls.Add(literal
literal.Text
CType(ctrl.Controls.GetType().GetProperty("Text"). GetValue(ctrl, Nothing)
System.String
ctrl.Parent.Controls.Remove(ctrl
End I
Retur
End Su
as you can see, it is exactly the same as yours, excluding the sub on th
first line
However, when this runs, I'll step thru it in debug mode, and it'll onl
return a blank page. It appears that it's just empty. Do not know why. I
does appear to iterate thru the loop in the clearcontrols section. When i
gets to response.end though, it just sits there
I'm trying to return a customer list, with names, addresses, etc. on it
Stev
"Suresh" <an*******@discussions.microsoft.com> wrote in messag
news:8A**********************************@microsof t.com.. It's working for me in VB.NET as well
Can you post your code? Maybe some C# wasn't coverted properly Suresh
FYI: (in VB.NET from the code that worked for me Private Sub btnConvert_Click(ByVal sender As System.Object, ByVal e A
System.EventArgs) Handles btnConvert.Clic Response.Clear(
Response.Buffer = Tru
Response.ContentType = "application/vnd.ms-excel
Response.Charset = "
Me.EnableViewState = Fals Dim oStringWriter As System.IO.StringWriter = Ne
System.IO.StringWriter( Dim oHtmlTextWriter As System.Web.UI.HtmlTextWriter = Ne
System.Web.UI.HtmlTextWriter(oStringWriter Me.ClearControls(DataGrid1)
DataGrid1.RenderControl(oHtmlTextWriter) Response.Write(oStringWriter.ToString())
Response.End()
End Sub Private Sub ClearControls(ByVal ctrl As Control)
Dim i As Int32 For i = ctrl.Controls.Count - 1 To 0 Step -1
ClearControls(ctrl.Controls(i))
Next If ctrl.GetType().ToString() <> "TableCell" Then
If Not ctrl.GetType().GetProperty("SelectedItem") Is Nothing Then
Dim literal As LiteralControl = New LiteralControl()
ctrl.Parent.Controls.Add(literal)
Try
literal.Text =
CType(ctrl.Controls.GetType().GetProperty("Selecte dItem").GetValue(ctrl,
Nothing), System.String) Catch
End Try
ctrl.Parent.Controls.Remove(ctrl)
End If
Else
Dim literal As LiteralControl = New LiteralControl()
ctrl.Parent.Controls.Add(literal)
literal.Text =
CType(ctrl.Controls.GetType().GetProperty("Text"). GetValue(ctrl, Nothing),
System.String) ctrl.Parent.Controls.Remove(ctrl)
End If Return End Sub ----- me@privacy.net wrote: -----
I've tried a VB version of this and just end up with a blank page
with nothing in it. SC
"Suresh" <an*******@discussions.microsoft.com> wrote in message news:8C**********************************@microsof t.com... I found the following online article and sample to be useful.
Check it out.
http://www.c-sharpcorner.com/Code/20...ridToExcel.asp Suresh.
----- me@privacy.net wrote: -----
I have a web page written in asp.net that has multiple
datagrids on it that would need to be exported to Excel. Each of the datagrids
would be a subset of what the datagrid above it was. Thus far, I've had no luck in finding anything to work
reliably. Some of the files I've saved (using a radio button click event), will
open fine in Excel, others give me an "Unable to open file" message. Any help appreciated.
Thanks,
SC
>> | |
|
P: n/a
|
One problem with exporting the datagrid to excel is that it only works
for one page -- if you ever set up the datagrid with paging, and it's
more than one page, it's not going to work.
What I've been doing is iterating through the datatable or collection
that
is the datasource for the grid, assembling an html table in a string,
and doing a response.write as excel (don't have the syntax in front of
me, but you can find this in ASP groups).
It's a bit of coding, but if you have to do this many times you'll
probably see
a pattern and find a way to create a funtion to do this.
<me@privacy.net> wrote in message news:<uT**************@TK2MSFTNGP09.phx.gbl>... I have a web page written in asp.net that has multiple datagrids on it that
would need to be exported to Excel. Each of the datagrids would be a subset
of what the datagrid above it was.
Thus far, I've had no luck in finding anything to work reliably. Some of
the files I've saved (using a radio button click event), will open fine in
Excel, others give me an "Unable to open file" message.
Any help appreciated.
Thanks,
SC | |
|
P: n/a
|
<<1. Ensure EnableViewState is set to true on the page that has datagrid.>>
I just clicked on the aspx page for the one I'm looking at. There are 2
enableviewstate properties - one, enableviewstate = true, the other,
enableviewstatemac = false. In the code for the button index changed, the
enableviewstate is set to false.
<<2. In the immediate window check if there's anything at all is in this
oStringWriter.ToString() This will narrow the problem to the conversion
code. If it has your table in HTML format then it might be a browser
problem.>>
This is what I get when I step thru the code, after the response.write has
been done:
Write Argument not specified for parameter 'FileNumber' of 'Public Sub
Write(FileNumber As Integer, ParamArray Output() As Object)'.
the expression "Tostring" has its value = ToString "ASP.customerlist_aspx"
String
I have my stop points on the button index changed, and then on the
rendercontrol step. I single step (F8) thru the next 2 statements, and what
I get is above.
<<3. Try creating a test page that simply has a button and a grid.
Clicking on the button export the grid to Excel. Leave all the default
settings of the page.>>
I will give this a try, but the display above works fine as far as it is
displaying stuff now. Using my old method, it would export the display to
excel, but would barf if it was over 30 records displayed.
Thanks for the help - any further advice is appreciated.
SC Suresh.
----- me@privacy.net wrote: -----
When I put in your code, exactly as you have it below, I change only
the Private Sub btnconvert_click line, to reflect the button I am using.
It's a radio button.
The code I have executing follows:
Private Sub RbtnExport_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RbtnExport.SelectedIndexChanged
Response.Clear()
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.Charset = ""
Me.EnableViewState = False
Dim oStringWriter As System.IO.StringWriter = New
System.IO.StringWriter()
Dim oHtmlTextWriter As System.Web.UI.HtmlTextWriter = New
System.Web.UI.HtmlTextWriter(oStringWriter)
Me.ClearControls(DataGrid1)
DataGrid1.RenderControl(oHtmlTextWriter)
Response.Write(oStringWriter.ToString())
Response.End()
End Sub
Private Sub ClearControls(ByVal ctrl As Control)
Dim i As Int32
For i = ctrl.Controls.Count - 1 To 0 Step -1
ClearControls(ctrl.Controls(i))
Next
If ctrl.GetType().ToString() <> "TableCell" Then
If Not ctrl.GetType().GetProperty("SelectedItem") Is Nothing Then
Dim literal As LiteralControl = New LiteralControl()
ctrl.Parent.Controls.Add(literal)
Try
literal.Text =
CType(ctrl.Controls.GetType().GetProperty("Selecte dItem").GetValue(ctrl, Nothing), System.String)
Catch
End Try
ctrl.Parent.Controls.Remove(ctrl)
End If
Else
Dim literal As LiteralControl = New LiteralControl()
ctrl.Parent.Controls.Add(literal)
literal.Text =
CType(ctrl.Controls.GetType().GetProperty("Text"). GetValue(ctrl,
Nothing), System.String)
ctrl.Parent.Controls.Remove(ctrl)
End If
Return
End Sub
as you can see, it is exactly the same as yours, excluding the sub on
the first line.
However, when this runs, I'll step thru it in debug mode, and it'll
only return a blank page. It appears that it's just empty. Do not know
why. It does appear to iterate thru the loop in the clearcontrols section.
When it gets to response.end though, it just sits there.
I'm trying to return a customer list, with names, addresses, etc. on
it.
Steve
"Suresh" <an*******@discussions.microsoft.com> wrote in message
news:8A**********************************@microsof t.com... > It's working for me in VB.NET as well.
> Can you post your code? Maybe some C# wasn't coverted properly. >> Suresh.
>> FYI: (in VB.NET from the code that worked for me) > Private Sub btnConvert_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles btnConvert.Click > Response.Clear()
> Response.Buffer = True
> Response.ContentType = "application/vnd.ms-excel"
> Response.Charset = ""
> Me.EnableViewState = False >> Dim oStringWriter As System.IO.StringWriter = New System.IO.StringWriter() > Dim oHtmlTextWriter As System.Web.UI.HtmlTextWriter = New System.Web.UI.HtmlTextWriter(oStringWriter) >> Me.ClearControls(DataGrid1)
> DataGrid1.RenderControl(oHtmlTextWriter) >> Response.Write(oStringWriter.ToString())
>> Response.End()
> End Sub >> Private Sub ClearControls(ByVal ctrl As Control)
> Dim i As Int32 >> For i = ctrl.Controls.Count - 1 To 0 Step -1
> ClearControls(ctrl.Controls(i))
> Next >> If ctrl.GetType().ToString() <> "TableCell" Then
> If Not ctrl.GetType().GetProperty("SelectedItem") Is
Nothing Then > Dim literal As LiteralControl = New LiteralControl()
> ctrl.Parent.Controls.Add(literal)
> Try
> literal.Text =
CType(ctrl.Controls.GetType().GetProperty("Selecte dItem").GetValue(ctrl, Nothing), System.String) > Catch
> End Try
> ctrl.Parent.Controls.Remove(ctrl)
> End If
> Else
> Dim literal As LiteralControl = New LiteralControl()
> ctrl.Parent.Controls.Add(literal)
> literal.Text = CType(ctrl.Controls.GetType().GetProperty("Text"). GetValue(ctrl,
Nothing), System.String) > ctrl.Parent.Controls.Remove(ctrl)
> End If >> Return > End Sub >> ----- me@privacy.net wrote: -----
>> I've tried a VB version of this and just end up with a blank
page with > nothing in it. >>> SC
>>> "Suresh" <an*******@discussions.microsoft.com> wrote in
message > news:8C**********************************@microsof t.com... >> I found the following online article and sample to be useful.
Check it > out. >>>>
http://www.c-sharpcorner.com/Code/20...ridToExcel.asp >>> Suresh.
>>> ----- me@privacy.net wrote: -----
>>> I have a web page written in asp.net that has multiple
datagrids on > it that >> would need to be exported to Excel. Each of the datagrids
would be a > subset >> of what the datagrid above it was.
>>> Thus far, I've had no luck in finding anything to work
reliably. > Some of >> the files I've saved (using a radio button click event), will
open > fine in >> Excel, others give me an "Unable to open file" message.
>>> Any help appreciated.
>>> Thanks,
>>> SC
>>>>>> | |
|
P: n/a
|
So far, nothing I've tried has worked. Any advice appreciated.
SC
<me@privacy.net> wrote in message
news:eM**************@TK2MSFTNGP09.phx.gbl... <<1. Ensure EnableViewState is set to true on the page that has
datagrid.>>
I just clicked on the aspx page for the one I'm looking at. There are 2
enableviewstate properties - one, enableviewstate = true, the other,
enableviewstatemac = false. In the code for the button index changed, the
enableviewstate is set to false.
<<2. In the immediate window check if there's anything at all is in this
oStringWriter.ToString() This will narrow the problem to the conversion
code. If it has your table in HTML format then it might be a browser
problem.>>
This is what I get when I step thru the code, after the response.write has
been done:
Write Argument not specified for parameter 'FileNumber' of 'Public Sub
Write(FileNumber As Integer, ParamArray Output() As Object)'.
the expression "Tostring" has its value = ToString
"ASP.customerlist_aspx" String
I have my stop points on the button index changed, and then on the
rendercontrol step. I single step (F8) thru the next 2 statements, and
what I get is above.
<<3. Try creating a test page that simply has a button and a grid.
Clicking on the button export the grid to Excel. Leave all the default
settings of the page.>>
I will give this a try, but the display above works fine as far as it is
displaying stuff now. Using my old method, it would export the display to
excel, but would barf if it was over 30 records displayed.
Thanks for the help - any further advice is appreciated.
SC
Suresh.
----- me@privacy.net wrote: -----
When I put in your code, exactly as you have it below, I change
only the Private Sub btnconvert_click line, to reflect the button I am
using. It's a radio button.
The code I have executing follows:
Private Sub RbtnExport_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
RbtnExport.SelectedIndexChanged
Response.Clear()
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.Charset = ""
Me.EnableViewState = False
Dim oStringWriter As System.IO.StringWriter = New
System.IO.StringWriter()
Dim oHtmlTextWriter As System.Web.UI.HtmlTextWriter = New
System.Web.UI.HtmlTextWriter(oStringWriter)
Me.ClearControls(DataGrid1)
DataGrid1.RenderControl(oHtmlTextWriter)
Response.Write(oStringWriter.ToString())
Response.End()
End Sub
Private Sub ClearControls(ByVal ctrl As Control)
Dim i As Int32
For i = ctrl.Controls.Count - 1 To 0 Step -1
ClearControls(ctrl.Controls(i))
Next
If ctrl.GetType().ToString() <> "TableCell" Then
If Not ctrl.GetType().GetProperty("SelectedItem") Is Nothing Then
Dim literal As LiteralControl = New LiteralControl()
ctrl.Parent.Controls.Add(literal)
Try
literal.Text =
CType(ctrl.Controls.GetType().GetProperty("Selecte dItem").GetValue(ctrl, Nothing), System.String)
Catch
End Try
ctrl.Parent.Controls.Remove(ctrl)
End If
Else
Dim literal As LiteralControl = New LiteralControl()
ctrl.Parent.Controls.Add(literal)
literal.Text =
CType(ctrl.Controls.GetType().GetProperty("Text"). GetValue(ctrl,
Nothing), System.String)
ctrl.Parent.Controls.Remove(ctrl)
End If
Return
End Sub
as you can see, it is exactly the same as yours, excluding the sub
on the first line.
However, when this runs, I'll step thru it in debug mode, and it'll only return a blank page. It appears that it's just empty. Do not know
why. It does appear to iterate thru the loop in the clearcontrols section.
When it gets to response.end though, it just sits there.
I'm trying to return a customer list, with names, addresses, etc.
on it.
Steve
"Suresh" <an*******@discussions.microsoft.com> wrote in message
news:8A**********************************@microsof t.com... > It's working for me in VB.NET as well.
> Can you post your code? Maybe some C# wasn't coverted properly.
>> Suresh.
>> FYI: (in VB.NET from the code that worked for me)
> Private Sub btnConvert_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles btnConvert.Click > Response.Clear()
> Response.Buffer = True
> Response.ContentType = "application/vnd.ms-excel"
> Response.Charset = ""
> Me.EnableViewState = False
>> Dim oStringWriter As System.IO.StringWriter = New System.IO.StringWriter() > Dim oHtmlTextWriter As System.Web.UI.HtmlTextWriter = New
System.Web.UI.HtmlTextWriter(oStringWriter) >> Me.ClearControls(DataGrid1)
> DataGrid1.RenderControl(oHtmlTextWriter)
>> Response.Write(oStringWriter.ToString())
>> Response.End()
> End Sub
>> Private Sub ClearControls(ByVal ctrl As Control)
> Dim i As Int32
>> For i = ctrl.Controls.Count - 1 To 0 Step -1
> ClearControls(ctrl.Controls(i))
> Next
>> If ctrl.GetType().ToString() <> "TableCell" Then
> If Not ctrl.GetType().GetProperty("SelectedItem") Is
Nothing Then > Dim literal As LiteralControl = New LiteralControl()
> ctrl.Parent.Controls.Add(literal)
> Try
> literal.Text =
CType(ctrl.Controls.GetType().GetProperty("Selecte dItem").GetValue(ctrl, Nothing), System.String) > Catch
> End Try
> ctrl.Parent.Controls.Remove(ctrl)
> End If
> Else
> Dim literal As LiteralControl = New LiteralControl()
> ctrl.Parent.Controls.Add(literal)
> literal.Text =
CType(ctrl.Controls.GetType().GetProperty("Text"). GetValue(ctrl,
Nothing), System.String) > ctrl.Parent.Controls.Remove(ctrl)
> End If
>> Return
> End Sub
>> ----- me@privacy.net wrote: -----
>> I've tried a VB version of this and just end up with a
blank page with > nothing in it.
>>> SC
>>> "Suresh" <an*******@discussions.microsoft.com> wrote in
message > news:8C**********************************@microsof t.com...
>> I found the following online article and sample to be useful.
Check it > out.
>>>>
http://www.c-sharpcorner.com/Code/20...ridToExcel.asp >>> Suresh.
>>> ----- me@privacy.net wrote: -----
>>> I have a web page written in asp.net that has multiple
datagrids on > it that
>> would need to be exported to Excel. Each of the datagrids
would be a > subset
>> of what the datagrid above it was.
>>> Thus far, I've had no luck in finding anything to work
reliably. > Some of
>> the files I've saved (using a radio button click event),
will open > fine in
>> Excel, others give me an "Unable to open file" message.
>>> Any help appreciated.
>>> Thanks,
>>> SC
>>>>>>
| | This discussion thread is closed Replies have been disabled for this discussion. | |  Question stats - viewed: 2546
- replies: 9
- date asked: Nov 18 '05
|
