Resumen Pasar datos de un mdb a Excel

Hola Marcelo:

-----Original Message-----
    Tengo una aplicación que lee datos de una MDB y tiene que
actualizar una plinilla excel. Trate de hacerlo con datacontrol y no
funcionó( me actualiza pero en lugar de números me pone caracteres ) .
Se puede hacer con los objetos de Excel , y si se puede alguien me puede
explicar como.
--------------------------

Sub PasarDatos()
    Dim ObjExcel As Excel.Application, Base as Database, Rec as Recordset
    Dim LibrO as Workbook
    Set ObjExcel = New Excel.Application
    Set Base = OpenDatabase("....")
    Set Rec = Base.OpenRecordset("Select...")

    Set LibrO = ObjExcel.Workbooks.Open ("libro.xls")
    LibrO.Hoja1.Activate

    LibrO.Hoja1.Cells(1,1).CopyFromRecordset Rec

    LibrO.Close True
    Base.Close
    Set ObjExcel = Nothing
End Sub

Me puedo haber olvidado de algo. Pero mas o menos, con algun cambio te puede funcionar.
Cualquier cosa pegame el grito.

Olavo



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com