Как преобразовать responseText VBA в определяемый пользователем кортеж? - PullRequest
Новая
       24

Как преобразовать responseText VBA в определяемый пользователем кортеж?

1 голос
/ 19 июня 2020

При попытке преобразовать responseText в объект, определенный пользователем, я получаю сообщение об ошибке: Sub или Function not defined.

Как преобразовать кортеж, отправленный сервером, в responseText? В некоторых предыдущих сообщениях предлагалось преобразование с использованием CType, но VBA, похоже, не может его найти и выдает ошибку компилятора.

Вот мой код с определяемым пользователем типом, которому должен быть назначен кортеж в responseText. Спасибо 

Type DblStrTuple
    StrikePrice As Double
    Volatility As String
End Type

Function GetCorrectPutStrikeAndVolatility(ByVal StockTicker, ByVal StrikePrice, ByVal TargetDate) As DblStrTuple

    Dim XmlHttp As Object
    Set XmlHttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    Url = "http://192.168.1.9:5005/options/get_strike_price_and_volatiitlity?"

    FinalUrl = Url & StockTicker & "+" & StrikePrice & "+" & TargetDate

    XmlHttp.Open "GET", FinalUrl, False

    XmlHttp.send

    CorrectCallOptionStrikePrice = DblStrTuple(XmlHttp.responseText)

End Function
...