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