Макрос для открытия гиперссылок Excel

Question

Я хотел бы знать, может ли кто-нибудь помочь мне сделать макрос, чтобы открыть список гиперссылок.

У меня есть список из примерно 600 гиперссылок, все в столбце в отдельных строках, я должен открыть каждую из них, чтобы увидеть, работает ли ссылка, но это скучно и утомительно, так как мне иногда приходится ждать, пока Excel сможет наверстать упущенное скорее оставьте это, делая 100 за один раз, пока я делаю другие вещи

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

Источник

Answer 2

Если вы автоматизируете Internet Explorer, вы можете распечатать окно браузера из Excel. Вам нужно будет установить ссылку на Microsoft Internet Controls.
Вот пример:

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

Источник