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.
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.
y nos devolverá el siguiente resultado...
Function Extraer_Hipervinculo(Rango As Range) Dim Hipervinculo As String Hipervinculo = Rango.Hyperlinks(1).Address Extraer_Hipervinculo = Hipervinculo End Function
y nos devolverá el siguiente resultado...