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

This request is too vague to answer. From the code provided I can't tell
where or how the source data was input into the orignal macro. the data
could of come from one of the following

1) Web Query
2) A text file on the PC
3) An internet explorer application

I went back and look at your previous postings and nothing relates to this
request. Post the original macro and I may be able to help.



"jason" wrote:

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