VBA force login if not logged already on, and to resume updates if paused
Hi!
I would like to automatize an Excel, to open up and refreshing some quotes, saving it, and closing the file. Now this my VBA manages. This works perfectly when I’m signed in.
But sometimes I am not signed in (for any reason), and then the VBA stops mid-air. I tried already googling and found one guideline(see below), but I cannot manage to get it to work.
Can someone help me? What am I doing wrong?
I copied the line and enabled Automatic Login:
CreateReutersObject code
Public Function CreateSynchronizationMgr() As PLSynchronizationMgrLib.SynchronizationMgr
Set CreateSynchronizationMgr = CreateReutersObject("PLSynchronizationMgr.SynchroMgr")
End Function---------------------------------------------------------
I assume I need this VBA, but I cannot run it in my Workbook (even though I have taken the same “PLVbaApis” module to my Project.
-----------------------------------------------------
#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
' Synchronization Manager - added manually, not in original PlVbaApis.bas.
Public Function CreateSynchronizationMgr() As PLSynchronizationMgrLib.SynchronizationMgr
Set CreateSynchronizationMgr = CreateReutersObject("PLSynchronizationMgr.SynchroMgr")
End Function
Private Sub cmdLogIn_Click()
Dim strConnState As String
If myPLSM Is Nothing Then Set myPLSM = CreateSynchronizationMgr()
With myPLSM
Select Case .ConnectionState
'PLConnectionStateType
'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
MsgBox "Connection State: " & strConnState
If .ConnectionState = 2 Or .ConnectionState = 4 Then
'' Two ways of logging in programmatically.
'' 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.
'.Login
Application.Run "PLLoginEventHandler"
End If
End With
End Sub
Reuters Eikon MS Office version 4.0.34563
MS Offic Version 2010 Microsofr Office System, MSO (14.0.7166.5000)
Windows 7 Enterprise 64-Bit
Best Answer
-
Hi @AndreasT,
I suggest rather than copying & pasting VBA code from the Web page into your project you take a look at the example spreadsheet included with the tutorial you mentioned. You can download this example spreadsheet following the link at the top of the tutorial:
0
Answers
-
This question is about Eikon COM libraries for use in MS Office, not about Eikon App Studio. I moved the question to Eikon COM category.
0
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 中文论坛