Excel VBA在外部超链接之后恢复焦点

Question

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

Sub Call_TreasuryBonds()
    Dim szCeladdrs As String
    Dim rFoundcell As Range
    ChDir "\MacHomeDOCUMENTSFOLIOBONDS"
    Workbooks.Open Filename:="Treasury Rates.xlsm"
    Sheets("TreasRates").Select
    ThisWorkbook.FollowHyperlink Range("F2").Value
    ThisWorkbook.FollowHyperlink Range("F3").Value

1st超链接是：https：//www.treasury.gov/resource-center/data-chart-center/interest-rates/pages/pages/textview.aspx?data=yield第二次超链接为：https：//www.treasury.gov/resource-center/data-chart-center/interest-rates/pages/pages/textview.aspx?data=Realyield

第一个网站毫不费力地加载，但是在尝试加载第二个网站时，我会收到一个错误消息： "运行时错误" 5';无效的程序调用或参数'我无法将重点返回到我的工作簿中。

该怎么办？

Answer 1

请更改：

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