Autor Tema: Problema Con Excel (Leído 1033 veces)

jodijo5 · « **en:** Jueves 15 de Septiembre de 2005, 17:28 »

hola amigos, hice una clase para poder tabajar con excel desde mi aplicacion, pero me da problemas, esta clase lo uso para generar reportes en excel, ya que no me gusta trabajar con datareports ni crystal reports, la nota es que tengo una funcion "agregar", que sirve para llenar una celda determinada;
aparte de la clase tengo una serie de fnciones que ahora se las paso:

Código: Text

 
Option Explicit
Const n As Integer = 8
Private i As Integer
Private infoboleta As xrpt
Private Sub Prtrpt()
'On Error Resume Next
Set dbf = db.Execute(&#34;select enccomprobante.IdEncComprobante,&#34; & _
                     &#34;clientes.Nombres,&#34; & _
                     &#34;clientes.Paterno,&#34; & _
                     &#34;clientes.Materno,&#34; & _
                     &#34;enccomprobante.Fecha,&#34; & _
                     &#34;enccomprobante.Subtotal,&#34; & _
                     &#34;enccomprobante.IGV,&#34; & _
                     &#34;enccomprobante.Total,&#34; & _
                     &#34;enccomprobante.IdEmpleado &#34; & _
                     &#34;from EncComprobante inner join clientes &#34; & _
                     &#34;on enccomprobante.idcliente=clientes.idcliente &#34;) ' & _
                     '&#34;where enccomprobante.fecha between #&#34; & CDate(Text1(0)) & &#34;# and #&#34; & CDate(Text1(1)) & &#34;#&#34;)
With infoboleta
    Call .agregar(&#34;A&#34; & (n + i) & &#34;:G&#34; & (n + i), &#34;Listado de comprobantes&#34;)
    i = i + 1
    Call .agregar(&#34;A&#34; & n + i, &#34;Codigo&#34;, True)
    Call .agregar(&#34;b&#34; & n + 1, &#34;Cliente&#34;, True)
    Call .agregar(&#34;c&#34; & n + i, &#34;Fecha&#34;, True)
    Call .agregar(&#34;d&#34; & n + i, &#34;Empleado&#34;, True)
    Call .agregar(&#34;e&#34; & n + 1, &#34;Subtotal&#34;, True)
    Call .agregar(&#34;f&#34; & n + i, &#34;Total&#34;, True)
    i = i + 1
    Do Until (dbf.EOF)
    If (CDate(dbf(4)) &#60; CDate(Text1(1)) And CDate(dbf(4)) &#62; CDate(Text1(0))) Then
        Call .agregar(&#34;a&#34; & n + i, dbf(0), True) 'codigo
        Call .agregar(&#34;b&#34; & n + i, dbf(1) & &#34; &#34; & dbf(2) & &#34; &#34; & dbf(3), True) 'cliente
        Call .agregar(&#34;c&#34; & n + i, dbf(4), True) 'fecha
        'Call .agregar(&#34;d&#34; & n + i, empleado(dbf(8)), True) 'empleado
        Call .agregar(&#34;e&#34; & n + i, dbf(5), True) 'subtotal
        Call .agregar(&#34;f&#34; & n + i, dbf(6), True) 'igv
        Call .agregar(&#34;g&#34; & n + i, dbf(7), True) 'total
        i = i + 1
    End If
        dbf.MoveNext
    Loop
End With
End Sub
Private Sub prtcf(ByVal x As String) 'imprimir frecuencia cliente
On Error GoTo bug
Set dbf = db.Execute(&#34;SELECT (IdCliente) AS clientes, COUNT(IdCliente) AS veces &#34; & _
&#34;From EncComprobante  &#34; & _
&#34;where fecha between #&#34; & CDate(Text1(0)) & &#34;# and #&#34; & CDate(Text1(1)) & &#34;#&#34; & _
&#34; GROUP BY IdCliente  &#34; & _
&#34;ORDER BY min(IdCliente) &#34; & x)
i = i + 1
If (x = &#34;desc&#34;) Then
    Call infoboleta.agregar(&#34;a&#34; & n + i, &#34;El cliente más frecuente es: &#34; & cliente(dbf(&#34;clientes&#34;)) & &#34; con &#34; & dbf(&#34;veces&#34;) & &#34; compras&#34;)
Else
    Call infoboleta.agregar(&#34;a&#34; & n + i, &#34;El cliente menos frecuente es: &#34; & cliente(dbf(&#34;clientes&#34;)) & &#34; con &#34; & dbf(&#34;veces&#34;) & &#34; compras&#34;)
End If
bug:
End Sub
Private Sub prtvd() 'impriomir ventas diarias
Set dbf = db.Execute(&#34;SELECT Fecha, SUM(Total) AS Expr1 &#34; & _
                &#34;From EncComprobante &#34; & _
                &#34;where fecha between #&#34; & CDate(Text1(0)) & &#34;# and #&#34; & CDate(Text1(1)) & &#34;# &#34; & _
                &#34;GROUP BY Fecha  &#34; & _
                &#34;ORDER BY Fecha&#34;)
i = i + 1
With infoboleta
Call .agregar(&#34;a&#34; & n + i & &#34;:g&#34; & n + i, &#34;Ventas Diarias&#34;)
i = i + 1
Call .agregar(&#34;a&#34; & n + i, &#34;fecha&#34;, True)
Call .agregar(&#34;b&#34; & n + i, &#34;Total&#34;, True)
i = i + 1
Do Until dbf.EOF
    Call .agregar(&#34;a&#34; & n + i, dbf(0), True)
    Call .agregar(&#34;b&#34; & n + i, dbf(1), True)
    i = i + 1
    dbf.MoveNext
Loop
End With
End Sub
Private Sub prtpv(x As String)
Set dbf = db.Execute(&#34;SELECT Idproducto, SUM(Cantidad) AS total &#34; & _
                    &#34;From Kardex &#34; & _
                    &#34;WHERE     (Motivo LIKE 'venta') &#34; & _
                    &#34;GROUP BY Idproducto &#34; & _
                    &#34;ORDER BY SUM(Cantidad)&#34;)
If (x = &#34;desc&#34;) Then
    x = &#34; más &#34;
Else
    x = &#34; menos &#34;
End If
i = i + 1
    Call infoboleta.agregar(&#34;a&#34; & n + i, &#34;El producto&#34; & x & &#34;vendido es: &#34; & dbf(0) & &#34; con una cantidad de: &#34; & dbf(1) & &#34; unidades&#34;)
End Sub
Private Sub prtkx()
Set dbf = db.Execute(&#34;select * from kardex&#34;)
Dim a As Integer
With infoboleta
i = i + 1
.neg = True
.agregar &#34;a&#34; & n + i & &#34;:g&#34; & n + i, &#34;Kardex&#34;
.agregar &#34;a&#34; & n + i, &#34;Producto&#34;, True
.agregar &#34;b&#34; & n + i, &#34;Cantidad&#34;, True
.agregar &#34;c&#34; & n + i, &#34;Motivo&#34;, True
.agregar &#34;d&#34; & n + i, &#34;Tipo de doc.&#34;, True
.agregar &#34;e&#34; & n + i, &#34;N° Documento&#34;, True
.agregar &#34;f&#34; & n + i, &#34;Fecha&#34;, True
i = i + 1
.neg = False
Do Until dbf.EOF
    .agregar &#34;a&#34; & n + i, dbf(1), True
    .agregar &#34;b&#34; & n + i, dbf(2), True
    .agregar &#34;c&#34; & n + i, dbf(3), True
    .agregar &#34;d&#34; & n + i, dbf(4), True
    .agregar &#34;e&#34; & n + i, dbf(5), True
    .agregar &#34;f&#34; & n + i, dbf(6), True
    dbf.MoveNext
Loop
End With
End Sub
Private Sub prtp(x As String)
Set dbf = db.Execute(&#34;SELECT Productos.IdProveedor, COUNT(Productos.Idproducto) AS Expr1 &#34; & _
                    &#34;FROM Productos INNER JOIN &#34; & _
                    &#34;Proveedores ON Productos.IdProveedor = Proveedores.IdProveedor &#34; & _
                    &#34;GROUP BY Productos.IdProveedor &#34; & _
                    &#34;ORDER BY COUNT(Productos.Idproducto)&#34; & n)
If (x = &#34;desc&#34;) Then
    x = &#34; mejor &#34;
Else:
    x = &#34; peor &#34;
End If
i = i + 1
infoboleta.agregar &#34;a&#34; & n + i, &#34;el&#34; & x & &#34;proveedor es:&#34;
'aqui falta completar la oraci{on
End Sub
Private Sub Command1_Click()
'Listado de comprobantes.YA
'Cliente más frecuente.YA
'Cliente menos frecuente.YA
'Ventas diarias.YA
'Producto mas vendido.YA
'Producto menos vendido.YA
'Kardex.YA
'Mejor proveedor.YA
'Peor proveedor.YA
i = 0
Set infoboleta = New xrpt
infoboleta.nuevo_doc (App.Path + &#34;&#092;Reportes&#092;general.xlt&#34;)
infoboleta.mostrar_doc = True
If (List1.Selected(0) = True) Then Call Prtrpt
If (List1.Selected(1) = True) Then Call prtcf(&#34;desc&#34;)
If (List1.Selected(2) = True) Then Call prtcf(&#34;asc&#34;)
If (List1.Selected(3) = True) Then Call prtvd
If (List1.Selected(4) = True) Then Call prtpv(&#34;desc&#34;)
If (List1.Selected(5) = True) Then Call prtpv(&#34;asc&#34;)
If (List1.Selected(6) = True) Then Call prtkx
If (List1.Selected(7) = True) Then Call prtp(&#34;desc&#34;)
If (List1.Selected(8) = True) Then Call prtp(&#34;asc&#34;)
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Function cliente(id As String) As String
On Error Resume Next
Dim cli As New ADODB.Recordset
Set cli = db.Execute(&#34;select nombres,paterno,materno from clientes where idcliente='&#34; & id & &#34;'&#34;)
cliente = cli(0) & &#34; &#34; & cli(1) & &#34; &#34; & cli(2)
End Function
Private Function empleado(id As String) As String
On Error Resume Next
Dim emp As New ADODB.Recordset
Set emp = db.Execute(&#34;select nombres,paterno,materno from personal where idempleado='&#34; & id & &#34;'&#34;)
empleado = emp
End Function
Private Sub Form_Load()
Text1(0) = Date
Text1(1) = Date
i = 0
End Sub
 
 
 

que es para rellenar todos los requeimientos del reporte; cuando llamo solo a una funcion de estas no me da error, pero si llamo a mas de una dentro de la clase me da un error que dice "error con la variable global Range", pero mi sintaxis esta bien, ayudenme con esto lo mas antes posible por favor, es urgente

gracias de antemano

jodijo5

amigos, lo acabo de solucionar, ahora si funciona, para los que lo desean, aqui esta la clase:

jodijo5

amigos, lo acabo de solucionar, ahora si funciona, para los que lo desean, aqui esta la clase:

SoloCodigo

Autor Tema: Problema Con Excel (Leído 1033 veces)

jodijo5

Problema Con Excel

jodijo5

Re: Problema Con Excel

jodijo5

Re: Problema Con Excel