creare foglio excel

[NotFoUnD]

ovviamente prima di porre questa domanda ho cercato all'interno del forum.
ho trovato diverse soluzioni che, a leggere i commenti degli utenti, sembrano funzionare senza problemi. (questo ad esempio http://forum.html.it/forum/showthrea...t=creare+excel)
ho provato lo script consigliato per chi non ha Office installato sul server; il foglio viene creato senza problemi ma non viene valorizzato per niente
come posso risolvere ?

[Santino83_02]

vediamo che codice hai usato

[NotFoUnD]

<%
Dim FileName
FileName="test.xsl"
response.buffer = true
response.ContentType = "application/vnd.ms-excel"
response.AddHeader "content-disposition", "inline; filename=" & FileName
response.write "<table>"
response.write "<tr>"
for i = 1 to 15 step 3
response.write "<td>"
response.write i * i
response.write "</td>"
next
response.write "<td width=40>=sum(A11)</td>"
response.write "</tr>"
response.write "</table>"
response.flush
response.end
%>

questo

[NotFoUnD]

niente ?

[simo]

il mio consiglio è di scrivere file excel usando ado e trattando i fogli di excel esattamente come fossero tabelle di un database.

utilizzando con ado questa stringa di connessione:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties="Excel 8.0;HDR=Yes;IMEX=1";

puoi aprire tranquillamente un file excel sul quale puoi scrivere con i classici comandi

rs.addnew
rs.fields(0) = "quello che vuoi"
rs.update

in questo modo è indifferente se sul server sia installato o meno Excel, basta che sia installato Ado e Oledb, praticamente basta che ti diano accesso a un qualsiasi database.

[Mauri77]

Esempio scrittura Excel:

Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/Foglio.xls") & ";Extended Properties=Excel 8.0;"

Set rsExcel = Server.CreateObject("ADODB.Recordset")
rsExcel.ActiveConnection = cn
rsExcel.CursorType = 3                    
rsExcel.LockType = 2                      
rsExcel.Source = "SELECT * FROM [Foglio1$] "
rsExcel.Open()
While not rsExcel.eof
	  rsExcel.Fields(1).Value = "x" & rsExcel.Fields(1).Value
	  rsExcel.movenext
wend