16/07/2003, 01:40
|
| | | Fecha de Ingreso: marzo-2002
Mensajes: 188
Antigüedad: 23 años, 1 mes Puntos: 0 | |
| ya está
Gracias a los dos,
Ya conseguí hacerlo. Lo he hecho por programación y, aunque sabía como hacer la query y abrir el documento excel desde Vb, todavía no sabía cómo hacerlo para pasar la información al excel.
Al final lo hice así:
...
' Hago la query
' Abro el excel
Do While Not objRS.EOF
' Si es la primera pasada por el bucle, pinto la cabecera
ApExcel.Cells(InitRow, (num_column + 1)).Formula = objRS.Fields(num_column).Name
ApExcel.Cells(InitRow, (num_column + 1)).Borders.Value = 1
ApExcel.Cells(InitRow, (num_column + 1)).Font.Bold = True
ApExcel.Cells(InitRow, (num_column + 1)).Interior.ColorIndex = 36
' Para cada campo de un registro de la query
For num_column = 0 To num_campos - 1 Step 1
ApExcel.Cells(InitRow, (num_column + 1)).Formula = objRS.Fields(num_column).Value
ApExcel.Cells(InitRow, (num_column + 1)).Font.Bold = False
Next num_column
objRS.MoveNext
Loop
Gracias y un saludo |