Macro para abrir enlaces de excel

1

Me gustaría saber si alguien puede ayudarme a hacer una macro para abrir una lista de hipervínculos.

Tengo una lista de aproximadamente 600 hipervínculos, todos en una columna en filas separadas, tengo que abrir cada uno para ver si el enlace funciona, pero es aburrido y tedioso, ya que tengo que esperar algunas veces para sobresalir y ponerse al día. prefiero dejarlo haciendo 100 a la vez mientras hago otras cosas

vba microsoft-excel-2003

— admintech
fuente

1

Para cualquier solución que encuentre, es probable que tenga que tener en cuenta una característica sorprendentemente extraña de Office: primero utiliza un componente de Internet Explorer (pero no se identifica a sí mismo como Internet Explorer) para ver si la URL con un clic es válida. Después de eso, se entrega. la URL resultante al navegador predeterminado (o no , si el sitio web por algún motivo bloquea el Agente de usuario "Detección de existencia de Microsoft Office"). Detalles en superuser.com/questions/41935/…

— Arjan

1

Sub FollowLinks()
    Dim c As Range

    For Each c In Range(Cells(1, 3), Cells(1, 3).End(xlDown))
        If c <> vbNullString Then
            ThisWorkbook.FollowHyperlink (c.Offset(, 1).Value)
        End If
    Next
End Sub

Fuente

— joe
fuente

0

Si automatiza Internet Explorer, puede imprimir el navegador ventana desde dentro de Excel. Tendrá que establecer una referencia a Microsoft Controles de internet.
Aquí hay un ejemplo:

Sub printweb()

    Dim ie As InternetExplorer

    Set ie = New InternetExplorer
    ie.Visible = True
    ie.Navigate Range("A1").Value 'A1 holds the URL

    Do
        DoEvents
    Loop Until ie.ReadyState = READYSTATE_COMPLETE

    'This prints it
    ie.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER

End Sub

Fuente

— joe
fuente

Esto no funciona, el rango será de D237 a D337

— admintech