宏中的Excel Bloomberg API回调

1 回答

• 0

  你可以尝试这样的事情：

  Sub Main()
  
  'Write API Formulas
  Range("B1:C10000").Formula = "=bdp(""MSFT Equity"",""SECURITY_NAME"")"
  
  'Check to see if it filled
  Call Check_API
  
  End Sub
  
  
  Sub Check_API()
  
  If Application.WorksheetFunction.CountIfs(Range("B1:C10000"), "#N/A Requesting Data...") > 0 Then
      'Check every 3 seconds
      Application.OnTime Now + TimeValue("00:00:03"), "Check_API"
  Else
      'Do what you want after api has loaded
      MsgBox "Done"
  End If
  
  End Sub
  

  回复于 2024-04-30T00:13:26+08:00