|
'Se devi creare un file di Excel con ASP (se ho capito bene) procedi come segue. '1) Creati il foglio di Excel con Excel esattamente come vorresti che ASp lo faccia '(tieni presente che se vuoi usare le forumule di Excel le devi usare con le parole chiavi in inglese e non in italiano quindi =SOMMA(...) diventa =SUM() ecc ecc) '2) Salvi il foglio di excel in fomrato Html '3) Ti prendi il codice html del documento creato e lo fai scrivere ad asp a colpi di response.write("...") dopo aver creato un file di testo con estensione .xls sul server. '4) Mandi l'output '5)Elimini il file dal server (opzionale a meno che tu non voglia saturare il server di file) 'Ti riporto un esempio a partire dal punto 3 .. nomeFile="mioFile.xls" '------------- genero il file --------------------- Dim FileObject Set FileObject=Server.CreateObject("Scripting.FileSystemObject") Set OutStream=FileObject.CreateTextFile(Server.MapPath(cartellaFile&"/"&nomeFile),true,0) 'Outstream.WriteLine Now() OutStream.Close Set OutStream=Nothing Set FileObject=Nothing '-------------/ genero il file --------------------- response.buffer = true response.ContentType = "application/vnd.ms-excel" response.AddHeader "content-disposition", "inline; filename=" & nomeFile '------------ blocco di apertura ------------- WITH response .write("<html xmlns:o=""urn:schemas-microsoft-com:office:office"" xmlns:x=""urn:schemas-microsoft-com:office:excel"" xmlns=""http://www.w3.org/TR/REC-html40"">") .write("<head>") .write("<meta http-equiv=Content-Type content=""text/html; charset=windows-1252"">") .write("<meta name=ProgId content=Excel.Sheet>") .write("<meta name=Generator content=""Microsoft Excel 10"">") .write("<link rel=File-List href=""Spoglio_file/filelist.xml"">") .write("<link rel=Edit-Time-Data href=""Spoglio_file/editdata.mso"">") .write("<link rel=OLE-Object-Data href=""Spoglio_file/oledata.mso"">") .write("<style>") .write("<!--table") .write("{mso-displayed-decimal-separator:""\,"";") .write("mso-displayed-thousand-separator:""\."";}") .write("@page") .write("{margin:.98in .79in .98in .79in;") .write("mso-header-margin:.5in;") .write("mso-footer-margin:.5in;}") [...] .write("-->") .write("</style>") .write("</head>") '--------- / fine del blocco di apertura ------- '-------- Qui inizia la tua tabella -------------- .write("<body>") .write("<table x:str border=0 cellpadding=0 cellspacing=0 width=931 style='border-collapse: collapse;table-layout:fixed;width:699pt'>") .write(" <col width=34 style='mso-width-source:userset;mso-width-alt:1243;width:26pt'>") .write(" <col width=72 style='mso-width-source:userset;mso-width-alt:2e'3;width:54pt'>") .write(" <col width=69 style='mso-width-source:userset;mso-width-alt:2523;width:52pt'>") .write(" <col width=36 style='mso-width-source:userset;mso-width-alt:1316;width:27pt'>") [...] .write("<tr> <td class=xl25 style='border-top:none;border-left:none'>"&mioValoreASP&"</td>") .write(" <td class=xl25 style='border-top:none;border-left:none'>"&mioValoreASP2&"</td>") .write(" <td class=xl25 style='border-top:none;border-left:none'>"&mioValoreASP3&"</td>") .write("</tr>") .write("</table>") .write("</body>") .write("</html>") END WITH response.flush '-------- cancellazione del file --------- '[...] 'Qui il codice di cancellazione del file sul server. |