VBA-打开多个网站

Question

关于以下问题，请提供协助。

背景：

我在B列中输入25个股票代码。我想在Internet Explorer中自动打开它们。

问题：

运行以下代码后，它只会打开1个Internet Explorer窗口。 网址是“ http://finance.yahoo.com/q?s= ”

我如何打开多个Internet Explorer窗口/选项卡并导航到所需的股票代码。 弹出的不是仅仅一个Internet Explorer窗口？

我的电脑资讯：

1.窗口8.1

2.Excel 2013年

3.ie 11

我的Excel参考资料：

Microsoft对象库：是

Microsoft Internet控件：是

Microsoft Form 2.0对象库：是

Microsoft脚本控件1.0：是

网址：

http://finance.yahoo.com/q?s=ibm

以下是我的VBA代码：

Private Sub CommandButton1_Click()

Dim ie As Object




Set ie = CreateObject("InternetExplorer.Application")


For r = 2 To 50


With ie
  .Visible = 1
  .navigate "http://finance.yahoo.com/q?s=" & Cells(r, "B").Value

End With



Next r
End Sub

干杯!

Answer 1

在navigate命令之后，您需要允许ie对象时间来获取网页。

Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
For r = 2 To 50
    With ie
        .Visible = 1
        .navigate "http://finance.yahoo.com/q?s=" & Cells(r, "B").Value
        Do While (.Busy Or .ReadyState <> 4): DoEvents: Loop   'READYSTATE_COMPLETE = 4

        ' do something with the page here

    End With
Next r
ie.quit: set ie = nothing

Answer 2

您是否尝试过创建多个IE对象？

Private Sub CommandButton1_Click()
    Dim ie As Object
    For r = 2 To 50

        Set ie = CreateObject("InternetExplorer.Application")
        With ie
             .Visible = 1
             .navigate "http://finance.yahoo.com/q?s=" & Cells(r, "B").Value
        End With
    Next r
End Sub