scrivere un file excel

[robbe2000]

Ciao a tutti ho bisogno di un formato word pre impostato.

Il word è impostato con una tabella e la cornicetta.

Io devo prendere questo formato e riscrivere un file unico con tutti i dati selezionati dall'anagrafica.

Si può fare questo procedimento?

Io non ho office sul server quindi fino ad adesso utilizzavo un formato prefabbricato in rtf e riscrivevo i dati perpoi creare il nuovo documento word.

Però con questo discorso non lo posso fare perchè c'è una tabella ci sono delle cornicette che trasformando il file in rtf perdo la formattazione.

[optime]

sei forte! titolo: excel. corpo: word. deciditi, grazie

[robbe2000]

hai ragione il fatto è che devo creare un excel o un word a seconda di come può essere più facile gestire il tutto

[robbe2000]

Ho trovato questa soluzione è abbastanza accettabile oppure ha qualche problema?
So che il client deve avere per forza excel per effettuare questa operazione.
Ma tolto questo ci sono altri problemi?

<%@LANGUAGE = VBScript%>

<%
'















  sono da mettere tra la prima e la seconda etichetta
'






  sono da mettere tra  la seconda e la prima etichetta
scrivi = 1
Dim file
file = "etichette.xls"

sql = "select * from Anagrafica where categoria>0"
set rsed=OBJdbConnection.Execute(sql)
With Response	
    .Buffer = True
    .ContentType = "application/vnd.ms-excel"
    .AddHeader "content-disposition", "inline; filename=" & file
	while not rsed.eof
		idNaz = rsed("idNaz")
		provincia = rsed("provincia")
		comune = rsed("comune")
		
		if idNaz = 0 then
			strNazione = "Italia"
			if isnumeric(comune) then
				sqlCom = "select * from Comuni where id=" & comune 
				set rsCom=OBJdbConnection.Execute(sqlCom)
				if not rsCom.eof then
					strcomune = rsCom("descr")
				end if
				rsCom.close		
			end if
			
			if isnumeric(provincia) then
				sqlCom = "select * from province where id=" & provincia 
				set rsCom=OBJdbConnection.Execute(sqlCom)
				if not rsCom.eof then
					strprovincia = rsCom("sigla")
				end if	
				rsCom.close		
			end if
		else
			strNazione = ""
			sqlCom = "select * from nazioni where id=" & idNaz 
			set rsCom=OBJdbConnection.Execute(sqlCom)
			if not rsCom.eof then
				strNazione = rsCom("descr")
			end if	
			rsCom.close	
			
			strprovincia = rsed("provincia")
			strcomune = rsed("comune")
		end if
		
		.Write "<table border=1 align=center><tr><td><table>"
		.Write "<tr>"
		.Write "<td  colspan=8>
</td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=center>
</td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=center>
</td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=center>
</td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=center><font face=verdana size=4>" & rsed("nome") & "</font></td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=center>
</td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=center><font face=verdana size=4>" & rsed("indirizzo") & "</font></td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=center>
</td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=center>
</td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=center><font face=verdana size=4>" & rsed("cap") & " - " & strcomune & " (" & strprovincia & ") - " & strNazione & " </font></td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=center>
</td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=center>
</td>"
		.write "</tr>"
		.Write "<tr>"
		.Write "<td colspan=8 align=right><font face=verdana size=15>9</font></td>"
		.write "</tr>"
		.Write "</table></td></tr></table>"
		
		if scrivi = 1 then
			scrivi = 2
			.Write "















"
		else	
			scrivi = 1
			.Write "






"
		end if	
		rsed.movenext
	wend	
    .Flush
    .End
End With
%>

[optime]

perché dici che il client deve avere excel?

[robbe2000]

altrimenti riuscirebbe ad aprire il file?

[optime]

Originariamente inviato da robbe2000
altrimenti riuscirebbe ad aprire il file?

pensavo tu lo ritenessi necessario per la produzione! comunque il "problema" in questi termini ha dell'assurdo...

[tas]

Il codice che hai postato invia effettivamente un file di excel:

.AddHeader "content-disposition", "inline; filename=" & file

ma lo fa solo nella forma, perché in realtà la procedura invia al browser una tabella HTML. Un file XLS è ben altro, prova ad aprirne uno con un editor di testo per rendertene conto... La stessa cosa si può dire per il formato DOC. Dovresti usare le librerie apposite per lavorare con i documenti di Office, ma per averle sul server è necessario installare sia Excel che Word.

Sull'uso delle librerie di Office (Microsoft Excel Object Library e Microsoft Word Object Library) dovresti trovare sul forum parecchie discussioni.

[robbe2000]

lo so che lo fa solo nella forma però aprendo il file si hanno i risultati che si desiderano.

Per quanto riguarda le librerie di office non le posso utilizzare perchè non ho offise sul server e l'azienda dove mi appoggio non ha intenzione di installarlo.

[optime]

Originariamente inviato da robbe2000
lo so che lo fa solo nella forma però aprendo il file si hanno i risultati che si desiderano.

se funziona ed ottieni l'effetto desiderato direi che si possa affermare che va bene