Can I determine the Connection state of Eikon Excel with VBA?
Best Answer
-
Yes. The PLSynchronizationMgr Library can do this. It is not contained in the PLVbaApis.bas file but the PLVbaApis.dll accommodates the Library so CreateReutersObject() can be used with the dll declared and Tools, References in the Visual Basic Editor for the PLSynchronizationMgr.dll in the Thomson Reuters Eikon installation directory.
The PLSynchronizationMgr has a Login method and a number of events including OnConnection, OnDisconnection, OnPause, OnRefresh, OnResume. It can be used in conjunction withApplication.Run "PLPaseResumeEventHandler", which toggles between Eikon for Excel/Eikon - Microsoft Office Resume Updates and Pause Updates.#If VBA7 Then
Private Declare PtrSafe Function CreateReutersObject Lib "PLVbaApis.dll" (ByVal progID As String) As Object
#Else
Private Declare Function CreateReutersObject Lib "PLVbaApis.dll" (ByVal progID As String) As Object
#End If
Dim WithEvents myPLSM As PLSynchronizationMgrLib.SynchronizationMgr
Sub connectionPlay()
Dim strConnMode As String, strConnState As String, strUpdateStatus As String
Set myPLSM = CreateReutersObject("PLSynchronizationMgr.SynchroMgr")
With myPLSM
Select Case .ConnectionMode
'PLConnectionModeTypes - 'PL_CONNECTION_MODE_NONE 0
'PL_CONNECTION_MODE_MPLS 1, 'PL_CONNECTION_MODE_INTERNET 2
Case 0
strConnMode = "0 - PL_CONNECTION_MODE_NONE"
Case 1
strConnMode = "1 - PL_CONNECTION_MODE_MPLS"
Case 2
strConnMode = "2 - PL_CONNECTION_MODE_INTERNET"
End Select
Select Case .ConnectionState
'PLConnectionStateTypes - PL_CONNECTION_STATE_NONE 0
'PL_CONNECTION_STATE_MINIMAL 1, PL_CONNECTION_STATE_WAITING_FOR_LOGIN 2
'PL_CONNECTION_STATE_ONLINE 3, PL_CONNECTION_STATE_OFFLINE 4
'PL_CONNECTION_STATE_LOCAL_MODE 5
Case 0
strConnState = "0 - PL_CONNECTION_STATE_NONE"
Case 1
strConnState = "1 - PL_CONNECTION_STATE_MINIMAL"
Case 2
strConnState = "2 - PL_CONNECTION_STATE_WAITING_FOR_LOGIN"
Case 3
strConnState = "3 - PL_CONNECTION_STATE_ONLINE"
Case 4
strConnState = "4 - PL_CONNECTION_STATE_OFFLINE"
Case 5
strConnState = "5 - PL_CONNECTION_STATE_LOCAL_MODE"
End Select
Select Case .UpdatesStatus
'PLUpdateStatusTypes - PL_UPDATES_STATUS_NONE 0
'PL_UPDATES_STATUS_STREAMING 1, PL_UPDATES_STATUS_PAUSED 2
Case 0
strUpdateStatus = "0 - PL_UPDATES_STATUS_NONE"
Case 1
strUpdateStatus = "1 - PL_UPDATES_STATUS_STREAMING"
Case 2
strUpdateStatus = "2 - PL_UPDATES_STATUS_PAUSED"
End Select
MsgBox "Connection Mode: " & strConnMode & Chr(13) & _
"Connection State: " & strConnState & Chr(13) & "Updates Status: " & strUpdateStatus
If .ConnectionState = 2 Then
' If the user log in details are already set for automatic log in, this will log in EfE, OR provide the log in dialogue box otherwise.
If MsgBox("Eikon for Excel is eready to log in. Do you want to log in?", _
vbYesNo, "Log in to Eikon for Excel?") = vbYes Then _
.Login
End If
End With
End Sub0
Answers
Categories
- All Categories
- 6 AHS
- 39 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
- 370 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
- 60 Workspace SDK
- 9 Element Framework
- 5 Grid
- 13 World-Check Data File
- Yield Book Analytics
- 46 中文论坛