Abrir Excel desde Access y ejecutar automaticamen macro en excell
Tengo una base de datos en Access, con una macro, genero 7 consultas, las cuales (una vez generadas),abro un libro excell y coloco cada consulta en una hoja nueva creada.
Ahora bien, con los datos en excell quiero que automáticamente me ejecute una macro en excell...
auto_open no hace nada, abierto el libro desde access...
os paso el código que tengo en access
Dim appExcel As Object 'Excel.Application
Dim rst As Object 'DAO.Recordset
Dim fld As Object 'DAO.Field
Dim fila As Integer
Dim columna As Integer
Dim ruta As String
'apertura del fichero excell
ruta = CurrentProject.Path
Set appExcel = CreateObject("Excel.Application")
appExcel.Workbooks.Open FileName:=ruta & "\FICHASREPUESTOS.xlsm"
'por cada consulta que comience por REPUESTOS
Dim Qry As AccessObject
For Each Qry In CurrentData.AllQueries
If Mid(Qry.Name, 1, 9) = "REPUESTOS" Then
'MsgBox Qry.Name
'añadimos una hoja
appExcel.Sheets.Add.Name = Qry.Name
' abrimos la tabla, consulta o cadena sql en un recordset
Set rst = CurrentDb.OpenRecordset(Qry.Name)
' ponemos nombre a las columnas de la hojaigual que el nombre de los campos de la consulta
fila = 2
columna = 1
With appExcel.Sheets(Qry.Name)
.Select
For Each fld In rst.Fields
.Cells(fila, columna) = fld.Name
columna = columna + 1
Next
' después traspasamos el valor de los campos a las
' celdas de la hoja de excel
fila = 3
columna = 1
While Not rst.EOF
For Each fld In rst.Fields
.Cells(fila, columna) = fld.Value
columna = columna + 1
Next
columna = 1
fila = fila + 1
rst.MoveNext
Wend
End With
rst.Close
End If
Next Qry
'appExcel.ScreenUpdating = True
appExcel.Visible = True
Set appExcel = Nothing
¿¿¿¿¿aquí quisiera ejecutar la macro de excell?????
end if