批量打开URL
批量打开URL
提问于 2019-05-08 18:08:18
我有一个工作表，其中它包含在列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它在很大程度上是有效的。但不知何故，它会在浏览器窗口中打开没有值的选项卡。
Stack Overflow用户
回答已采纳
发布于 2019-05-08 18:35:30
您应该在前面指定工作表的名称，因为您隐式地在activesheet上工作，这很容易出错。例如。
ThisWorkbook.Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row 从调试中看，您似乎使用xlUp找到了错误的结束行，因此请使用xlDown (假设您知道urls之间没有空单元格)
Sheets("Common").Range("J3:J" & Sheets("Common").Cells(Rows.Count, 1).End(xlDown).Row)如果你想使用chrome，考虑一下installing selenium basic。确保selenium文件夹中有最新的ChromeDriver.exe，并添加了VBE>Tools>References>Selenium类型库引用。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/56038240
复制相关文章
相似问题
腾讯云开发者
