Question

我是VBA的新手，我在这个网站上经历过这类错误的所有例子。不幸的是我似乎无法调试它（虽然代码工作，它会抛出这个错误框）。我只是想在工作表中复制一些公式，用时间滞后计算它们然后硬编码。代码可能不是最有效的，但我只需要在我改进/调整它之前消除此错误。我提前感谢你的帮助。

 Sub Test1()
     Dim xlCalc As XlCalculation
     'early bound - reference to Bloomberg
     'save the calculation setting and then set to automatic
     xlCalc = Application.Calculation
     Application.Calculation = xlCalculationAutomatic
     ActiveSheet.Range("E9:M9").Formula = "=BDP(E8,$E$6)"
     BloombergUI.RefreshAllStaticData
     Application.OnTime Now + TimeValue("00:00:03"), "HardCode"
End Sub

Sub HardCode()
     Dim xlCalc As XlCalculation
     ActiveSheet.Range("E9:M9").Value = ActiveSheet.Range("E9:M9").Value
     Application.Calculation = xlCalc
End Sub

运行时错误424 - 对象必需

0 个答案: