Requiero para quitar en excel warning de links
Tengo una macro que pretende abrir una lista de workbooks la cual funciona bien, solo que cuando un archivo cuenta con links regularmente me indica que alguno de ellos no pudo actualizarse y me manda un warning con la siguiente leyeda:
This workbook contains one or more links that cannot be updated
Continue - Edi Links...
La idea esta macro es no tener que abrir una lista como de 20 archivos manualmente y este mensaje no le permite continuar con la lista hasta que de click en cualquiera de las 2 opciones.
El código es el siguiente:
Sub AbrirGen(FileName As String)
Dim ArchiExcel As Excel.Application
Set ArchiExcel = CreateObject("Excel.Application")
Application.DisplayAlerts = False
ArchiExcel.Visible = True
ArchiExcel.Workbooks.Open FileName, 1
Application.DisplayAlerts = True
Set ArchiExcel = Nothing
End Sub
Gracias de antemano por tu tiempo.
This workbook contains one or more links that cannot be updated
Continue - Edi Links...
La idea esta macro es no tener que abrir una lista como de 20 archivos manualmente y este mensaje no le permite continuar con la lista hasta que de click en cualquiera de las 2 opciones.
El código es el siguiente:
Sub AbrirGen(FileName As String)
Dim ArchiExcel As Excel.Application
Set ArchiExcel = CreateObject("Excel.Application")
Application.DisplayAlerts = False
ArchiExcel.Visible = True
ArchiExcel.Workbooks.Open FileName, 1
Application.DisplayAlerts = True
Set ArchiExcel = Nothing
End Sub
Gracias de antemano por tu tiempo.
1 Respuesta
Respuesta de Juan Carlos González Chavarría
1
Prueba así:
Dim ArchiExcel As Excel.Application
Set ArchiExcel = CreateObject("Excel.Application")
Application.DisplayAlerts = False
On Error ResumeNext
ArchiExcel.Visible = True
[email protected]
Dim ArchiExcel As Excel.Application
Set ArchiExcel = CreateObject("Excel.Application")
Application.DisplayAlerts = False
On Error ResumeNext
ArchiExcel.Visible = True
[email protected]
Ya funciona bien con la sugerencia me indicaste.
Muchas gracias por tu tiempo.
PD: Me marca error si dejo el renglón On Error ResumeNext, pero bueno esa será una futura consulta. ;-)
Muchas gracias por tu tiempo.
PD: Me marca error si dejo el renglón On Error ResumeNext, pero bueno esa será una futura consulta. ;-)
