exportar datos de SQL A EXCEL

a83 · #1 (**permalink**) 30/09/2007, 22:07

HOLA AMIGOS

SE EM AH PRECENTADO UN PROBELAM DEL CUAL E BUSCADO SOLUCINES PERO NO ME RESULTA , QUE ES EXPORTAR LOS DASTOS DE UNA TABLA DE SQL POR INTERMERDIO DE ASP A UN EXCEL .
ESTE ES MI SQL---->>>

Código PHP:

  select numope,cicloasi,cicloreb,estcob,rutcli,converT(numeric,crdeutot)as saldo_mora,crdeufvt,cobra,crdeuulg,pronombre from crzdeudas a,crzproduc b where crdeuulg<>'GEO5' and cicloasi<>'10' and areaope<>'i' 
and a.cedente=b.cedente and a.producto=b.producto

si me puede ayudar

Shiryu_Libra · #2 (**permalink**) 30/09/2007, 22:53

bueno puedes utilizar esta simple linea de codigo al generar la tabla de la consulta
<%response.ContentType="application/vnd.ms-excel"%>o puedes hechales un vistazo a este POST, en caso contrario ESTE OTRO, ya que si no te sirven, con el buscador de nuestro FORO; este enlace de DesarrolloWEB tambien te puede servir

un ejemplo de la primera linea

Código PHP:

  <%response.ContentType="application/vnd.ms-excel"%>
<html>
<head>
<style type="text/css">
td {padding:2em; background-color:yellow; border:1px dotted #000;}
</style>
</head>
<body>
<table>
<tr>
<td>1</td>
<td>2</td>
<td>3</td>
<td>4</td>
</tr>
<tr>
<td>=sum(a1:d1)</td>
<td>6</td>
<td>7</td>
<td>8</td>
</tr>
</table>
</body
</html>

suerte

a83 · #3 (**permalink**) 01/10/2007, 23:21

no me esta resultando mmmm

Shiryu_Libra · #4 (**permalink**) 02/10/2007, 00:29

extraño eso, funciona bien conmigo, probablemente permisos de escritura....

bueno, aki esta otra forma de realizarlo
claseGenxls.asp

Código PHP:

  <&#37;
  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
%>

forma de llamarla

Código PHP:

  <%'Vinculas el archivo arriba escrito%>
<!--#include virtual="claseGenxls.asp"-->
<%
 'Creas tus conexiones a la base de datos
  Dim objRS
  Set objRS = Server.CreateObject("ADODB.Recordset")
  objRS.Open "SELECT * FROM titles", "DSN=FooBar"

  Dim objExcel
  Set objExcel = New ExcelGen

  objExcel.RowOffset = 4
  objExcel.ColumnOffset = 1

  objExcel.GenerateWorksheet(objRS)

  Nombre del Archivo
  xlsname="foo.xls"
  If objExcel.SaveWorksheet(Server.MapPath("& xlsname &")) then
    Response.Write "Libro de Excel Guardado.  " & _
                   "<a href=""& xlsname &"">Descargar</a>"
  Else
    Response.Write "Error en la escritura del Archivo XLS!"
  End If

  Set objExcel = Nothing

  objRS.Close
  Set objRS = Nothing
%>

suerte