SoloCodigo

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
 

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

Que base de datos es?