aqui va el de excel
Código PHP:
<%
'comprobamos si introducimos un titulo
u_title=Request.Form("u_title")
If u_title = "" Then
%>
<html>
<body bgcolor="#FFFFFF">
<!-- Formulario - Solo será ,mostrado si no ingrasamos un titulo -->
<form method="POST" action="<%= request.servervariables("script_name") %>">
Titulo del documento<br>
<Input Type="text" name="u_title" size="35">
<br><br>
Cell 1
<br>
<textarea rows="2" name="u_cell1" cols="35"></textarea>
<br><br>
Cell 2
<br>
<textarea rows="2" name="u_cell2" cols="35"></textarea>
<Input Type="submit" value="Submit" ></p>
</form>
<%
Else
' Si se introdujo un titulo
' Obtenemos todos los valores
u_title=Request.Form("u_title")
u_cell1=Request.Form("u_cell1")
u_cell2=Request.Form("u_cell2")
' Varible created fo excel file name. Speces are changed to underscores
' and later the current date is added in attempts to create a unique file
' Users are not prevented from entering characters !@#$%^&*()+= that are
' invlaid file names in this example
g_filename=Replace(u_title," ","_")
Set fso = CreateObject("scripting.filesystemobject")
' create the text (xls) file to the server adding the -mmddyyyy after the g_title value
Set act = fso.CreateTextFile(Server.MapPath(""&g_filename & "-"& Month(Date())& Day(Date())& Year(Date()) &".xls"), True)
' write all of the user input to the text (xls) document
' The .xls extension can just as easily be .asp or .inc whatever best suits your needs
' Providing that you remove the info contained in the header and remove the xml
' reference in the html tag that starts the page/excel file. It is to add gridlines and
' a title to the excel worksheet
act.WriteLine "<html xmlns:x=""urn:schemas-microsoft-com:office:excel"">"
act.WriteLine "<head>"
act.WriteLine "<!--[if gte mso 9]><xml>"
act.WriteLine "<x:ExcelWorkbook>"
act.WriteLine "<x:ExcelWorksheets>"
act.WriteLine "<x:ExcelWorksheet>"
act.WriteLine "<x:Name>"& u_title &"</x:Name>"
act.WriteLine "<x:WorksheetOptions>"
act.WriteLine "<x:Print>"
act.WriteLine "<x:ValidPrinterInfo/>"
act.WriteLine "</x:Print>"
act.WriteLine "</x:WorksheetOptions>"
act.WriteLine "</x:ExcelWorksheet>"
act.WriteLine "</x:ExcelWorksheets>"
act.WriteLine "</x:ExcelWorkbook>"
act.WriteLine "</xml>"
act.WriteLine "<![endif]--> "
act.WriteLine "</head>"
act.WriteLine "<body>"
act.WriteLine "<table>"
act.WriteLine "<tr>"
act.WriteLine "<td>"
act.WriteLine u_cell1
act.WriteLine "</td>"
act.WriteLine "<td>"
act.WriteLine u_cell2
act.WriteLine "</td>"
act.WriteLine "</tr>"
act.WriteLine "</table>"
act.WriteLine "</body>"
act.WriteLine "</html>"
' close the document
act.close
%>
Your excel has been successfully create And can be viewed by clicking
<a href="<%= g_filename &"-"& month(date())& day(date())& year(date()) %>.xls" target="_blank">here</a>
<%
end check of form input
End If
%>
</body>
</html>
tambien en ingles
adaptalos a tus necesidades y despues cuentas
pd. obtenidos desde tutores.org( proximamente ) aunque de obtenidos desde diferentes usuarios y seran traducidos a español
saludos