|
Hola Samoe2000!!
Lo prometido es deuda... Aunque, al final no tenia aqui en el trabajo el codigo para Excel, como pensaba (tenia para Word), te he hecho un pequeño procedimienbto de ejemplo para que veas como funciona y como hacer la vinculacion con Excel para pasar los datos como querías.
Este ejemplo que te pongo es la manera más básica de hacerlo. Luego es cuestión de adaptarlo a tus necesidades para que en lugar de ir celda a celda te coja un rango de ellas y te las rellene de datos, o le des ciertos formatos, tipos de letra, etc., a las celdas, etc...
Eso ya es cuestión de que veas lo que te va a hacer falta y comiences a "jugar" con esta base que te envío.
Un consejo: Para saber como hacer determinadas cosas desde Access en el Excel, puedes abrir el excel, Iniciar la grabacion de una Macro, hacer el proceso que quieras hacer automatico desde Access y luego ver el codigo que la macro ha generado para ese proceso. Ese codigo será el que debas utilizar (poco mas o menos) en la aplicacion Access para que haga lo mismo que tu hiciste. Eso si, las funciones de la macro de Excel en Access deben ir precedidas por ApExcel. si sigues mi ejemplo de definicion de variables.
Espero haberte podido ser de ayuda. Si tienes algun problema o consulta no dudes en ponerte de nuevo en contacto conmigo. Un saludo y suerte en tu desarrollo!!
Óscar L.M.V.
--- EJEMPLO ----
Sub ExportaExcel()
'Inicializamos las Variables Objeto Aplicacion
Dim appExcel As Object
Dim wbLibro As Object
Set appExcel = CreateObject("Excel.Application")
Set wbLibro = appExcel.Workbooks.Add
'Ponemos la aplicacion Excel Visible
appExcel.Visible = True
'Introducimos los datos que queramos en la hoja de Excel.
'(aquí deberias poner el RecordSet de los datos a mostrar)
Dim IndicePrueba As Integer
With appExcel
For IndicePrueba = 1 To 50
.Range("A" & IndicePrueba).Select
.ActiveCell.FormulaR1C1 = IndicePrueba
Next IndicePrueba
End With
'Si quisieramos salvar el fichero, deberiamos utilizar lo siguiente
'wbLibro.SaveAs Ruta
'Si queremos cerrar el libro y la aplicación, deberiamos utilizar lo siguiente
'wbLibro.Close
'appExcel.Quit
'Limpiamos las Variables utilizadas para liberrarlas de memoria
Set wbLibro = Nothing
Set appExcel = Nothing
End Sub
|
