17/02/2011, 14:59
|
| | | Fecha de Ingreso: enero-2008
Mensajes: 366
Antigüedad: 16 años, 3 meses Puntos: 3 | |
| Respuesta: objeto sheet
Ya lo resolvi
por si alguien lo necesita pongo un OLE y le incrusto un objeto de hoja de calculo.
en la programación queda asi
Dim xLibro As Object
Set xLibro = OLE1.object
F = 1
With xLibro
With .Sheets(1)
Do While Not consulta.EOF
.Cells(F, 1) = consulta!Fecha
.Cells(F, 2) = consulta!Indice
.Cells(F, 3) = consulta!Valor
F = F + 1
consulta.MoveNext
Loop
End With
End With
gracias bye |