** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Aplicar 2 Macrosde Excel desde Access
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoAplicar 2 Macrosde Excel desde Access

 Responder Responder
Autor
Mensaje
solbete Ver desplegable
Habitual
Habitual


Unido: 25/Febrero/2017
Localización: Palma
Estado: Sin conexión
Puntos: 55
Enlace directo a este mensaje Tema: Aplicar 2 Macrosde Excel desde Access
    Enviado: 31/Enero/2019 a las 23:23
Hola,

Encontré este modulo en este hilo(http://www.mvp-access.com/foro/modificar-libro-excel-desde-access_topic80737.html), que he adaptado a mi BD. Está preparado para que aplique solo una macro de excel desde un botón de Access. ¿Como pondríais la instrucción si el excel dispone de más de una macro?

He intentado (en rojo lo que cambio por lo siguiente). Pero no funciona. Algo hago mal:

Function RunMacroXls(NameXls As String, NameMacro As String, NameMacro2 As String)
......
xApp.Run NameMacro
xApp.Run NameMacro2
.....
RetVal = RunMacroXls("x:\RutaCompleta\archivo.xls", "Nombre_Macro",Nombre_Macro2)

¿Tendría que crear otra función para la nueva macro? Gracias por ayudarme

Función Access para 1 macro en excel:

Function RunMacroXls(NameXls As String, NameMacro As String)

Dim xApp As Object
Dim xLibros As Object
Dim xLibro As Object

'Abrir el archivo excel
Set xApp = CreateObject("excel.application")
Set xLibros = xApp.Workbooks

xLibros.Open NameXls, 3
Set xLibro = xApp.ActiveWorkBook
xApp.Visible = True

' Ejecutar la macro del archivo Excel
xApp.Run NameMacro
xApp.DisplayAlerts = False
xApp.ActiveWorkBook.SaveAs NameXls
xApp.Quit

Set xLibro = Nothing
Set xLibros = Nothing
Set xApp = Nothing

End Function

En boton de formulario:

Private Sub Boton_MacroXLS_Click()
On Error GoTo Err_Btn_Pasos_Click

Dim RetVal

RetVal = RunMacroXls("x:\RutaCompleta\archivo.xls", "Nombre_Macro")

End Sub

Arriba
lbauluz Ver desplegable
Administrador
Administrador
Avatar

Unido: 29/Marzo/2005
Localización: ROC, NY
Estado: Sin conexión
Puntos: 3293
Enlace directo a este mensaje Enviado: 01/Febrero/2019 a las 19:53
Hola

Probablemente Nombre_Macro  es incorrecto.
Luis


Editado por lbauluz - 01/Febrero/2019 a las 19:56
Those are my principles, and if you don't like them... well, I have others. Groucho Marx
Arriba
solbete Ver desplegable
Habitual
Habitual


Unido: 25/Febrero/2017
Localización: Palma
Estado: Sin conexión
Puntos: 55
Enlace directo a este mensaje Enviado: 03/Febrero/2019 a las 12:51
hola gracias por responder, Luis.  He creado macros resumen  qye incluye todas las que necesito desde excel y la llamo desde access con  RunMacroXls("x:\RutaCompleta\archivo.xls", "Nombre_Macro" 
Funciona!!  
Solucionado... Graciasssss. Espero que le sirva a alguien



Editado por solbete - 03/Febrero/2019 a las 12:54
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable