Question

下午好，我问这个是因为我没有从网上获得任何代码。我有一张包含大量链接的工作表，我希望能够在标签中一次打开至少10个链接。我之前有一些代码（我输了）打开了所有代码（在chrome中），这是一个很大的问题。我想要两件事之一：

选项1：打开我在默认浏览器（chrome）中从列中选择的所有超链接（超链接使用以下公式＆＃34; =超链接（leftcell;＆＃34; OPEN＆＃34;）< / p>

选项2：我将超链接或文本粘贴到另一个工作表中，然后打开10个第一行。

我非常感谢你的帮助。

Answer 1

您可以使用循环调用ActiveWorkbook.FollowHyperlink函数，并使用工作表中已有的链接。假设你有以下表格中的链接：

您现在必须循环访问这些链接并逐个打开它们。在下面的代码中，列A是硬编码的，但您可以通过其他输入轻松更改，例如用户选择。

Sub test_link()

Dim current_row As Integer
Dim last_row As Integer
Dim current_sht As Worksheet

current_row = 1
Set current_sht = ActiveWorkbook.ActiveSheet
last_row = current_sht.Cells(current_sht.Rows.Count, "A").End(xlUp).Row

While current_row <= last_row
    ActiveWorkbook.FollowHyperlink Address:=current_sht.Range("A" & current_row) 'Open link
    current_row = current_row + 1
Wend

End Sub

在默认浏览器中打开多个超链接

1 个答案: