Excel Integration

URL: https://tickatlas.com/v1/indicator?symbol=EURUSD&indicator=RSI_14&timeframe=H1

HTTP header:
  X-API-Key: YOUR_API_KEY

' Module: TickAtlasAPI
' Add this to a new VBA module via Alt+F11 > Insert > Module

Private Const BASE_URL As String = "https://tickatlas.com/v1"
Private Const API_KEY As String = "YOUR_API_KEY"  ' Store securely in practice

Public Function CLAW_RSI(symbol As String, Optional timeframe As String = "H1") As Variant
    CLAW_RSI = GetIndicator(symbol, "RSI_14", timeframe)
End Function

Public Function CLAW_MACD(symbol As String, Optional timeframe As String = "H1") As Variant
    CLAW_MACD = GetIndicator(symbol, "MACD_hist", timeframe)
End Function

Public Function CLAW_QUOTE(symbol As String, Optional field As String = "bid") As Variant
    Dim url As String
    url = BASE_URL & "/quote?symbol=" & symbol

    Dim json As String
    json = MakeRequest(url)

    If json = "" Then
        CLAW_QUOTE = CVErr(xlErrNA)
        Exit Function
    End If

    CLAW_QUOTE = ExtractJsonValue(json, field)
End Function

Private Function GetIndicator(symbol As String, indicator As String, timeframe As String) As Variant
    Dim url As String
    url = BASE_URL & "/indicator?symbol=" & symbol & _
          "&indicator=" & indicator & "&timeframe=" & timeframe

    Dim json As String
    json = MakeRequest(url)

    If json = "" Then
        GetIndicator = CVErr(xlErrNA)
        Exit Function
    End If

    GetIndicator = ExtractJsonValue(json, "value")
End Function

Private Function MakeRequest(url As String) As String
    On Error GoTo ErrorHandler
    Dim http As Object
    Set http = CreateObject("MSXML2.XMLHTTP")
    http.Open "GET", url, False
    http.setRequestHeader "X-API-Key", API_KEY
    http.Send

    If http.Status = 200 Then
        MakeRequest = http.responseText
    Else
        MakeRequest = ""
    End If
    Exit Function

ErrorHandler:
    MakeRequest = ""
End Function

Private Function ExtractJsonValue(json As String, key As String) As Variant
    ' Simple JSON value extraction (works for flat responses)
    Dim pattern As String
    pattern = """" & key & """:"
    Dim pos As Long
    pos = InStr(json, pattern)
    If pos = 0 Then
        ExtractJsonValue = CVErr(xlErrNA)
        Exit Function
    End If
    Dim startPos As Long
    startPos = pos + Len(pattern)
    Dim endPos As Long
    endPos = InStr(startPos, json, ",")
    If endPos = 0 Then endPos = InStr(startPos, json, "}")
    Dim val As String
    val = Mid(json, startPos, endPos - startPos)
    val = Replace(val, """", "")
    If IsNumeric(val) Then
        ExtractJsonValue = CDbl(val)
    Else
        ExtractJsonValue = val
    End If
End Function

' Auto-refresh macro — runs every N seconds
' Add to ThisWorkbook module

Private Sub Workbook_Open()
    ScheduleRefresh
End Sub

Private Sub ScheduleRefresh()
    ' Refresh every 30 seconds
    Application.OnTime Now + TimeValue("00:00:30"), "RefreshMarketData"
End Sub

Public Sub RefreshMarketData()
    ' Force recalculation of all CLAW_ functions
    Application.CalculateFull

    ' Update the "Last Updated" cell
    Range("B1").Value = "Last updated: " & Format(Now, "hh:mm:ss")

    ' Schedule next refresh
    ScheduleRefresh
End Sub

Public Sub StopRefresh()
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:30"), "RefreshMarketData", , False
End Sub