Exportando a Excel desde .NET

[Tanis2004]

Hola, tengo una aplicación web que exporta un report a excel, en formato inglés o americano, esto es: 123,456.78.

Esto funciona bien tanto en mi máquina como en mi servidor de pruebas, pero cuando lo subo a producción, cuando los valores son 0, en lugar de mostrarmelos como 0.00 me los muestra como 0 a secas sin los dos decimales. El código no cambia para ninguna de las maquinas, y la linea que pinta la columna en cuestión es la siguiente:

Response.Write("<td align=right border=1>" & CStr(Format(rowItem.ItemArray(j), "#,##0.00")) + "</td>")

deduzco que es cuestión de la maquina y de su configuración, he probado a cambiar en los regional settings por si fuera cuestión de eso pero da igual como los tengas configurados que no funciona... ¿alguna idea? Gracias y un saludo.

[jhonwilliams]

Lo que exportas es el contenido de una grid?

Como lo exportas?

Saludos

[Tanis2004]

Más información.

Al observar el formato de las celdas de excel ocurre lo siguiente:

Dentro de una misma columna en la cual todas tienen el mismo formato dado por código vb.NET, resulta lo siguiente:

Los números bien formateados son de tipo numérico, pero los que están mal formateados es porque el tipo de dato que supuestamente contiene la celda es "General". Basta cambiar manualmente el tipo de una o todoas las celdas a numerico para solucionar el problema, pero claro, esto es una chapuza, y necesitaría que esto se solucionara por código o por configuración del servidor....

Gracias a todos y un saludo.

[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