☰

打开 Excel 超链接的宏

tag-icon • tag-icon vba microsoft-excel-2003
打开 Excel 超链接的宏

我想知道是否有人可以帮助我做一个宏来打开超链接列表。

我有一个包含大约 600 个超链接的列表，这些超链接都位于一列中，位于不同的行中，我必须打开每个超链接才能查看链接是否有效，但这很无聊，也很乏味，因为有时我必须等待 excel 赶上进度，我宁愿让它一次处理 100 个，而我去做其他事情

答案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

来源

答案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

来源

相关内容