Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

[OT] da ASP ad Excel formattando le celle in formato testo

44 views
Skip to first unread message

giancarlo

unread,
Aug 30, 2004, 4:20:46 AM8/30/04
to
Scusate l'argomento decisamente OT, ma in vari forum non ho trovato una
soluzione.
Ho un DB in A2000.
In una pagina ASP creo un recordset per estrarre alcuni dati da una tabella
presente nel db.
Tramite questo codice esporto in excel i dati estratti:

---------inizio--------
<%
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename=tabella.xsl"

do while not rs_tot_domande.eof

Response.Write _
("<table><tr>"_
& "<td>" & rs_tot_domande ("id_domanda") & "</td>"_
& "<td>" & rs_tot_domande ("cuaa") & "</td>"_
& "<td>" & rs_tot_domande ("pr") & "</td>"_
& "<td>" & rs_tot_domande ("ufficio") & "</td>"_
& "</tr></table>")

rs_tot_domande.movenext
loop
rs_tot_domande.Close()
Set rs_tot_domande = Nothing
%>
---------fine--------

Il problema sta nel fatto che il campo CUAA, contiene il codice fiscale che,
nel caso di persona fisica è alfanumerico (FRNGCR .....) e viene esportato
tranquillamente in excel, ma se si tratta di una società con codice fiscale
numerico (001232.....) excel lo considera come numero e lo trasforma in
numero 1232....
Ho già provato qualche "trucchetto" del tipo inserire un 'apice' davanti al
campo CUAA:
& "<td>" & "'" & rs_tot_domande ("cuaa") & "</td>"_
ma in excel, anzichè formattarlo come testo, facendo scomparire l'apice,
viene fuori
'FRNGCR
'001232
.....
Qualcuno può suggerirmi una soluzione?
C'è un modo di formattare le celle di excel in formato testo direttamente da
ASP?


Grazie a tutti e scusate ancora per l'OT.

Giancarlo


Rob81

unread,
Aug 31, 2004, 9:02:43 AM8/31/04
to
"giancarlo" <thi...@tin.it> wrote in message news:<cgunsg$ev2$1...@fata.cs.interbusiness.it>...

Io avevo avuto lo stesso problema con VB6 in esportazione Excel. Nel
mio caso però sapevo i riferimenti della cella in cui andavo a
scrivere e con una riga di codice:

oExcel.Cells(Y, x).NumberFormat = "@"

dicevo al mio foglio Excel di formattarmi quella determinata cella a
testo(@) prima di scriverci dentro.

Purtroppo non ho mai utilizzato ASP ma penso che il procedimento sia
simile.

Ciao.

0 new messages