Foros del Web » Programando para Internet » ASP Clásico »

generar excel con varias hojas????

Estas en el tema de generar excel con varias hojas???? en el foro de ASP Clásico en Foros del Web. Hola Amigos alguien sabe como poder crear un documento excel con varias hojas dentro, con diferentes datos de una bd??? si alguien conoce algun link ...
  #1 (permalink)  
Antiguo 18/08/2004, 10:09
 
Fecha de Ingreso: abril-2001
Mensajes: 293
Antigüedad: 23 años, 1 mes
Puntos: 0
Pregunta asp y excel

Hola Amigos alguien sabe como poder crear un documento excel con varias hojas dentro, con diferentes datos de una bd???

si alguien conoce algun link con informacion referente se los agradeceria mucho.


saludos y gracias de antemano

  #2 (permalink)  
Antiguo 18/08/2004, 10:36
Avatar de Myakire
Colaborador
 
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 22 años, 4 meses
Puntos: 146
Esta liga se servirá: http://www.tutorialized.com/tutorial...xcel-and-ASP/1

Saludos
  #3 (permalink)  
Antiguo 18/08/2004, 10:54
 
Fecha de Ingreso: abril-2001
Mensajes: 293
Antigüedad: 23 años, 1 mes
Puntos: 0
ok gracias lo vere!!
  #4 (permalink)  
Antiguo 20/08/2004, 07:01
 
Fecha de Ingreso: abril-2001
Mensajes: 293
Antigüedad: 23 años, 1 mes
Puntos: 0
generar excel con varias hojas????

Hola amigos quisas es muy sencillo pero lo he buscado y no he encontrado nada de documentacion sobre como generar una planilla excel con varias hojas de calculo dentro, asignandole un nombre de hoja, y sus datos correspondientes, necesito generarlo en asp.

sera factible crearlo sin necesidad de utilizar el objeto OWC???

saludos y gracias
  #5 (permalink)  
Antiguo 20/08/2004, 09:49
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 3 meses
Puntos: 535
¿Sin OWC?
Yo creo que no, al menos que exista algún otro componente que lo haga...
__________________
...___...
  #6 (permalink)  
Antiguo 20/08/2004, 09:51
Avatar de AlZuwaga
Colaborador
 
Fecha de Ingreso: febrero-2001
Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 23 años, 3 meses
Puntos: 535
por cierto.. no repitas temas, con uno es suficiente
__________________
...___...
  #7 (permalink)  
Antiguo 20/08/2004, 13:37
 
Fecha de Ingreso: abril-2001
Mensajes: 293
Antigüedad: 23 años, 1 mes
Puntos: 0
ok gracias
  #8 (permalink)  
Antiguo 22/08/2004, 04:46
Avatar de univercity  
Fecha de Ingreso: noviembre-2002
Mensajes: 681
Antigüedad: 21 años, 7 meses
Puntos: 0
No funka la pagina, alguien me puede decir donde se puede obtener informacion de como llevar los datos de una pagina ASP a un archivo de excel
__________________
"Lo importante es nunca dejar de hacerse preguntas"
Albert Einstein
  #9 (permalink)  
Antiguo 23/08/2004, 09:37
 
Fecha de Ingreso: abril-2001
Mensajes: 293
Antigüedad: 23 años, 1 mes
Puntos: 0
Hola amigos aqui encontre el codigo antes mensionado, exporta a excel sin problema, el tema es como puedo generar o darle el atributo de cambiar y crear nuevas hojas, y como decirle que dato tiene que guardar en alguna hoja que yo determine???


<%
Option Explicit

Class ExcelGen

Private objSpreadsheet
Private iColOffset
Private iRowOffset

Sub Class_Initialize()
Set objSpreadsheet = Server.CreateObject("OWC.Spreadsheet")

iRowOffset = 2
iColOffset = 2
End Sub

Sub Class_Terminate()
Set objSpreadsheet = Nothing 'Clean up
End Sub

Public Property Let ColumnOffset(iColOff)
If iColOff > 0 then
iColOffset = iColOff
Else
iColOffset = 2
End If
End Property

Public Property Let RowOffset(iRowOff)
If iRowOff > 0 then
iRowOffset = iRowOff
Else
iRowOffset = 2
End If
End Property


Sub GenerateWorksheet(objRS)

'Populates the Excel worksheet based on a Recordset's contents
'Start by displaying the titles
If objRS.EOF then Exit Sub

Dim objField, iCol, iRow
iCol = iColOffset
iRow = iRowOffset

For Each objField in objRS.Fields
objSpreadsheet.Cells(iRow, iCol).Value = objField.Name
iCol = iCol + 1
Next 'objField

'Display all of the data
Do While Not objRS.EOF
iRow = iRow + 1
iCol = iColOffset

For Each objField in objRS.Fields
If IsNull(objField.Value) then
objSpreadsheet.Cells(iRow, iCol).Value = ""
Else
objSpreadsheet.Cells(iRow, iCol).Value = objField.Value
End If

iCol = iCol + 1
Next 'objField

objRS.MoveNext
Loop

End Sub


Function SaveWorksheet(strFileName)
'Save the worksheet to a specified filename
On Error Resume Next
Call objSpreadsheet.ActiveSheet.Export(strFileName, 0)

SaveWorksheet = (Err.Number = 0)
End Function

End Class
%>
<!-- #INCLUDE FILE="../librerias/conexion.asp"-->
<%
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT * FROM comuna", db
'objRS = db.execute("select * from comuna")
Dim objExcel
Set objExcel = New ExcelGen

objExcel.RowOffset = 4
objExcel.ColumnOffset = 1

objExcel.GenerateWorksheet(objRS)
If objExcel.SaveWorksheet(Server.MapPath("foo.xls")) then
Response.Write "Worksheet saved. <a href=""foo.xls"">Download</a>"
Else
Response.Write "Error in saving worksheet!"
End If

Set objExcel = Nothing

objRS.Close
Set objRS = Nothing
%>


saludos y gracias
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 13:32.