Generazione file excel dinamico [credits Caccianini]

**orcim** · 02-10-2008, 09:28

Ciao a tutti.

Mi riferisco a questo script disponible tra gli esempi ASP di html.it

http://asp.html.it/articoli/leggi/76...di-file-excel/

Intanto complimenti all'autore Roberto Caccianini.

Va tutto bene, lo script è semplice da configurare e da personalizzare.

Ho solo un problema:

Le celle excel non mi accettano più di 255 caratteri, dal 256 carattere in poi il testo si trasforma in una serie di caratteri #, questo indipendentemente dall'altezza delle celle excel.

Da che cosa dipende? E' una limitazione risolvibile?

Grazie

**Tsuboshi** · 05-10-2008, 21:01

ciao, non è per romperti le uova nel paniere ma ti rendo partecipe delle mie esperienze.
Ho un CMS in asp dove inserii ben DUE funzioni di esportazione delle tabelle da un DB access, una che mi inviava il backup dei dati via email e un'altra che mi creava del file di exel. Bè, sia su aruba che su un'altro provider ben più 'performante', l'operazione richiedeva troppo lavoro da parte del server, praticamente se nella tabella da esportare c'erano un pò più di dati, il server mi dava errore di script timeout. Ho preso entrambi le funzioni e le ho buttate via. Naturalmente in locale funzionavano benissimo...qua ti posto il mio codice, devi un pò sistemarlo:

set fso = createobject("scripting.filesystemobject")
Set act = fso.CreateTextFile(server.mappath(exppath & sito & "_" & tb & "_" &Day(Now()) & "_" & Month(Now()) & "_" & Year(Now()) & ".xls"), true)
last=Ubound(frm_esporta)
act.WriteLine("<html><body>")
act.WriteLine("<table border=""1"">")
act.WriteLine("<tr>")
for X=0 to last
act.WriteLine("<th nowrap>" & frm_esporta(x) & "</th>")
next
act.WriteLine("</tr>")

Set RS = Server.CreateObject("ADODB.Recordset")
SQL="SELECT " & frm_esportatmp & " FROM " & tb & " ORDER BY id ASC"
RS.Open sql, conn, adOpenKeyset
rs.MoveFirst
Do while NOT RS.EOF
act.WriteLine("<tr>")
for X=0 to last
act.WriteLine("<td align=""right"">" & RS(frm_esporta(x)) & "</td>")
next
act.WriteLine("</tr>")
rs.movenext
loop
act.WriteLine("</table></body></html>")
act.close
RS.Close
Set RS = Nothing
Conn.Close

Spero di esserti stato utile, prova pure...

Discussione: Generazione file excel dinamico [credits Caccianini]

Strumenti discussione

Ricerca discussione

Visualizza

Generazione file excel dinamico [credits Caccianini]

Permessi di invio