shaker.umh.es menu
CSS Drop Down Menu by PureCSSMenu.com

Macro Excel para extraer hipervínculos y anchor text

Cuando queremos extraer los hipervínculos y las palabras a las que están conectados de de celdas de una hoja Excel, podremos extraer ambas cosas, en las celdas contiguas, para poder trabajar con esa información. Tendremos una lista de anchor text enlazados de la que obtner la información.

  1. Pulsamos ALT+F11 y abrimos el editor VBA.
  2. Una vez ahí, nos vamos al menú horizontal, "insertar" + "modulo". Añadiremos por copiando y pegando, la función "extraer_anchor":
  3. Function Extraer_Anchor(Rango As Range)
    Dim anchor As String
    texto = Rango.Hyperlinks(1).Name
    Extraer_Anchor = texto
    End Function

    Esta función extraerá el anchor text que contiene un vínculo y mostrarlo sin vínculo en la celda que indiquemos.

  4. Cerramos el editor VBA pulsando ALT+Q, o bien, accediendo al menú horizontal en "Archivo" y "Cerrar y Volver a Excel".
  5. Podemos usar esta función llamada "extraer_anchor".
  6. y nos devolverá el siguiente resultado...

  7. A continuación queremos extraer el hipervínculo y para ello repetimos el proceso desde el primer paso, pero en este caso añadimos la función "extraer_hipervinculo":
  8. Function Extraer_Hipervinculo(Rango As Range)
    Dim Hipervinculo As String
    Hipervinculo = Rango.Hyperlinks(1).Address
    Extraer_Hipervinculo = Hipervinculo
    End Function
  9. Ahora podemos usar esta nueva función llamada "Extraer_Hipervinculo".
  10. y nos devolverá el siguiente resultado...