Buenas amigos estoy trabajando en un proyecto de base de datos encargado de guardar sesiones de entrenamiento de futbol, el proyecto esta acabado, salvo por un detalle.
Uno access como base de datos y todo va bien uso un control ADO para comunicarme con ella.
El problema viene cuando quiero imprimir uno de los registros. he preparado un documento excel con el formato que quiero que tenga pero no encuentro una forma sencilla de conectar con el y rellenar las celdas y usando le buscador solo encuentro como crear un nuevo documento excel (pongo el código sacado de un hilo de este mismo foro)
Código:
Private Sub Command1_Click()
Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
' Hace que Excel se vea
ApExcel.Visible = True
'Agrega un nuevo Libro
ApExcel.Workbooks.Add
'Poner Titulos
ApExcel.cells(1, 1).Formula = "Titulo de la Aplicacion"
ApExcel.cells(1, 1).Font.Size = 18
ApExcel.cells(2, 2).Formula = "Debe"
ApExcel.cells(2, 3).Formula = "Haber"
ApExcel.cells(2, 4).Formula = "Saldo"
ApExcel.cells(3, 2).Formula = 200
ApExcel.cells(3, 3).Formula = 100
' Aplica Formula
ApExcel.cells(3, 4).Formula = "=B3-C3"
' Hace una Seleccion de celdas y pone bordes de Color
ApExcel.RANGE("B3:D3").BORDERS.COLOR = RGB(255, 0, 0)
Set ApExcel = Nothing
End Sub
¿ como puedo hacer que realice la misma operación pero indicándole yo el libro en el que debe hacerlo? Desde ya y como siempre mil millones de gracias