Programación General > Visual Basic 6.0 e inferiores

 Envio De Consulta De Excell

(1/2) > >>

FRIJU:
Hola Compañer@s!
                         Algun@ de vosotr@s sabeis como enviar el resultado de una consulta a excel desde código Visual Basic. :huh:




Un saludo y muchas gracias de antemano

lois_:
A ver si esto te vale, primero añade una referencia al proyecto a Microsoft Excel Object Library:

Dim XL As Excel.Application
Dim WB As Excel.Workbook
Dim WS As Excel.Worksheet

Set XL = New Excel.Application
Set WB = XL.Workbooks.Open("C:\archivo.xls")
Set WS = WB.Worksheets("Hoja1")

y luego para meter valores en celdas:

WS.Range("B1").Value = 23.5
WS.Range("B2").Value = 17.6

despues guardar y salir:

WB.Save
XL.Quit

Espero que te seirva para lo que quieres.

FRIJU:
Gracias lois_
             de la forma que me explicas estás poniendo celda a celda el valor, pensaba que podría haber alguna otra forma más automática, crear una consulta SQl y enviar a Excel, en vez de a Crystal.
 
   de todas formas muchas gracias
 B)

ArKaNtOs:

--- Cita de: "FRIJU" --- Gracias lois_
             de la forma que me explicas estás poniendo celda a celda el valor, pensaba que podría haber alguna otra forma más automática, crear una consulta SQl y enviar a Excel, en vez de a Crystal.
 
   de todas formas muchas gracias
 B)
--- Fin de la cita ---
de hecho la hay, el metodo range te sirve como su nombre lo dice para trabajar con rangos :) por ejemplo

Hoja1.Range("A1", "B5").Value = 10

FRIJU:
HOLA ArKaNtOs!
                 Muchas gracias por tu contestación, pero no me sirve en este caso, ya que las sql que estoy creando, pueden tener muchos columnas y muchas filas, dependiendo del rango de fechas que pida el usuario y en cada una de ellas un valor distinto.
 
 De todas formaa muchas gracias. :hola:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente