Carissimi amici,
come posso impostare il formato delle celle in excel (tipo personalizzato) durante la creazione del file tramite questo script?
Perchè un campo estrapolato da db che contiene 14 numeri in excel me lo stampa così: 1E+11 etc anche per altri campi
Ecco lo script che sto utilizzando:
Graziecodice:risultato ="" Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("../../mdb-database/miodb.mdb") Set objRs = Server.CreateObject("ADODB.Recordset") ' estraggo i dati Set objRs= objConn.Execute ("select id, cod pdr, mtr, lettura from TABELLA where dataora >= #"&data_inizio&"# and dataora <=#"&data_fine&"# order by id desc") if not objRs.EOF then response.write "ELENCO_PERIODO: - DAL: "&data_inizio2&" AL: "&data_fine2 for i = 0 to objRs.Fields.Count-1 risultato = risultato & objRs.Fields(i).Name & "</td><td>" next risultato = risultato & "</td></tr><tr><td>" risultato = risultato & objRs.GetString(,,"</td><td>","</td></tr><tr><td>", "-") ' modifico header per forzare l'apertura in Excel Response.ContentType = "application/vnd.ms-excel" Response.AddHeader "content-disposition", "inline; filename=elenco.xls" ' scrivo a video Response.Write ("<table><tr><td > " & risultato & " </td></tr></table>") else Response.Write ("NON CI SONO DATI") end if
G.

Rispondi quotando
