在Excel VBA中,每个工作簿都有一个独立的应用程序对象。可以使用这个对象的属性来设置不同的Application.RTD.ThrottleInterval。
以下是一个示例代码,演示了如何为不同的工作簿设置不同的Application.RTD.ThrottleInterval。
Sub SetThrottleInterval()
Dim wb1 As Workbook
Dim wb2 As Workbook
Set wb1 = ThisWorkbook ' 当前工作簿
Set wb2 = Workbooks("Book2.xlsx") ' 另一个工作簿
' 设置不同的 Application.RTD.ThrottleInterval
wb1.Application.RTD.ThrottleInterval = 200 ' 毫秒
wb2.Application.RTD.ThrottleInterval = 500 ' 毫秒
End Sub
在上面的示例中,我们为当前工作簿(ThisWorkbook)和另一个名为"Book2.xlsx"的工作簿设置了不同的Application.RTD.ThrottleInterval。可以根据需要修改这些值。
请注意,Application.RTD.ThrottleInterval的默认值为200毫秒。这个属性控制了Excel在更新RTD服务器数据之前等待的时间,较小的值可以提高实时数据更新的速度,但可能会增加CPU使用率。较大的值可以减少CPU使用率,但可能会导致数据更新的延迟。因此,根据你的需求和计算机性能,可以选择合适的值。