从excel中的实时更新单元格值中获取特定值

Question

我的Excel中有API函数可以获取实时股票价格。我想在上午9:15保存第一个实时价格，但是当通过函数获取此值时，我无法修改另一个单元格值。我尝试在函数内部调用子例程，但它崩溃了excel。

如何实现这一目标？

我希望价值恰好在9:15，而不是之前或之后的值。

可以使用像DictKeys这样的东西吗？

我的代码

Public Function GetRTD(Exch As String, TrdSymbol As String, Field As String)
    On Error Resume Next
    If Exch = "" Then
        GetRTD = ""
        Exit Function
    End If
    If TrdSymbol = "" Then
        GetRTD = ""
        Exit Function
    End If

    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = False

    Dim Prfx As String
    Prfx = TrdSymbol & "." & Exch

    GetRTD = WorksheetFunction.RTD("Kite.RtdServer", "", Prfx, Field)
    Exit Function
End Function