71 messaggi dal 16 gennaio 2003
Salve a tutti

io creo un file excel da asp con questo codice:

<%@LANGUAGE="VBSCRIPT"%>
<%option explicit%>
<!-- #INCLUDE FILE="include/conn_ado_inc.asp" -->
<!--#INCLUDE FILE="include/ControlloAutorizzazione.asp"-->
<%
Dim Item, mesePreExp, annoPreExp, areaPreExp, strSql, rs
mesePreExp = trim(request.Form("mesePreExp"))
annoPreExp = trim(session("AnnoScelto"))
areaPreExp = trim(request.Form("areaPreExp"))

StrSql = "SELECT * FROM MYTABLE"
set rs = server.CreateObject("ADODB.recordset")
rs.Open strSql, objcnn, 3, 3

Dim filename
filename = "Pianificazione" & UCase(Left(MonthName(mesePreExp), 1)) & LCase(Right(MonthName(mesePreExp), Len(MonthName(mesePreExp)) - 1)) & areaPreExp
Response.Buffer = True
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader "content-disposition", "inline; filename=" & filename & ".xls"
Response.Write "<table border='1' bordercolor='#000000'>"
Response.Write "<tr bgcolor='#999999'>"
For Each Item in rs.Fields
Response.Write "<td>"
  Response.Write Item.Name
Response.Write "</td>"
Next
Do While not rs.Eof
  Response.Write "<tr nowrap>"
  For Each Item in rs.Fields
  Response.Write "<td nowrap>"
    Response.Write Item.Value
  Response.Write "</td>"
  Next
  Response.Write "</tr>"
  rs.MoveNext
Loop
Response.Write "</table>"
Response.Flush
objcnn.Close
Set objcnn = Nothing
%>



Come posso creare più sheets in questo file excel?

Grazie
3 messaggi dal 12 marzo 2007
Se ti può essere utile prova questo.
Unica limitazione: devi avere excel installato sul server (io lo uso in una intranet locale e il server è sulla mia scrivania!!!)
Ciao!
Andrea

<%
'Requisito minimo: Devi avere Excel installato sul server !!

Set ExcelApp = CreateObject("Excel.Application")

'Apri un file "template" che ti sei costruito tu 
ExcelApp.Workbooks.Open ("D:\template.xls")
ExcelApp.Application.Visible = False
Set Foglio = ExcelApp.WorkSheets("Foglio1")
Set Foglio2 = ExcelApp.WorkSheets("Foglio2")

'Qui scrivi i parametri nelle celle sul Foglio1
Foglio.Range("A1").Value = "Hello World"
Foglio.Range("A2").Value = "Ciao mondo"

'Qui scrivi i parametri nelle celle sul Foglio2
Foglio2.Range("A1").Value = "Hello World"
Foglio2.Range("A2").Value = "Ciao mondo"


' Poi salvi il tutto con un altro nome in un'altra posizione
ExcelApp.ActiveWorkbook.SaveAs "D:\test\NuovoFile.xls", FileFormat=xlWK3
ExcelApp.Application.Quit
Set ExcelApp = Nothing

%>

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.