excel vba重新关注外部超链接

时间:2017-09-25 08:15:58

标签: excel-vba vba excel

使用Excel 2010,我的宏尝试加载2个外部网站,我可以从中输入数据

Sub Call_TreasuryBonds()
    Dim szCeladdrs As String
    Dim rFoundcell As Range

    ChDir "\\Mac\Home\DOCUMENTS\FOLIO\BONDS"
    Workbooks.Open Filename:="Treasury Rates.xlsm"
    Sheets("TreasRates").Select

    ThisWorkbook.FollowHyperlink Range("F2").Value
    ThisWorkbook.FollowHyperlink Range("F3").Value

第一个超链接是:https://www.treasury.gov/resource-center/data-chart-center/interest-rates/Pages/TextView.aspx?data=yield 第二个超链接是:https://www.treasury.gov/resource-center/data-chart-center/interest-rates/Pages/TextView.aspx?data=realyield

第一个网站加载没有困难,但在尝试加载第二个网站时,我收到一条错误消息:     '运行时错误' 5&#39 ;;无效的过程调用或参数', 我无法将注意力集中在我的工作簿上。

请做什么?

1 个答案:

答案 0 :(得分:0)

请更改:

ThisWorkbook.FollowHyperlink Range("F2").Value
ThisWorkbook.FollowHyperlink Range("F3").Value

用这个:

Range("F2").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("F3").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True