SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: FRIJU en Lunes 2 de Octubre de 2006, 12:10
-
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
-
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.
-
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)
-
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)
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
-
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:
-
Que base de datos es?