SprintDevelop.com - Diseño y desarrollo web - Diseño, desarrollo web,Aplicaciones Móviles, TabletasSprintDevelop.com - Diseño y desarrollo web
Mostrando Codigo - Asp
Code

Asp - Creando un archivo excel desde formulario

Códigos Asp

Metodo para crear un archivo con formato exel desde un formulario.
Visitas: 28,608 - 02/10/2003 21.35.18
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
EXPLICACION
Con la ayuda de createobject("scripting.filesystemobject") creamos un archivo en formato ecxel.
CODIGO
Codigo probado en ChromeCodigo probado en Mozilla FirefoxCodigo probado en Internet Explorer 7+Codigo probado en OperaCodigo probado en Safari


<% 'Codigo ofrecido por Tutores.org %>

  1. <%
  2. 'comprobamos si introducimos un titulo
  3. u_title=Request.Form("u_title")
  4. If u_title = "" Then
  5. %>
  6. <html>
  7. <body bgcolor="#FFFFFF">
  8. <!-- Formulario - Solo será mostrado si no ingrasamos un titulo -->
  9. <form method="POST" action="<%= request.servervariables("script_name") %>">
  10. Titulo del documento<br>
  11. <Input Type="text" name="u_title" size="35">
  12. <br><br>
  13.   Celda 1<br>
  14. <textarea rows="2" name="u_cell1" cols="35"></textarea>
  15. <br><br>
  16.   Celda2<br>
  17. <textarea rows="2" name="u_cell2" cols="35"></textarea>
  18. <Input Type="submit" value="Submit" ></p>
  19. </form>
  20. <%
  21. Else
  22.  
  23. ' Si se introdujo un titulo
  24. ' Obtenemos todos los valores
  25. u_title=Request.Form("u_title")
  26. u_cell1=Request.Form("u_cell1")
  27. u_cell2=Request.Form("u_cell2")
  28. ' Empezamos a crear el nombre del archivo excel
  29. g_filename=Replace(u_title," ","_")
  30.  
  31.  
  32. Set fso = CreateObject("scripting.filesystemobject")
  33. ' Creamos el nombre mediante fechas
  34. Set act = fso.CreateTextFile(Server.MapPath(""&g_filename & "-"& Month(Date())& Day(Date())& Year(Date()) &".xls"), True)
  35.  
  36. ' creamos el archivo
  37. act.WriteLine "<html xmlns:x=""urn:schemas-microsoft-com:office:excel"">"
  38. act.WriteLine "<head>"
  39. act.WriteLine "<!--[if gte mso 9]><xml>"
  40. act.WriteLine "<x:ExcelWorkbook>"
  41. act.WriteLine "<x:ExcelWorksheets>"
  42. act.WriteLine "<x:ExcelWorksheet>"
  43. act.WriteLine "<x:Name>"& u_title &"</x:Name>"
  44. act.WriteLine "<x:WorksheetOptions>"
  45. act.WriteLine "<x:Print>"
  46. act.WriteLine "<x:ValidPrinterInfo/>"
  47. act.WriteLine "</x:Print>"
  48. act.WriteLine "</x:WorksheetOptions>"
  49. act.WriteLine "</x:ExcelWorksheet>"
  50. act.WriteLine "</x:ExcelWorksheets>"
  51. act.WriteLine "</x:ExcelWorkbook>"
  52. act.WriteLine "</xml>"
  53. act.WriteLine "<![endif]--> "
  54. act.WriteLine "</head>"
  55. act.WriteLine "<body>"
  56. act.WriteLine "<table>"
  57. act.WriteLine "<tr>"
  58. act.WriteLine "<td>"
  59. act.WriteLine u_cell1
  60. act.WriteLine "</td>"
  61. act.WriteLine "<td>"
  62. act.WriteLine u_cell2
  63. act.WriteLine "</td>"
  64. act.WriteLine "</tr>"
  65. act.WriteLine "</table>"
  66. act.WriteLine "</body>"
  67. act.WriteLine "</html>"
  68.  
  69. act.close
  70. %>
  71. Tu archivo excel se cre&oacute; correctamente. Pulsa <a href="<%= g_filename &"-"& month(date())& day(date())& year(date()) %>.xls">aqui</a>
  72. para verlo.
  73. <%
  74. End If
  75. %>
  76. </body>
  77. </html>



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Creando un archivo excel desde formulario" href="http://www.tutores.org/codigo/425/" target="_blank">Creando un archivo excel desde formulario</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
01-04-2008 01:21:50
1 5
hola quiero pedirles que me hayuden a poder crear un formulario desde excel xfa espero su respuesta...
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.