Exportando a Excel desde .NET

[Tanis2004]

Este es el inicio del código del procedimiento:


Response.ContentType = "application/vnd.ms-excel"
Response.Buffer = True
Response.Clear()
Response.Charset = ""

a partir de ahí empieza a pintar el excel... voy directamente a la parte que nos interesa, si crees que puede estar por ahí me lo dices y te lo pongo entero

If (DT.Rows.Count = 0) Then
Response.Write("<tr>" & "<tr class=ReportData><td colspan=" & DT.Columns.Count & ">No data was returned. Consider changing the criteria." & "</td>" & "</tr>")
Else
'Row
For Each rowItem In DT.Rows
Response.Write("<tr class=ReportData border=1>")
'Column
For j = 0 To DT.Columns.Count - 1
If IsDBNull(rowItem.ItemArray(j)) Or Len(rowItem.ItemArray(j).ToString()) = 0 Then
Response.Write("<td align=right border=1>" & strSpace + "</td>")
Else
'Response.Write("<td align=right border=1>" & rowItem.ItemArray(j).ToString() + "</td>")
Select Case j
'BEGIN MOD PSH SIR AR31774 3/1/2007 Case 6...Case 7...Case 10.
Case 5
Response.Write("<td align=right border=1>" & CStr(Format(rowItem.ItemArray(j), "#,##0.00")) + "</td>")
dbl0_30 = dbl0_30 + CDbl(rowItem.ItemArray(j))
Case 6
Response.Write("<td align=right border=1>" & CStr(Format(rowItem.ItemArray(j), "#,##0.00")) + "</td>")
dbl31_60 = dbl31_60 + CDbl(rowItem.ItemArray(j))
Case 7
Response.Write("<td align=right border=1>" & CStr(Format(rowItem.ItemArray(j), "#,##0.00")) + "</td>")
dbl61_90 = dbl61_90 + CDbl(rowItem.ItemArray(j))
Case 8
Response.Write("<td align=right border=1>" & CStr(Format(rowItem.ItemArray(j), "#,##0.00")) + "</td>")
dbl91_120 = dbl91_120 + CDbl(rowItem.ItemArray(j))
Case 9
Response.Write("<td align=right border=1>" & CStr(Format(rowItem.ItemArray(j), "#,##0.00")) + "</td>")
dblUppTht120 = dblUppTht120 + CLng(rowItem.ItemArray(j))
'END MOD PSH SIR AR31774
Case Else
Response.Write("<td align=right border=1>" & rowItem.ItemArray(j).ToString() + "</td>")
End Select
End If

Next
Response.Write("</tr>")
Next