Can I find the default Eikon for Excel RHistory fields for an instrument using the COM APIs and VBA?
Best Answer
-
Yes, but it depends on whether the AdxRtHistory Class of the AdxRtLib library (older methodology, Interday and beyond only) or the RhistoryAPI library (newer methodology, all time periods) is being used.
For RHistoryAPI there is no direct way to get the actual field names being used, but by using the field list as "" (to request ALL fields) and the display parameter "CH:Fd", when the data is returned the first row of the array will be the names of the fields.
In the Visual Basic Editor, Tools, References for the RHistoryAPI (or look for RHistoryAPI.dll in the X/Bin, Y/Bin or Z/Bin of the TR Eikon installation directory)Private myRHistoryManager As RHistoryAPI.RHistoryManager
Private myRHistoryCookie As Long
Private WithEvents myRHistoryQuery As RHistoryAPI.RHistoryQuery
Private Declare Function CreateReutersObject Lib "PLVbaApis.dll" (ByVal progID As String) As Object
Private Sub getHistory()
Set myRHistoryManager = CreateReutersObject("RHistoryAPI.RHistoryManager") 'Create.the Manager object
myRHistoryCookie = myRHistoryManager.Initialize("MY BOOK") 'Initialise
Set myRHistoryQuery = myRHistoryManager.CreateHistoryQuery(myRHistoryCookie) ' Create the Query object.
With myRHistoryQuery
.InstrumentIdList = "VOD.L"
.FieldList = "" ' To request ALL fields
.RequestParams = "NBROWS:1 INTERVAL:TICK"
.RefreshParams = "FRQ:10S"
.DisplayParams = "SORT:D CH:Fd"
.Subscribe
End With
End Sub
Private Sub myRHistoryQuery_OnUpdate(ByVal a_historyTable As Variant, ByVal a_startingRowIndex As Long, ByVal a_startingColumnIndex As Long, ByVal a_shiftDownExistingRows As Boolean)
Dim rw As Integer, col As Integer
For rw = LBound(a_historyTable, 1) To UBound(a_historyTable, 1)
For col = LBound(a_historyTable, 2) To UBound(a_historyTable, 2)
Debug.Print a_historyTable(rw, col)
Next col
Next rw
End SubFrom the names of the fields returned one can infer the actual fields being used, examples below;
Field Header refers to Category
Trade Close refers to TRDPRC_1
Bid Close refers to BID
Bid Yield Close refers to BID_YIELD
VALUE refers to ECONOMIC (e.g. GBCBIS=ECI - the Timestamp field header "CH:Fd" returns as UPPER CASE TIMESTAMP)
For more details on using AdxRtHistory, go to the Tutorial 5 in the COM APIs page and for the RHistoryAPI, Tutorial 9 COM Learning
0
Answers
-
Hello,
I have additional question related to the topic.
With myRHistoryQuery
.InstrumentIdList = "VOD.L" - there are RIC or multiple RICs included inside the query.However, I would like to retrieve data for multiple instruments in Range of cells. For example in column A.
Could someone advise?
Thank you,
Piotr
0 -
@piotr
You can use the following code to get multiple instruments from Range of cells (Column A).
Dim Lastrow As Integer
Lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
With myRHistoryQuery
.InstrumentIdList = ""
For Each c In Range("A1:A" & Lastrow)
If IsEmpty(c.Value) = True Then
Exit For
End If
.InstrumentIdList = .InstrumentIdList + c.Value + ";"
Next c
.FieldList = "" ' To request ALL fields
.RequestParams = "NBROWS:1 INTERVAL:TICK"
.RefreshParams = "FRQ:10S"
.DisplayParams = "SORT:D CH:Fd"
.Subscribe
End WithThe above code will retrieve multiple items from column A1 to the last row of column A or until the cell is empty.
0
Categories
- All Categories
- 6 AHS
- 37 Alpha
- 161 App Studio
- 4 Block Chain
- 4 Bot Platform
- 16 Connected Risk APIs
- 47 Data Fusion
- 30 Data Model Discovery
- 608 Datastream
- 1.3K DSS
- 577 Eikon COM
- 4.9K Eikon Data APIs
- 7 Electronic Trading
- Generic FIX
- 7 Local Bank Node API
- Trading API
- 2.7K Elektron
- 1.3K EMA
- 236 ETA
- 519 WebSocket API
- 33 FX Venues
- 10 FX Market Data
- 1 FX Post Trade
- 1 FX Trading - Matching
- 12 FX Trading – RFQ Maker
- 5 Intelligent Tagging
- 2 Legal One
- 20 Messenger Bot
- 2 Messenger Side by Side
- 9 ONESOURCE
- 7 Indirect Tax
- 59 Open Calais
- 264 Open PermID
- 39 Entity Search
- 2 Org ID
- PAM
- PAM - Logging
- 8.4K Private Comments
- 6 Product Insight
- Project Tracking
- ProView
- ProView Internal
- 20 RDMS
- 1.4K Refinitiv Data Platform
- 367 Refinitiv Data Platform Libraries
- 3 Refinitiv Due Diligence
- LSEG Due Diligence Portal API
- 3 Refinitiv Due Dilligence Centre
- Rose's Space
- 1.1K Screening
- 18 Qual-ID API
- 13 Screening Deployed
- 23 Screening Online
- 10 World-Check Customer Risk Screener
- 990 World-Check One
- 44 World-Check One Zero Footprint
- 45 Side by Side Integration API
- Test Space
- 3 Thomson One Smart
- 1.2K TR Internal
- Global Hackathon 2015
- 2 Specialists Who Code
- 10 TR Knowledge Graph
- 150 Transactions
- 142 REDI API
- 1.7K TREP APIs
- 4 CAT
- 21 DACS Station
- 117 Open DACS
- 1.1K RFA
- 103 UPA
- 172 TREP Infrastructure
- 224 TRKD
- 886 TRTH
- 5 Velocity Analytics
- 5 Wealth Management Web Services
- 59 Workspace SDK
- 9 Element Framework
- 5 Grid
- 13 World-Check Data File
- Yield Book Analytics
- 46 中文论坛