Bloomberg download

[drinese18]

Does anyone know the proper syntax to download from Bloomberg into Excel
using the Active X function. I have no experience programming with Bloomberg
so I am at a lost in this area. I just want to download the EONIA value from
Bloomberg into a column in Excel, so if anyone can help me with this it will
be appreciated.

 

[Joel]

Range("A6").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.bloomberg.com/apps/quote?ticker=EONIAIC:FP",
Destination:= _
Range("A6"))
.Name = "FP_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "10"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

 

[drinese18]

Ok it does download something but not the Eonia values, but thats not biggie
I already corrected that. The thing is I didn't want it to download through
the Web query procedure because that downloads a snapshot of w/e thats in the
table, including the table names and so on, jus basically wanted it to
download one value which is why I was saying I want to do it
programmatically, if you can explain a way to do this that would be great or
anyone else, thanks

 

[Joel]

You can use a refresh by settting the refreshperiod

Set objPC = Worksheets("Sheet1").PivotTables("PivotTable3").PivotCache
objPC.RefreshPeriod = 15

or just perform a refresh

Worksheets(1).PivotTables(1).PivotCache.Refresh