如何批量打开excel 中的超链接

发布网友发布时间：2022-05-05 17:12

共3个回答

热心网友时间：2022-06-27 20:02

第一：工具栏空白处“右击”鼠标，点击“自定义快速访问工具栏”见下图

第二：窗口左侧点击“信任中心”，右侧点击“信任中心设置”见下图

第三：窗口左侧点击“宏设置”，右侧点击“启用所有宏”见下图

第四：点击两次“确定”
第五：将你要查看的链接，放在电子表格的“B1”位置

第六：右键点击表格左下角“Sheet1”,左键点击“查看代码”

第七：出现一个白色对话框，粘贴下面的代码，放入白色框，其中“数字10”代表一次可以打开10个链接，见下图：
Sub OpenHprLnks()
Dim i As Integer
On Error Resume Next
For i = 1 To 10
Cells(i, 2).Hyperlinks(1).Follow NewWindow:=True
Next
End Sub

第八：不要关闭刚才粘贴的对话框，鼠标点击刚才粘贴的代码，摁“F5”键，出现一个“宏”对话框，点击“运行”后，会自动打开10个链接。

5.需要值得注意的时候，如果你所有的链接都是从记事本粘贴到电子表格上面的，那么会无法使用，因为你粘贴的是纯文本的形式，在EXCEL表格里面的操作都是无效的，只有在EXCEL表格里面的都是超链接，批量打开excel表格中的超链接就可以实现！

热心网友时间：2022-06-27 20:02

没有问题描述，不知你问的是不是在浏览器里批量打开EXCEL里的超链接呢？如果是这样的话，你可以下载火狐浏览器，安装“Launch
Clipboard”插件。然后同时复制所有你想要打开的链接后，转到浏览器，按SHIFT+ALT+K，就能批量打开你复制的所有链接了。

热心网友时间：2022-06-27 20:03

Sub OpenHyperlink()

Dim WebUrl As String

Dim i As Integer

For i = 2 To 25 '手动编辑行数

WebUrl = Cells(i, 4).Value '程序会打开D2至D25行的链接

Shell ("C:\Program Files\Google\Chrome\Application\chrome.exe " & WebUrl) '浏览器位置可以[右键-属性-目标]获取

End Sub