Vba 计算两个对象中的值差

我有两个对象，我想计算每个值的值差

代码现在是：

Function CALBETA(CodeOne As String, CodeTwo As String) As Double
Dim onedata As Object
Dim Twodata As Object

Set onedata = ConnectToBloombergTwo(CodeOne)

Set Twodata = ConnectToBloombergTwo(CodeTwo)

End Function

它们基于另一个功能：

Public Function ConnectToBloombergOne(Code As String) As Object

    Dim sUrl As String
    Dim rawJson As Dictionary
    Dim dataRequest As WinHttp.WinHttpRequest
    Dim Json As Object
    Dim FetchedData As String

    sUrl = "http://www.bloomberg.com/markets/api/bulk-time-series/price/" & Code & "?timeFrame=3_YEAR"

    Set dataRequest = New WinHttp.WinHttpRequest

    With dataRequest
        .Open "GET", sUrl, True
        .Send
        .WaitForResponse
        FetchedData = .ResponseText
    End With

    FetchedData = Right(FetchedData, Len(FetchedData) - 1)
    FetchedData = Left(FetchedData, Len(FetchedData) - 1)

    Set Json = JsonConverter.ParseJson(FetchedData)

    Set ConnectToBloombergOne = Json.Item("price")

End Function

因此，我们的想法是比较彭博社的两种不同股票。因此，我需要能够计算出股票价格的差异

---

我该怎么做

您希望在这些对象的哪些特定属性中找到差异？另外，您的

CALBETA

函数正在调用

ConnectToBloombergTwo

函数，但您已经显示了

connecttobloomberggo

函数。你打电话的和你发布的有什么区别？想知道不同日期的股价差异：Json.Item（“price”）啊。这是个错误。ConnectToBloombergTwo只得到5年而不是3年。

Json.Item（“price”）

返回什么对象？这不是一个VBA问题，而是一个JSON问题，特别是您在Excel中使用的JSON库。相关的，或者可能重复的？？？您希望在这些对象的哪些特定属性中找到差异的可能重复项？另外，您的

CALBETA

函数正在调用

ConnectToBloombergTwo

函数，但您已经显示了

connecttobloomberggo

函数。你打电话的和你发布的有什么区别？想知道不同日期的股价差异：Json.Item（“price”）啊。这是个错误。ConnectToBloombergTwo只得到5年而不是3年。

Json.Item（“price”）

返回什么对象？这不是一个VBA问题，而是一个JSON问题，特别是您在Excel中使用的JSON库。相关的，或者可能重复的？？？可能重复的