vba - 来自 Fidelity 的实时报价脚本

Question

通过使用宏记录器，然后进行一些修改，我设置了一个宏来导航到富达股票报价页面以获取多个报价，并下载延迟报价。这很好用。但是，如果我登录 Fidelity 并手动访问同一页面，我可以获得实时报价。 “登录”可以在我访问页面之前或之后进行。我无法弄清楚如何将登录过程添加到处理其他所有内容的 VBA 例程中。在我选择“从 Web 获取外部数据”选项之前启动的宏记录器在访问该页面以获取实时报价时不会选择登录过程。

以下是实际调用股票报价页面并请求报价的函数部分:

With Worksheets("fidotemp").QueryTables.Add(Connection:=Connection, _
    Destination:=Range("a1"))
    .name = Symbol
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlSpecifiedTables
    .WebFormatting = xlWebFormattingNone
    .WebTables = IIf(bSymbol, "12", "9")
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
    End With

名为 Connection 的 Connection 参数是包含特定页面的字符串，以及格式正确的字符串以获得一个或多个引号。当请求多个引号时，股票代码以“+”分隔并限制为 100 个字符长度。

示例连接字符串可能如下所示:

URL;https://fastquote.fidelity.com/webxpress/get_quote?QUOTE_TYPE=D&SID_VALUE_ID=VIP+SAN+E+MT+BCE+RAI+SNP+BP+MO+PTR&submit=Quote

Answer 1

从 www.fidelity.com 登录是否可以接受？如果是这样，这会让你进入吗？

Sub test()
' open IE, navigate to the Fidelity log-in webpage of interest and loop until fully loaded
    Set IE = CreateObject("InternetExplorer.Application")
    login_url = "https://www.fidelity.com"

    With IE
        .Visible = True
        .navigate login_url
        .Top = 50
        .Left = 130
        .Height = 800
        .Width = 800
    End With

    Do Until Not IE.Busy And IE.ReadyState = 4
        DoEvents
    Loop

' Enter your username and pw
    IE.document.getElementById("temp_id").Value = "abcde"
    IE.document.getElementById("PIN").Value = "12345"

' Click the login button
    IE.document.getElementById("logButton").disabled = False
    IE.document.getElementById("logButton").Click
End Sub