KotakNet RTD

One of the cool features of KotakNet is, it supports RTD server. Now you can get streaming real-time quotes in Excel.

RTD server gets data from Websocket, parses the received data and streams real time quotes to Excel.

The Syntax for Excel RTD Function is =RTD(ProgID,ServerName,Topic1,[Topic2])

• ProgID: KotakNet.Rtd

• ServerName: Blank

• Topic1 - Ticker in the Format of [TRADESYMBOL].[EXCH] Ex: AXISBANK.NSE, NIFTY22FEB18FUT.NFO, SILVERM22FEB28FUT.MCX

• Topic2 - Price Filed.

Supported Price Fields

"LAST", "PCTCHG", "NETCHG", "LASTSIZE", "BID", "BIDSIZE", "ASK", "ASKSIZE", "AVGPRICE", "VOLUME", "TOTALBUYQTY", "TOTALSELLQTY", "OPEN", "HIGH", "LOW", "CLOSE", "OI", "LTT", "LOWERCKT", "UPPERCKT", "MTM", "NETQTY", "AVGBOUGHTPRICE", "AVGSOLDPRICE", "BOUGHTQTY", "SOLDQTY", "PING"

Example:

=RTD("KotakNet.Rtd",,"AXISBANK.NSE","LAST")

=RTD("KotakNet.Rtd",,"AXISBANK.NSE","OPEN")

Adding RTD formula likes above in every cell is tedious, so we added a UDF "GetRTD" in the sample excel sheet, which will wrap the complex RTD function. User can use this UDF instead of the original RTD function, note this is not mandatory.

The syntax for the GetRTD is

=GetRTD(Exch, TrdSymbol, Field)

=GetRTD("NSE", "AXISBANK", "LAST") ‘ will get LTP

Public Function GetRTD(ByVal Exch As String, ByVal Trdsym As String, ByVal field As String) As Variant
    If (Exch = vbNullString Or Trdsym = vbNullString Or field = vbNullString) Then GetRTD = 0: Exit Function
    Exch = UCase(Exch)
    Trdsym = UCase(Trdsym)
    field = UCase(field)
    Dim Prfx As String
    Prfx = Trdsym & "." & Exch
    GetRTD = WorksheetFunction.RTD("KotakNet.Rtd", "", Prfx, field)
End Function

Subscribe Quotes:

To get Real-time quotes in "Excel RTD", you must be logged-in to KotakNet and need to call the "SubscribeQuotes" method for the Symbol which you want data. This is equivalent to adding symbols in market watch of trading platform.

=SubscribeQuotes(Exch, TrdSymbol)

=SubscribeQuotes("NSE", "AXISBANK")