Discover Refinitiv
MyRefinitiv Refinitiv Perspectives Careers
Created with Sketch.
All APIs Questions & Answers  Register |  Login
Ask a question
  • Questions
  • Tags
  • Badges
  • Unanswered
Search:
  • Home /
  • Eikon COM /
avatar image
Question by Ripley79 · Nov 09, 2015 at 03:03 PM · excelvbacomstatePLSynchronizationMgr

Can I determine the Connection state of Eikon Excel with VBA?

People who like this

0 Show 0
Comment
10 |1500 characters needed characters left characters exceeded
▼
  • Viewable by all users
  • Viewable by moderators
  • Viewable by moderators and the original poster
  • Advanced visibility
Viewable by all users

Up to 2 attachments (including images) can be used with a maximum of 512.0 KiB each and 1.0 MiB total.

2 Replies

  • Sort: 
avatar image
REFINITIV
Best Answer
Answer by DevTrev · Nov 09, 2015 at 03:35 PM

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 Sub
Comment

People who like this

0 Show 0 · Share
10 |1500 characters needed characters left characters exceeded
▼
  • Viewable by all users
  • Viewable by moderators
  • Viewable by moderators and the original poster
  • Advanced visibility
Viewable by all users

Up to 2 attachments (including images) can be used with a maximum of 512.0 KiB each and 1.0 MiB total.

avatar image
Answer by PaulDevi · Mar 22, 2018 at 08:33 AM

@DevTrev

Hi,

one question, when is this "connectionPlay" sub starting?

Will it automaticly start or do I have to call it somewhere in my code? I dont understand "withEvents" aswell. Would be nice if there is any help.

Thanks!

Comment

People who like this

0 Show 0 · Share
10 |1500 characters needed characters left characters exceeded
▼
  • Viewable by all users
  • Viewable by moderators
  • Viewable by moderators and the original poster
  • Advanced visibility
Viewable by all users

Up to 2 attachments (including images) can be used with a maximum of 512.0 KiB each and 1.0 MiB total.

Watch this question

Add to watch list
Add to your watch list to receive emailed updates for this question. Too many emails? Change your settings >
2 People are following this question.

Related Questions

How does AdfinX, DEX2 RSearch etc., now stored in X, Y or Z Bin folders, affect my VBA API calls?

Can I change the Pause and Play mode of Eikon Excel using VBA?

How do I trigger a VBA macro from within the TR function in Eikon Excel

Performance issues when fetching large amounts of data

OK, so how do I get the Eikon for Excel/Eikon - Microsoft Office default AdxRtHistory fields then?

  • Feedback
  • Copyright
  • Cookie Policy
  • Privacy Statement
  • Terms of Use
  • Careers
  • Anonymous
  • Sign in
  • Create
  • Ask a question
  • Spaces
  • Alpha
  • App Studio
  • Block Chain
  • Bot Platform
  • Calais
  • Connected Risk APIs
  • DSS
  • Data Fusion
  • Data Model Discovery
  • Datastream
  • Eikon COM
  • Eikon Data APIs
  • Electronic Trading
    • Generic FIX
    • Local Bank Node API
    • Trading API
  • Elektron
    • EMA
    • ETA
    • WebSocket API
  • Legal One
  • Messenger Bot
  • Messenger Side by Side
  • ONESOURCE
    • Indirect Tax
  • Open PermID
    • Entity Search
  • Org ID
  • PAM
    • PAM - Logging
  • ProView
  • ProView Internal
  • Product Insight
  • Project Tracking
  • Refinitiv Data Platform
    • Refinitiv Data Platform Libraries
  • Rose's Space
  • Screening
    • Qual-ID API
    • Screening Deployed
    • Screening Online
    • World-Check One
    • World-Check One Zero Footprint
  • Side by Side Integration API
  • TR Knowledge Graph
  • TREP APIs
    • CAT
    • DACS Station
    • Open DACS
    • RFA
    • UPA
  • TREP Infrastructure
  • TRIT
  • TRKD
  • TRTH
  • Thomson One Smart
  • Transactions
    • REDI API
  • Velocity Analytics
  • Wealth Management Web Services
  • World-Check Data File
  • Explore
  • Tags
  • Questions
  • Badges