Descubrir vínculos a otro libro excel
Egunon buenos días,
tengo un fichero excel, en el que me dice que tiene un vínculo a otro fichero, pero por más que lo busco no lo encuentro. He mirado en celdas, tablas dinámicas y gráficos, que es lo que tiene el fichero. Cómo puedo averiguar dónde puede estar dicho vínculo?
Eskerrik asko, muchas gracias.
1 Respuesta
Ahora te preparo la solución
Un momento
Te mando mi solución. Ejecuta esta macro en tu archivo y te mostrará un informe de donde se encuentran los vínculos a otros libros.
Sub proceso() 'por luismondelo For Each hoja In ActiveWorkbook.Sheets hoja.Select For Each celda In ActiveSheet.UsedRange If InStr(celda.Formula, "[") > 0 Then lista = lista & "," & hoja.Name & "-" & celda.Address(False, False) End If Next lista = Mid(lista, 2, Len(lista) - 1) Next MsgBox lista End Sub
recuerda finalizar
Aúpa,
he ejecutado el código que me has mandado, y en una ventana de visual basic da el siguiente error, dándome la opción de finalizar o depurar:
"Se ha producido el error '5' en tiempo de ejecución: argumento o llamada a procedimiento no válida".
Si le doy a depurar, me salta a la linea
lista = Mid(lista, 2, Len(lista) - 1)
A mi me funciona perfectamente. Prueba a quitar esa línea y vuelve a ejecutarla
He probado a quitarle la linea, y ya no me da error, pero no me da ningún resultado. Seguramente será alguna cosa que se ha quedado "perdido" en el fichero.
Eskerrik asko, muchas gracias de todas formas.
