13:05 ET Dow -154.48 at 10309.92, Nasdaq -37.61 at 2138.44, S&P -19.130 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 0 1 100001 0 1 0 1 1 0 1 0 00 0 1 1 1 0 1 100001 0 1 1 100001 13:05 ET Dow -154.48 at 10309.92, Nasdaq -37.61 at 2138.44, S&P -19.1313:05 ET Dow -154.48 at 10309.92, Nasdaq -37.61 at 2138.44, S&P -19.13

.

.

Saturday, June 18, 2011

Reuters Station - VBA Code - Visual Basic for Applications

Option Explicit
Public Sub WorldPoliticsAndGeneral() 'Wizard generated. Do not modify
On Error Resume Next   'Wizard generated. Do not modify
NewsStoryNum "8999", "" 'Wizard generated. Do not modify
End Sub

Public Sub FundSummary() 'Wizard generated. Do not modify
On Error Resume Next   'Wizard generated. Do not modify
Dim SelSymbol As String  'Wizard generated. Do not modify
Dim BroadcastSymbol As String  'Wizard generated. Do not modify
Dim ActiveControl As Object  'Wizard generated. Do not modify
Dim Popup As BWSControlBar   'Wizard generated. Do not modify
SelSymbol = Application.WorkbookSelectedSymbol   'Wizard generated. Do not modify
BroadcastSymbol = Application.BroadcastSymbolText  'Wizard generated. Do not modify
Set ActiveControl = Application.ActiveWorkspace.ActiveControl  'Wizard generated. Do not modify
Dim vd As New BDIFVehicleData  'Wizard generated. Do not modify
Dim DefSource As String 'Wizard generated. Do not modify
DefSource = Application.DefaultSourceText 'Wizard generated. Do not modify
Dim lngsc As Long 'Wizard generated. Do not modify
'Set up BroadcastSymbol 'Wizard generated. Do not modify
If DefSource = "RIC" Then 'Wizard generated. Do not modify
  Dim SrcSymBC As String 'Wizard generated. Do not modify
  SrcSymBC = vd.GetValue("RIC", BroadcastSymbol, "FLD_ALT_SYMBOL") 'Wizard generated. Do not modify
  If SrcSymBC = "" Then 'Wizard generated. Do not modify
    SrcSymBC = BroadcastSymbol 'Wizard generated. Do not modify
  End If 'Wizard generated. Do not modify
  lngsc = InStr(SrcSymBC, "_") 'Wizard generated. Do not modify
  If lngsc <> 0 Then 'Wizard generated. Do not modify
    SrcSymBC = Mid(SrcSymBC, 1, (lngsc - 1)) 'Wizard generated. Do not modify
  End If 'Wizard generated. Do not modify
  BroadcastSymbol = SrcSymBC 'Wizard generated. Do not modify
End If 'Wizard generated. Do not modify
'Set up SelSymbol for Hot key 'Wizard generated. Do not modify
If Len(SelSymbol) <> 0 Then 'Wizard generated. Do not modify
  If vd.GetValue(DefSource, SelSymbol, "FLD_SOURCE") = "RIC" Then 'Wizard generated. Do not modify
    SelSymbol = vd.GetValue(DefSource, SelSymbol, "FLD_ALT_SYMBOL") 'Wizard generated. Do not modify
    If Len(SelSymbol) = 0 Then 'Wizard generated. Do not modify
      SelSymbol = Application.WorkbookSelectedSymbol 'Wizard generated. Do not modify
    End If 'Wizard generated. Do not modify
    lngsc = InStr(SelSymbol, "_") 'Wizard generated. Do not modify
    If lngsc <> 0 Then 'Wizard generated. Do not modify
      SelSymbol = Mid(SelSymbol, 1, (lngsc - 1)) 'Wizard generated. Do not modify
    End If 'Wizard generated. Do not modify
  End If 'Wizard generated. Do not modify
End If 'Wizard generated. Do not modify

Set Popup = Application.ReuseOrCreatePopupWithStyle("Reuters Analytics", "Reuters.AnalyticsCtrl.1", "Analytics - Fundamental Display")  'Wizard generated. Do not modify ***Style***
Err.Clear 'Wizard generated. Do not modify ***Style***
Popup.Control.Input = SelSymbol 'Wizard generated. Do not modify ***Style***
If Err.Number <> 0 Then 'Wizard generated. Do not modify ***Style***
  Popup.Control.Symbol = SelSymbol 'Wizard generated. Do not modify ***Style***
End If 'Wizard generated. Do not modify ***Style***



End Sub

Public Sub Quote() 'Wizard generated. Do not modify
On Error Resume Next   'Wizard generated. Do not modify
Dim SelSymbol As String  'Wizard generated. Do not modify
Dim BroadcastSymbol As String  'Wizard generated. Do not modify
Dim ActiveControl As Object  'Wizard generated. Do not modify
Dim Popup As BWSControlBar   'Wizard generated. Do not modify
SelSymbol = Application.WorkbookSelectedSymbol   'Wizard generated. Do not modify
BroadcastSymbol = Application.BroadcastSymbolText  'Wizard generated. Do not modify
Set ActiveControl = Application.ActiveWorkspace.ActiveControl  'Wizard generated. Do not modify
Dim vd As New BDIFVehicleData  'Wizard generated. Do not modify
Dim DefSource As String 'Wizard generated. Do not modify
DefSource = Application.DefaultSourceText 'Wizard generated. Do not modify
Dim lngsc As Long 'Wizard generated. Do not modify
'Set up BroadcastSymbol 'Wizard generated. Do not modify
If DefSource = "RIC" Then 'Wizard generated. Do not modify
  Dim SrcSymBC As String 'Wizard generated. Do not modify
  SrcSymBC = vd.GetValue("RIC", BroadcastSymbol, "FLD_ALT_SYMBOL") 'Wizard generated. Do not modify
  If SrcSymBC = "" Then 'Wizard generated. Do not modify
    SrcSymBC = BroadcastSymbol 'Wizard generated. Do not modify
  End If 'Wizard generated. Do not modify
  lngsc = InStr(SrcSymBC, "_") 'Wizard generated. Do not modify
  If lngsc <> 0 Then 'Wizard generated. Do not modify
    SrcSymBC = Mid(SrcSymBC, 1, (lngsc - 1)) 'Wizard generated. Do not modify
  End If 'Wizard generated. Do not modify
  BroadcastSymbol = SrcSymBC 'Wizard generated. Do not modify
End If 'Wizard generated. Do not modify
'Set up SelSymbol for Hot key 'Wizard generated. Do not modify
If Len(SelSymbol) <> 0 Then 'Wizard generated. Do not modify
  If vd.GetValue(DefSource, SelSymbol, "FLD_SOURCE") = "RIC" Then 'Wizard generated. Do not modify
    SelSymbol = vd.GetValue(DefSource, SelSymbol, "FLD_ALT_SYMBOL") 'Wizard generated. Do not modify
    If Len(SelSymbol) = 0 Then 'Wizard generated. Do not modify
      SelSymbol = Application.WorkbookSelectedSymbol 'Wizard generated. Do not modify
    End If 'Wizard generated. Do not modify
    lngsc = InStr(SelSymbol, "_") 'Wizard generated. Do not modify
    If lngsc <> 0 Then 'Wizard generated. Do not modify
      SelSymbol = Mid(SelSymbol, 1, (lngsc - 1)) 'Wizard generated. Do not modify
    End If 'Wizard generated. Do not modify
  End If 'Wizard generated. Do not modify
End If 'Wizard generated. Do not modify

Set Popup = Application.ReuseOrCreatePopupWithStyle("Reuters Analytics", "Reuters.AnalyticsCtrl.1", "Analytics - Quote")  'Wizard generated. Do not modify ***Style***
Err.Clear 'Wizard generated. Do not modify ***Style***
Popup.Control.Input = SelSymbol 'Wizard generated. Do not modify ***Style***
If Err.Number <> 0 Then 'Wizard generated. Do not modify ***Style***
  Popup.Control.Symbol = SelSymbol 'Wizard generated. Do not modify ***Style***
End If 'Wizard generated. Do not modify ***Style***



End Sub

Public Sub IndexMembership() 'Wizard generated. Do not modify
On Error Resume Next   'Wizard generated. Do not modify
Dim SelSymbol As String  'Wizard generated. Do not modify
Dim BroadcastSymbol As String  'Wizard generated. Do not modify
Dim ActiveControl As Object  'Wizard generated. Do not modify
Dim Popup As BWSControlBar   'Wizard generated. Do not modify
SelSymbol = Application.WorkbookSelectedSymbol   'Wizard generated. Do not modify
BroadcastSymbol = Application.BroadcastSymbolText  'Wizard generated. Do not modify
Set ActiveControl = Application.ActiveWorkspace.ActiveControl  'Wizard generated. Do not modify
Dim vd As New BDIFVehicleData  'Wizard generated. Do not modify
Dim DefSource As String 'Wizard generated. Do not modify
DefSource = Application.DefaultSourceText 'Wizard generated. Do not modify
Dim lngsc As Long 'Wizard generated. Do not modify
'Set up BroadcastSymbol 'Wizard generated. Do not modify
If DefSource = "RIC" Then 'Wizard generated. Do not modify
  Dim SrcSymBC As String 'Wizard generated. Do not modify
  SrcSymBC = vd.GetValue("RIC", BroadcastSymbol, "FLD_ALT_SYMBOL") 'Wizard generated. Do not modify
  If SrcSymBC = "" Then 'Wizard generated. Do not modify
    SrcSymBC = BroadcastSymbol 'Wizard generated. Do not modify
  End If 'Wizard generated. Do not modify
  lngsc = InStr(SrcSymBC, "_") 'Wizard generated. Do not modify
  If lngsc <> 0 Then 'Wizard generated. Do not modify
    SrcSymBC = Mid(SrcSymBC, 1, (lngsc - 1)) 'Wizard generated. Do not modify
  End If 'Wizard generated. Do not modify
  BroadcastSymbol = SrcSymBC 'Wizard generated. Do not modify
End If 'Wizard generated. Do not modify
'Set up SelSymbol for Hot key 'Wizard generated. Do not modify
If Len(SelSymbol) <> 0 Then 'Wizard generated. Do not modify
  If vd.GetValue(DefSource, SelSymbol, "FLD_SOURCE") = "RIC" Then 'Wizard generated. Do not modify
    SelSymbol = vd.GetValue(DefSource, SelSymbol, "FLD_ALT_SYMBOL") 'Wizard generated. Do not modify
    If Len(SelSymbol) = 0 Then 'Wizard generated. Do not modify
      SelSymbol = Application.WorkbookSelectedSymbol 'Wizard generated. Do not modify
    End If 'Wizard generated. Do not modify
    lngsc = InStr(SelSymbol, "_") 'Wizard generated. Do not modify
    If lngsc <> 0 Then 'Wizard generated. Do not modify
      SelSymbol = Mid(SelSymbol, 1, (lngsc - 1)) 'Wizard generated. Do not modify
    End If 'Wizard generated. Do not modify
  End If 'Wizard generated. Do not modify
End If 'Wizard generated. Do not modify

Set Popup = Application.ReuseOrCreatePopupWithStyle("Reuters Analytics", "Reuters.AnalyticsCtrl.1", "Analytics - Index Membership")  'Wizard generated. Do not modify ***Style***
Err.Clear 'Wizard generated. Do not modify ***Style***
Popup.Control.Input = SelSymbol 'Wizard generated. Do not modify ***Style***
If Err.Number <> 0 Then 'Wizard generated. Do not modify ***Style***
  Popup.Control.Symbol = SelSymbol 'Wizard generated. Do not modify ***Style***
End If 'Wizard generated. Do not modify ***Style***



End Sub

Public Sub MainMenu() 'Wizard generated. Do not modify
On Error Resume Next   'Wizard generated. Do not modify
Dim SelSymbol As String  'Wizard generated. Do not modify
Dim BroadcastSymbol As String  'Wizard generated. Do not modify
Dim ActiveControl As Object  'Wizard generated. Do not modify
Dim Popup As BWSControlBar   'Wizard generated. Do not modify
SelSymbol = Application.WorkbookSelectedSymbol   'Wizard generated. Do not modify
BroadcastSymbol = Application.BroadcastSymbolText  'Wizard generated. Do not modify
Set ActiveControl = Application.ActiveWorkspace.ActiveControl  'Wizard generated. Do not modify
Dim vd As New BDIFVehicleData  'Wizard generated. Do not modify
Dim DefSource As String 'Wizard generated. Do not modify
DefSource = Application.DefaultSourceText 'Wizard generated. Do not modify
Dim lngsc As Long 'Wizard generated. Do not modify
'Set up BroadcastSymbol 'Wizard generated. Do not modify
If DefSource = "RIC" Then 'Wizard generated. Do not modify
  Dim SrcSymBC As String 'Wizard generated. Do not modify
  SrcSymBC = vd.GetValue("RIC", BroadcastSymbol, "FLD_ALT_SYMBOL") 'Wizard generated. Do not modify
  If SrcSymBC = "" Then 'Wizard generated. Do not modify
    SrcSymBC = BroadcastSymbol 'Wizard generated. Do not modify
  End If 'Wizard generated. Do not modify
  lngsc = InStr(SrcSymBC, "_") 'Wizard generated. Do not modify
  If lngsc <> 0 Then 'Wizard generated. Do not modify
    SrcSymBC = Mid(SrcSymBC, 1, (lngsc - 1)) 'Wizard generated. Do not modify
  End If 'Wizard generated. Do not modify
  BroadcastSymbol = SrcSymBC 'Wizard generated. Do not modify
End If 'Wizard generated. Do not modify
'Set up SelSymbol for Hot key 'Wizard generated. Do not modify
If Len(SelSymbol) <> 0 Then 'Wizard generated. Do not modify
  If vd.GetValue(DefSource, SelSymbol, "FLD_SOURCE") = "RIC" Then 'Wizard generated. Do not modify
    SelSymbol = vd.GetValue(DefSource, SelSymbol, "FLD_ALT_SYMBOL") 'Wizard generated. Do not modify
    If Len(SelSymbol) = 0 Then 'Wizard generated. Do not modify
      SelSymbol = Application.WorkbookSelectedSymbol 'Wizard generated. Do not modify
    End If 'Wizard generated. Do not modify
    lngsc = InStr(SelSymbol, "_") 'Wizard generated. Do not modify
    If lngsc <> 0 Then 'Wizard generated. Do not modify
      SelSymbol = Mid(SelSymbol, 1, (lngsc - 1)) 'Wizard generated. Do not modify
    End If 'Wizard generated. Do not modify
  End If 'Wizard generated. Do not modify
End If 'Wizard generated. Do not modify

'Set Popup = Application.ReuseOrCreatePopupWithStyle("Reuters Analytics", "Reuters.AnalyticsCtrl.1", "Analytics - Main Menu")  'Wizard generated. Do not modify ***Style***
Set Popup = Application.ReuseOrCreatePopupWithStyle("Reuters Analytics", "Reuters.AnalyticsCtrl.1", "Analytics - Main Menu")   'Wizard generated. Do not modify ***Style***



End Sub

Public Sub BlockTrades() 'Wizard generated. Do not modify
On Error Resume Next   'Wizard generated. Do not modify
Dim SelSymbol As String  'Wizard generated. Do not modify
Dim BroadcastSymbol As String  'Wizard generated. Do not modify
Dim ActiveControl As Object  'Wizard generated. Do not modify
Dim Popup As BWSControlBar   'Wizard generated. Do not modify
SelSymbol = Application.WorkbookSelectedSymbol   'Wizard generated. Do not modify
BroadcastSymbol = Application.BroadcastSymbolText  'Wizard generated. Do not modify
Set ActiveControl = Application.ActiveWorkspace.ActiveControl  'Wizard generated. Do not modify
Dim vd As New BDIFVehicleData  'Wizard generated. Do not modify
Dim DefSource As String 'Wizard generated. Do not modify
DefSource = Application.DefaultSourceText 'Wizard generated. Do not modify
Dim lngsc As Long 'Wizard generated. Do not modify
'Set up BroadcastSymbol 'Wizard generated. Do not modify
If DefSource = "RIC" Then 'Wizard generated. Do not modify
  Dim SrcSymBC As String 'Wizard generated. Do not modify
  SrcSymBC = vd.GetValue("RIC", BroadcastSymbol, "FLD_ALT_SYMBOL") 'Wizard generated. Do not modify
  If SrcSymBC = "" Then 'Wizard generated. Do not modify
    SrcSymBC = BroadcastSymbol 'Wizard generated. Do not modify
  End If 'Wizard generated. Do not modify
  lngsc = InStr(SrcSymBC, "_") 'Wizard generated. Do not modify
  If lngsc <> 0 Then 'Wizard generated. Do not modify
    SrcSymBC = Mid(SrcSymBC, 1, (lngsc - 1)) 'Wizard generated. Do not modify
  End If 'Wizard generated. Do not modify
  BroadcastSymbol = SrcSymBC 'Wizard generated. Do not modify
End If 'Wizard generated. Do not modify
'Set up SelSymbol for Hot key 'Wizard generated. Do not modify
If Len(SelSymbol) <> 0 Then 'Wizard generated. Do not modify
  If vd.GetValue(DefSource, SelSymbol, "FLD_SOURCE") = "RIC" Then 'Wizard generated. Do not modify
    SelSymbol = vd.GetValue(DefSource, SelSymbol, "FLD_ALT_SYMBOL") 'Wizard generated. Do not modify
    If Len(SelSymbol) = 0 Then 'Wizard generated. Do not modify
      SelSymbol = Application.WorkbookSelectedSymbol 'Wizard generated. Do not modify
    End If 'Wizard generated. Do not modify
    lngsc = InStr(SelSymbol, "_") 'Wizard generated. Do not modify
    If lngsc <> 0 Then 'Wizard generated. Do not modify
      SelSymbol = Mid(SelSymbol, 1, (lngsc - 1)) 'Wizard generated. Do not modify
    End If 'Wizard generated. Do not modify
  End If 'Wizard generated. Do not modify
End If 'Wizard generated. Do not modify

Set Popup = Application.ReuseOrCreatePopupWithStyle("Reuters Analytics", "Reuters.AnalyticsCtrl.1", "Analytics - Block Trades")  'Wizard generated. Do not modify ***Style***
Err.Clear 'Wizard generated. Do not modify ***Style***
Popup.Control.Input = SelSymbol 'Wizard generated. Do not modify ***Style***
If Err.Number <> 0 Then 'Wizard generated. Do not modify ***Style***
  Popup.Control.Symbol = SelSymbol 'Wizard generated. Do not modify ***Style***
End If 'Wizard generated. Do not modify ***Style***



End Sub

Public Function RGetValue(ByVal RSource As String, ByVal RSymbol As String, ByVal RFieldName As String) As String
On Error Resume Next
Dim bdvd As BDIFVehicleData
Set bdvd = New BDIFVehicleData
RGetValue = bdvd.GetValue(RSource, RSymbol, RFieldName)
Set bdvd = Nothing
End Function

Public Sub CloseAllPopUps() 'Wizard generated. Do not modify
On Error Resume Next     'Wiz
Posted by at