批量打开 URL

Question

我有一个工作表，其中包含 J 列中的网站列表，从第 3 行开始。我想要一个宏，它可以在同一浏览器窗口的不同选项卡中批量打开所有网站。 我有下面的现有代码。

Sub Test()
    Dim ie          As Object
    Dim c           As Range

    Set ie = CreateObject("InternetExplorer.Application")

    With ie
        .Visible = True

        For Each c In Sheets("Common").Range("J3:J" & Cells(Rows.Count, 1).End(xlUp).Row)
            .Navigate c.Value, CLng(2048)
        Next c
    End With
End Sub

它在大多数情况下都有效。但不知何故，它会在浏览器窗口上打开没有值的选项卡。

Answer 1

您应该在前面指定工作表的名称，因为您正在隐式处理容易出错的活动表。例如。

ThisWorkbook.Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row 

从调试来看，您似乎使用 xlUp 找到了错误的结束行，因此请使用 xlDown（假设您知道 url 之间没有空单元格）

Sheets("Common").Range("J3:J" & Sheets("Common").Cells(Rows.Count, 1).End(xlDown).Row)

如果您想使用 chrome，请考虑 installing selenium basic。确保最新的 ChromeDriver.exe 位于 selenium 文件夹中，并添加了 VBE>Tools>References>Selenium Type Library 参考。