Данные Bloomberg не заполняются до завершения работы vba - PullRequest
Новая
       11

Данные Bloomberg не заполняются до завершения работы vba

0 голосов
/ 21 февраля 2019

Я знаю, что подобные вопросы задавались в прошлом, но просматривая эти сообщения, я не смог найти решение следующей проблемы.

У меня есть 2 подпрограммы, которые используют формулы API Bloomberg,Во втором (Setup_2) переменная LastRow1 зависит от того, правильно ли заполнена программа Setup_1.

Используя checkStatus_1 и checkStatus_2, я могу запустить каждую из 2 подпрограмм настройки независимо, но когда я пытаюсь создать отдельную подпрограмму, вызывающуюони не работают, так как данных, от которых зависит LastRow1, там нет.

Вот соответствующий код: 

Sub Setup_1()
    Dim ws1 As Worksheet
    Set ws1 = Worksheets("Returns")
    ws1.Cells(2, 1).Formula = "=BDS(Control!B4,""INDX_MWEIGHT_HIST"",""END_DATE_OVERRIDE"",TEXT($A$1,""YYYYMMDD""))"
    ws1.Cells(1, 4).Formula = "=BDH(A2&"" Equity"",""DAY_TO_DAY_TOT_RETURN_GROSS_DVDS"",$B$1,$A$1,""dir=h"")"
    ws1.Cells(3, 4).Formula = "=BDH(A3&"" Equity"",""DAY_TO_DAY_TOT_RETURN_GROSS_DVDS"",$B$1,$A$1,""dir=h"",""dts=h"")"
    checkStatus_1
End Sub

Sub Setup_2()
    Dim ws1 As Worksheet
    Set ws1 = Worksheets("Returns")
    Dim LastRow1 As Long
    LastRow1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row
    ws1.Cells(3, 4).Formula = "=BDH(A3&"" Equity"",""DAY_TO_DAY_TOT_RETURN_GROSS_DVDS"",$B$1,$A$1,""dir=h"",""dts=h"")"
    ws1.Cells(3, 4).AutoFill Destination:=ws1.Range(ws1.Cells(3, 4), ws1.Cells(LastRow1, 4))
    checkStatus_2
End Sub

Sub Setup_3()
    Dim ws1 As Worksheet
    Set ws1 = Worksheets("Returns")
    Dim LastRow1 As Long
    Dim LastCol1 As Long
    Dim LCol As String
    LastRow1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row
    LastCol1 = ws1.Cells(1, Columns.Count).End(xlToLeft).Column
    LCol = Split(Cells(, LastCol1).Address, "$")(1)
    ws1.Cells(2, 3).Formula = "=(STDEV.S(D2:" & LCol & "2)*SQRT(252))/100"
    ws1.Cells(2, 3).AutoFill Destination:=ws1.Range(ws1.Cells(2, 3), ws1.Cells(LastRow1, 3))
End Sub

Sub checkStatus_1()
    Dim ws1 As Worksheet
    Dim rng As Range
    Dim c As Range
    Set ws1 = Worksheets("Returns")
    Set rng = Application.Union(ws1.Cells(2, 1), ws1.Cells(1, 4), ws1.Cells(3, 4))
    For Each c In rng
        If "#N/A Requesting Data..." = c Or "#N/A Invalid Securiity" = c Then
            Application.OnTime (Now + TimeValue("00:00:02")), "checkStatus_1"
            Exit Sub
        End If
    Next c    
End Sub

Sub checkStatus_2()
    Dim ws1 As Worksheet
    Dim rng As Range
    Dim c As Range
    Dim LastRow1 As Long
    Set ws1 = Worksheets("Returns")
    LastRow1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row
    Set rng = ws1.Range(ws1.Cells(3, 4), ws1.Cells(LastRow1, 4))
    For Each c In rng
        If "#N/A Requesting Data..." = c Then
            Application.OnTime (Now + TimeValue("00:00:02")), "checkStatus_2"
            Exit Sub
        End If
    Next c    
End Sub
...