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

1 respuesta

Respuesta
1

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas