Extraer URLs de hipervínculos

November 1

Mezga tiene una serie de celdas que contienen hipervínculos. Estos hipervínculos se componen de palabras tales como "haga clic aquí" o "más información". En otras palabras, cada hipervínculo contiene texto de la pantalla que es diferente de la dirección URL subyacente que se activa cuando se hace clic en el enlace. Mezga quisiera saber si hay una manera, sin necesidad de utilizar una macro, para extraer la URL subyacente para cada uno de estos enlaces y pon ese URL en una celda diferente.

Sin el uso de macros, usted puede hacer esto:

  1. Haga clic en un hipervínculo. Verá aparecer un menú contextual.
  2. En el menú contextual, elija Modificar hipervínculo. Excel muestra el cuadro de diálogo Modificar hipervínculo. (Ver Figura 1.)

    Extraer URLs de hipervínculos

    Figura 1. El cuadro de diálogo Modificar hipervínculo.

  3. Seleccionar y copiar (Ctrl + C) toda la URL en el campo Dirección del cuadro de diálogo.
  4. Presiona Esc para cerrar el cuadro de diálogo Modificar hipervínculo.
  5. Pegue la URL en cualquier célula deseada.

Tenga en cuenta que esto es para un solo hipervínculo. Si usted tiene un montón de hipervínculos en una hoja de cálculo y desea recuperar las direcciones URL, es necesario hacer esto para todos y cada hipervínculo. Obviamente, esto puede resultar tedioso muy rápidamente.

La cura para el aburrimiento, como ellos o no, es una macro. Con una macro, consiguiendo en la dirección URL subyacente de un hipervínculo es un juego de niños. Todas las necesidades de macro que hacer es prestar atención a la propiedad Dirección de hipervínculo. El siguiente es un ejemplo de una macro que encontrar cada hipervínculo en una hoja de trabajo, extraer URL de cada uno, y se adhieren esa URL en la celda directamente a la derecha del hipervínculo.

Sub ExtractHL ()
Dim HL como hipervínculo
Para Cada HL En ActiveSheet.Hyperlinks
HL.Range.Offset (0, 1) .Value = HL.Address
Siguiente
End Sub

En lugar de una macro "fuerza bruta", también se puede crear una función definida por el usuario que extraer y devolver la dirección URL de cualquier hipervínculo a la que se señaló:

Función GetURL (RNG como gama) As String
On Error Resume Next
GetURL = rng.Hyperlinks (1) .Address
End Function

En este caso se puede colocar donde quieras. Si desea, por ejemplo, la URL de un hipervínculo en A1 a aparecer en la celda C25, entonces en C25 celular quieres entrar en la siguiente fórmula:

= GetURL (A1)

ExcelTips es su fuente de capacitación rentable Microsoft Excel. Esta punta (3281) se aplica a Microsoft Excel 97, 2000, 2002, y 2003. Usted puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y versiones posteriores) aquí: Extraer URLs de hipervínculos.