RTD в Excel VBA (необходимо вызвать данные из ППУ)

Question

я искал тот же ответ, где мне нужно позвонить данные с сервера ДРВ

Sub Test() 
    Range("d1") = RTD("tickerplantrtdserver", , 4#2#1#6768#FUTSTK#N1#0#XX#Bid) 
End Sub 

Когда я извлечения данных из Excel

RTD("tickerplantrtdserver", , 4#2#1#6768#FUTSTK#N1#0#XX#Bid) 

он отлично работает и дает номер.

Answer 1

Попробуйте это:

Range("d1") = [RTD("tickerplantrtdserver", , 4#2#1#6768#FUTSTK#N1#0#XX#Bid)] 

[] скобки ярлык для Evaluate функции.
Так что может быть написано, как это так:

Range("d1") = Evaluate("RTD(""tickerplantrtdserver"", , 4#2#1#6768#FUTSTK#N1#0#XX#Bid)") 

Обратите внимание на двойные кавычки в ""tickerplantrtdserver"" части.
Я еще не пробовал и не тестировал, но Evaluate работает над формулами, поэтому я просто предполагаю, что он будет работать так же с RTD.