Macro para abrir hiperlinks do Excel

Question

Gostaria de saber se alguém pode me ajudar a fazer uma macro para abrir uma lista de hiperlinks.

Eu tenho uma lista de cerca de 600 hiperlinks todos em uma coluna em linhas separadas, eu tenho que abrir cada um para ver se o link funciona, mas é chato e entediante, já que tenho que esperar que o excel alcance Eu preferiria deixá-lo fazendo 100 de cada vez enquanto faço outras coisas

    

Answer 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

Fonte

    

Answer 2

Se você automatizar o Internet Explorer, poderá imprimir o navegador janela de dentro do Excel. Você precisará definir uma referência à Microsoft Controles da Internet

Aqui está um exemplo:

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

Fonte