Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 excel desde asp
 Foro Bloqueado  Tema Bloqueado


Autor Temas
pantxo
Starting Member


27 Posts
Mensajes - 27 Jul 2005 :  19:35:14  Ver Perfil  Enviar Email
hola a todos,

me gustaria saber como puedo exportar datos desde un asp a un libro excel, creando diferentes hojas.

gracias de antemano

un saludo

chach
Starting Member

Mexico
18 Posts
Posted - 27 Jul 2005 :  20:48:24  Ver perfil  Enviar e-mail
hola mira yo esoty utilizando esto en el cual leo los datos de ecel de una hoja no se si te sirva checalo.......luego me dices ...saludos

<%@ Language=VBScript %>

<HTML>
<HEAD><TITLE></TITLE></HEAD>
<BODY>

<%
'Las variables del archivo adovbs.inc
Const adOpenStatic = 3
Const adLockPessimistic = 2

REM conectar a la tabla ArchivosExcel selecionar solo Periodo x
server.execute("activar.asp")
application("gpw")

tb01.open "Select * from ArchivosExcel Where fldperiodo = " & Session("Per") & " ",3,1
For I = 1 to tb01.RecordCount

REM Leer Codigos de Articulos
NombreXls="LeerExcel.xls" 'Tb01("FldArchivoExcel")

'Nos conectamos a la hoja de datos del Excel
Set db = Server.CreateObject("ADODB.Connection")
Dim DB_CONNECTIONSTRING
DB_CONNECTIONSTRING = "Driver={Microsoft Excel Driver (*.xls)};Dbq=" & Server.MapPath(NombreXls) & ";"
db.open DB_CONNECTIONSTRING

'Recordset correspondiente a un rango de datos
set rs = Server.CreateObject("ADODB.Recordset")
SQLStr = "SELECT * FROM A1:D200 "
rs.open SQLStr,DB_CONNECTIONSTRING, adOpenStatic, adLockPessimistic, adCmdText

REM Tb02.open "Select * from Articulos ",3,1
REM For II = 1 to TB02.RecordCount
REM if tb02(0) = rs(0) and val(RS(2))>0 then


REM NEXT

Rem
'N&uacute;mero de columnas de la tabla
columnas = rs.Fields.Count
Response.Write("<table width='20%' border='1'><tr>")

'Mostramos el titulo de la tabla.
For I = 0 To columnas - 1
Response.Write "<td align='center'><b>" & rs.Fields.Item(I).Name & "</b></td>"
Next
Response.Write("</tr>")

'Nos ponemos en el primer registro
rs.MoveFirst

'Mostramos los datos
Do While Not rs.EOF
Response.Write("<tr>")
For I = 0 To columnas - 1
Response.Write ("<td>" & rs.Fields.Item(I).Value & "</td>")
Next

Response.Write "</tr>"
rs.MoveNext
Loop

Response.Write("</table>")

'Eliminamos el recordset
rs.Close
Set rs = Nothing
'Eliminamos la bd
db.Close
Set db = Nothing

%>


</BODY></HTML>

Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar