Formattazione celle excel in ASP

[teorema55]

Beh, se usi VBScript e di recente non hanno modificato la matematica, sì.......



Fai questa prova:

numero=5
for i=0 to 1  ' trasformo in numeri di due cifre con zeri davanti
check=mid(numero, 2)
if check="" then  
numero="0"&numero
end if
next
response.write(numero)

[teorema55]

Cosa ne faccia poi Excel, di quel numero, questo non lo so: la funzione formatta il numero con VBScript PRIMA di inserirlo in Excel

[daryl74]

Spero di aver capito il problema...
Per visualizzare in excel un numero in quel modo (con lo zero davanti) questo deve essere formattato come testo (altrimenti excel eliminerà sempre lo zero).
Per inserirlo in formato testo prova ad inserire il numero con il singolo apice davanti. (senza il singolo apice al fondo)

Es.: 01 inseriscilo come '01

In questo modo excel crederà di avere un testo nella cella e lo formatterà come hai chiesto

Ciao

Dario

[lodo75]

Se inserisco l'apice davanti al numero funzione però in excel mi scrive anche l'apice!

[daryl74]

Prova ad aprire un foglio di excel nuovo. Se inserisci 01 in A1 ti scrive 1 (allineandolo a destra). Se inserisci '01 in A2 ti scrive 01 (allineandolo a sinistra). In excel l'apice singolo davanti ad un numero forza la cella al formato TESTO indipendentemente dal formato che le attribuisci. Prova a cambiare la formattazione della cella A2 e vedrai che non cambia la visualizzazione fino a che non rimuovi l'apice singolo davanti al numero.
Prova a postare il codice ASP che usi per l'esportazione e magari allegare uno dei file di excel esportati (magari di piccole dimensioni) così cerchiamo di capire meglio dov'è il problema.

N.B. = Io uso EXCEL 2000, non ho provato sulle versioni successive. Ma non dovrebbero esserci differenze.

Ciao

Daryl74

[lodo75]

Ecco il codice. In questo modo in excel mi scrive nelle celle il valore con apice(') davanti.


response.buffer = true
response.ContentType = "application/vnd.ms-excel"
response.AddHeader "content-disposition", "inline; filename=nomefile.xls"

response.write "<table border=1>"

' costruisco la testata
response.write "<tr>"

For i = 0 to rs.Fields.Count -1
valcampo = rs.Fields(i).Name
if valcampo <> campokey or Conn("campo") then
response.write "<td>"
response.write rs.Fields(i).Name
response.write "</td>"
end if
next
response.write "</tr>"


do until rs.eof
response.write "<tr>"
For i = 0 to rs.Fields.Count -1
valcampo = rs.Fields(i).Name
if valcampo <> campokey or conn("campo") then
response.write "<td>"
valorecampo = rs(rs.Fields(i).Name)


if not isnull(valorecampo) and valorecampo <> "" then

response.write "'" & (valorecampo)

end if

response.write "</td>"
end if
next
response.write "</tr>"
rs.MoveNext
loop
response.write "</table>"

[lodo75]

Nessuno sa aiutarmi?!

[maximum]

Risolvete così:

<td style="vnd.ms-excel.numberformat:@" >082050521478524872</td>