Question

我是excel VBA编程的新手，所以对于那些可能非常简单的问题，但我需要学习它。

我的代码部分是这样的：

Sub Calculate()
    Dim i As Integer

    For i = 1 To 1000
        Dim Test As Object
        Dim IE As Object
        Set IE = CreateObject("InternetExplorer.Application")

        IE.Visible = False
        IE.navigate "https://www.somewebsite.com/" & Cells(i, 2).Value

        Do
        DoEvents

        Loop Until IE.readyState = READYSTATE_COMPLETE

    'some code here
.
.
.
.

    Next i 
    End Sub

此代码可用于从具有不同结尾的同一网站获取一些数据。每个都写在一些范围内（例如（A1：A1001））。

我的问题是这个窗口的每一个都将隐藏的可见性打开并从网页获取一些数据。这需要太多时间

我希望每个链接在一个窗口或一个窗口中打开，使用不同的选项卡（我不知道哪一个需要更长的时间）每个解决方案都可以，但首选的是同一个窗口导航每个链接。

我希望得到你的帮助

提前致谢

Answer 1

并不是100％清楚你所追求的是什么，但从它的声音来看，你需要IE自动化（除其他外）将网站拉入同一窗口中的标签。

这可能会有所帮助：

.IE.Navigate2 "www.somewebsite.com", CLng(2048)

Excel VBA浏览同一窗口或选项卡

1 个答案: