Can I change the Pause and Play mode of Eikon Excel using VBA?
Can I change the Pause and Play mode of Eikon Excel using VBA?
Tagged:
0
Best Answer
-
Yes. A 'quick and dirty' way of doing so is to use the Eikon for Excel/Eikon - Microsoft Office application caption to determine the current state and then use Application.Run "PLPaseResumeEventHandler" in code to change from on to the other
Sub PauseResumeEventHandler()
' NOTE - when the status of Eikon for Excel is changed, Excel's caption flashes three times indicating the status change, over 2-3 seconds. If you run this macro quickly, successively, the caption may not have had time to change to reflect the current Eikon for Excel status.
Dim strXlCaption As String, strOnline As String, strDisconnected As String, _
strPausedStart As String, strPaused As String, strXL As String, strOutput As String
Dim n As Integer, intTest As Integer
strXlCaption = Application.Caption
'The strings below are for Eikon 4.0.3, chack and change for other Eikon versions.
strOnline = "Thomson Reuters Eikon is online"
strDisconnected = "Thomson Reuters Eikon is disconnected"
strPausedStart = "Thomson Reuters Eikon started on pause mode"
strPaused = "Thomson Reuters Eikon is paused"
strXL = "Microsoft Excel"
On Error GoTo errhandler
n = 2
intTest = IsNumeric(Application.WorksheetFunction.Find(strOnline, strXlCaption))
strOutput = "Online": GoTo outro
2:
n = 3
intTest = IsNumeric(Application.WorksheetFunction.Find(strDisconnected, strXlCaption))
strOutput = "Disconnected": GoTo outro
3:
n = 4
intTest = IsNumeric(Application.WorksheetFunction.Find(strPausedStart, strXlCaption))
strOutput = "PausedStart": GoTo outro
4:
n = 5
intTest = IsNumeric(Application.WorksheetFunction.Find(strPaused, strXlCaption))
strOutput = "Paused": GoTo outro
5:
n = 6
intTest = IsNumeric(Application.WorksheetFunction.Find(strXL, strXlCaption))
strOutput = "XL": GoTo outro
6:
strOutput = "Unknown"
outro:
Select Case strOutput
Case "Online"
MsgBox "Eikon for Excel updates are real time. Now PAUSING real time updates.", vbOKOnly, "Efe Update mode"
Case "Disconnected"
MsgBox "Eikon for Excel is disconnected. Please sign in you wish to use Eikon for Excel.", vbOKOnly, "Efe Update mode"
End
Case "PausedStart"
MsgBox "Eikon for Excel has been started on pause mode. Now switching ON.", vbOKOnly, "Efe Update mode"
Case "Paused"
MsgBox "Eikon for Excel updates are paused. Now switching ON.", vbOKOnly, "Efe Update mode"
Case "XL"
MsgBox "Eikon for Excel is potentially disconnected or updates are real time. Now PAUSING if updates are real time.", vbOKOnly, "Efe Update mode"
Case "Unknown"
MsgBox "Unable to determine Eikon for Excel state. No action performed", vbOKOnly, "Efe Update mode"
End
Case Else
MsgBox "Unable to determine Eikon for Excel state. No action performed", vbOKOnly, "Efe Update mode"
End
End Select
Application.Run "PLPauseResumeEventHandler"
Exit Sub
errhandler:
Select Case n
Case 2
Resume 2:
Case 3
Resume 3:
Case 4
Resume 4:
Case 5
Resume 5:
Case 6
Resume 6:
End Select
End Sub0
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 中文论坛