VBA,Excel 2010,在新标签中打开Internet探索

时间:2013-06-30 00:57:55

标签: internet-explorer vba excel-2010

我搜索过,试过各种参数,标志开关。没有运气

这就是我想要做的。我有一个包含各种公司名称的电子表格。它有VBA代码,当点击公司名称时,宏在Google财经或雅虎财务上打开该公司的财务,......但是,它总是在新窗口中打开。为了进行比较,如果所有这些都在同一窗口的不同选项卡上,则会更有用。

是否有任何方法可以更改代码,以便在单击公司名称时,该网页将在已打开的iexplorer的新选项卡上打开。我正在使用VBA,excel 2010,Win7

1 个答案:

答案 0 :(得分:3)

假设IE是表示InternetExplorer.Application的实例的对象变量:

Sub TestNewTabInIE()
' modified from code originally found at:
'http://www.ozgrid.com/forum/showthread.php?t=174692
Dim IE As Object

Set IE = CreateObject("InternetExplorer.Application")

With IE
    .Visible = True
    While .ReadyState <> 4 'READYSTATE_COMPLETE
        DoEvents
    Wend
    '# Navigate to one URL
    .Navigate "http://google.com"
    '# Navigate to another URL, in a new tab.
    .Navigate "Http://yahoo.com", CLng(2048)
End With
End Sub

如果您不知道要问什么问题,有时很难找到答案。我使用这个谷歌查询找到答案:

https://www.google.com/search?q=VBA+explorer+new+tab

我总是确保我的查询中包含“VBA”,以及描述我正在尝试做什么的几句话。包括相关方法或属性通常也是有帮助的(例如,“VBA资源管理器。导航新选项卡”可能同样有用)。我发现匹配这些术语的结果往往更加精确/完整。

这是#2结果:

http://www.ozgrid.com/forum/showthread.php?t=174692