J
jason
i am trying to get gethistoricaldata2 to function as a free-standing
sub to get a better understanding of it.
i cannot seem to get it to work. my code is below and any pointers
would be a huge help
Dim BlpControl As BBData
public Sub A()
Dim nRow As Integer
Dim nColumn As Integer
Dim vtSecurities As Variant
Dim vtfields As Variant
Dim dtStart As Date
Dim dtEnd As Date
Dim BbgTick As BLP_DATA_CTRLLib.BlpData
Dim vtseclist
Dim dtStartDate
Dim dtEndDate
vtfields = "Price"
vtseclist = "CCC US EQUITY"
dtStartDate = "8/10/2009"
dtEndDate = "8/10/2009"
BbgTick.SubscriptionMode = BySecurity
BbgTick.AutoRelease = False
If BlpControl Is Nothing Then Set BlpControl = New BBData
BbgTick.GetHistoricalData2 vtseclist, nCookie, vtfields,
dtStartDate, "USD", dtEndDate, 0
End Sub
sub to get a better understanding of it.
i cannot seem to get it to work. my code is below and any pointers
would be a huge help
Dim BlpControl As BBData
public Sub A()
Dim nRow As Integer
Dim nColumn As Integer
Dim vtSecurities As Variant
Dim vtfields As Variant
Dim dtStart As Date
Dim dtEnd As Date
Dim BbgTick As BLP_DATA_CTRLLib.BlpData
Dim vtseclist
Dim dtStartDate
Dim dtEndDate
vtfields = "Price"
vtseclist = "CCC US EQUITY"
dtStartDate = "8/10/2009"
dtEndDate = "8/10/2009"
BbgTick.SubscriptionMode = BySecurity
BbgTick.AutoRelease = False
If BlpControl Is Nothing Then Set BlpControl = New BBData
BbgTick.GetHistoricalData2 vtseclist, nCookie, vtfields,
dtStartDate, "USD", dtEndDate, 0
End Sub