Question : Fonction d'Excel VBA Bloomberg

Im essayant d'écrire un macro simple de sorte que le code puisse coller la formule du bloomberg BDS dans la feuille de travail. Tout fonctionne très bien mais quand je m'ouvre les xls dans l'adjonction de bloomberg excellent, je dois presser le F2 et entrer en chaque cellule avant la formule de BDS activée pour des données de téléchargement. Est-ce que n'importe qui sait résoudre ce problème ? le

du

Sub Macro1 () ActiveSheet.Name = « Result1 " le
pour I = 1 à 51

couvre (« force »). Chaîne de Select
(« D » et 13 + i). Feuilles de Select
Selection.Copy
(« Result1 »). Chaîne de Select
(« A1 »). Cellules de Select
(1, 5 * (I - 1) + pâte de
ActiveSheet.Paste
Selection.PasteSpecial de 1).Select
: =xlPasteValues, opération : =xlNone, _
de SkipBlanks : Le =False, transposent : gamme du
du
du =False
(« A2 »). Cellules de Select
(2, 5 * (I - 1) + 1).Select
ActiveCell.FormulaR1C1 = gamme de

de « OPT_CHAIN " (« A3 »). Cellules de Select
(3, 5 * (I - 1) + 1).Select
ActiveCell.FormulaR1C1 = gamme de
de

de
Sub Macro2 de Sub
de fin d'i
de
de
de « =BDS (R1C, R2C) « prochaine () (« B2 »). Select
ActiveCell.FormulaR1C1 = gamme du
du
de « PX_MID " (« B3 »). Select
ActiveCell.FormulaR1C1 = du « gamme du
=BDP (R [0] C [- 1], R2C) « (« B3 »). Chaîne de Select
Selection.Copy
(« B4 : B2002 »). Chaîne de Select
ActiveSheet.Paste
(« C2 »). Select
ActiveCell.FormulaR1C1 = gamme du
de « VOLUME " (« C3 »). Select
ActiveCell.FormulaR1C1 = du « gamme du
=BDP (R [0] C [- 2], R2C) « (« C3 »). Destination de Select
Selection.AutoFill : =Range (« C3 : Gamme du
de C2002 ») (« D2 »). Select
ActiveCell.FormulaR1C1 = gamme du
de « OPT_DELTA " (« D3 »). Select
ActiveCell.FormulaR1C1 = du « gamme du
=BDP (R [0] C [- 3], R2C) « (« D3 »). Destination de Select
Selection.AutoFill : =Range (« D3 : Gamme du
de D2002 ») (« E2 »). Select
ActiveCell.FormulaR1C1 = gamme du
de « OPEN_INT " (« E3 »). Select
ActiveCell.FormulaR1C1 = du « gamme du
=BDP (R [0] C [- 4], R2C) « (« E3 »). Destination de Select
Selection.AutoFill : =Range (« E3 : Gamme du
d'E2002 ») (« B2 : E2 »). Chaîne de Select
(choix, Selection.End (xlDown)). Select
Application.CutCopyMode = False
Selection.Copy
pour j = 1 aux cellules de 49
(2, 5 * j + prochaine extrémité Sub de j
de 2).Select
ActiveSheet.Paste
class= de

Réponse : Fonction d'Excel VBA Bloomberg

y338,

Le code ci-dessous est une édition raccourcie de ce que vous avez fourni. Il n'y a aucun besoin d'employer « choisi » dans VBA, au lieu de cela assigne simplement des valeurs directement à la destination required.

Je pense que la raison vous sont ont des problèmes est que vous n'avez pas une référence au Bloomberg addition en votre code de VBA. Vous aurez besoin de n'importe quoi de pareil dans votre macro de VBA :

Application.AddIns.Add « add-in_filename ici »

Ou s'assurer plus simplement que vous avez dans le menu principal d'Excel, allé aux outils/Ajouter-Institut central des statistiques et vérifié/a fait tic tac le « Bloomberg » addition.

Patrick

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 : 24 : 25 : 26 : 27 : 28 : 29 : 30 : 31 : 32 : 33 : 34 : 35 : 36 : 37 : 38 : 39 : 40 : 41 : 42 : 43 :

Macro1 secondaires () Obscurcir I en tant que longtemps Pour I = 1 à 51 Feuilles (« force »). Cellules (I + 13, « D »). Copie Avec les feuilles (« Result1 ») . Cellules (1, 5 * (I - 1) + 1).PasteSpecial _ Pâte : =xlPasteValues, opération : =xlNone, _ SkipBlanks : Le =False, transposent : =False . Cellules (2, 5 * (I - 1) + 1) = « OPT_CHAIN » . Cellules (3, 5 * (I - 1) + 1).FormulaR1C1 = « =BDS (R1C, R2C) » Extrémité avec Après i Sous-marin d'extrémité Macro2 secondaire () Faible sourcerange comme gamme Faible fillrange comme gamme Faible j en tant que longtemps Avec les feuilles (« Result1 ») 'corriger le nom de feuille pour adapter . Gamme (« B2 ») = « PX_MID » . Gamme (« B3 ») .FormulaR1C1 = « =BDP (R [0] C [- 1], R2C) » . Gamme (« B3 »). Copie. Gamme (« B4 : B2002 ») . Gamme (« C2 ») = « VOLUME » . Gamme (« C3 ») .FormulaR1C1 = « =BDP (R [0] C [- 2], R2C) » . Gamme (« C3 »). Copie. Gamme (« C3 : C2002 ») . Gamme (« D2 ») = « OPT_DELTA » . Gamme (« D3 ») .FormulaR1C1 = « =BDP (R [0] C [- 3], R2C) » . Gamme (« D3 »). Copie. Gamme (« D3 : D2002 ») . Gamme (« E2 ») = « OPEN_INT » . Gamme (« E3 ») .FormulaR1C1 = « =BDP (R [0] C [- 4], R2C) » . Gamme (« E3 »). Copie. Gamme (« E3 : E2002 ») . Gamme (« B2 : E2 »). Choisi . Gamme (choix, Selection.End (xlDown)). Choisi Application.CutCopyMode = faux Selection.Copy Pour j = 1 à 49 Cellules (2, 5 * j + 2).Select ActiveSheet.Paste Prochain j Extrémité avec Sous-marin d'extrémité