Sub ProductoFabr(ByVal FilaDSK As Long, ByVal FilaSHM As Long)
Application.ScreenUpdating = False
Dim ObjExc As Object
Set ObjExc = CreateObject("Excel.Application")
ObjExc.Visible = False
ObjExc.Workbooks.Open Filename:="\\ServidorA\Producto\Pedidos.xlsx"
....
En sub
Sucede que tengo Office 2016 (32bits) con la licencia no original. La macro se ejecuta con normalidad hasta que necesito extraer información de otro libro "Pedidos" que se encuentra en la otra PC, es ahí donde la macro se detiene y muestra un mensaje, tipo mensaje emergente, que menciona lo siguiente : "Hay un problema con su licencia de Office". Así que cierro ese mensaje emergente y la macro continua con normalidad. Lo que necesito saber es como cerrar el mensaje emergente automáticamente mediante macro.
Saludos.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola a tod@s.
Tengo el siguiente código:
Sub ProductoFabr(ByVal FilaDSK As Long, ByVal FilaSHM As Long) Application.ScreenUpdating = False Dim ObjExc As Object Set ObjExc = CreateObject("Excel.Application") ObjExc.Visible = False ObjExc.Workbooks.Open Filename:="\\ServidorA\Producto\Pedidos.xlsx" .... En subSucede que tengo Office 2016 (32bits) con la licencia no original. La macro se ejecuta con normalidad hasta que necesito extraer información de otro libro "Pedidos" que se encuentra en la otra PC, es ahí donde la macro se detiene y muestra un mensaje, tipo mensaje emergente, que menciona lo siguiente : "Hay un problema con su licencia de Office". Así que cierro ese mensaje emergente y la macro continua con normalidad. Lo que necesito saber es como cerrar el mensaje emergente automáticamente mediante macro.
Saludos.