Question

问题是-运行VBA宏时，订阅的库存值不会更新。

目的是使VBA定期运行直到满足特定交易条件。然后，随后的Excel文件（Ranger）将通过IB / TWS执行交易

这要求在VBA处于等待模式时更新库存值。或者，它要求“复制/粘贴”将在特定的“已更新”位置更新库存值。或者，Calcualte将……

数据通过MarketXLS.com获得。我对来自TDA和TWS的数据馈送也遇到了同样的问题。

Excel 2016小型企业版64位
     Windows 10专业版64位Vs。 1803
     电脑：i7-6950X，128GB / 3200 RAM，三星M.2 960 Pro 500GB SSD

以下内容用于检查值是否正在更新。（他们没有更新）。

Range("D50:AN59").Select
Selection.Copy
Range("D60").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Calculate
Calculate
Calculate
Range("D60:AN69").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
Application.Wait (Now + TimeValue("00:00:20"))
Range("D50:AN59").Select
Selection.Copy
Range("D60").Select
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Calculate
Calculate
Calculate
Range("D60:AN69").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

运行上述命令时，值不会更新。理想情况下，不同复制集中的值将不同。

当VBA未运行时，第50至59行中的数据将连续更新。第60行及以下行中的数据集来自第50行至第59行中值的“定时”复制粘贴

    Ford (F)    Security->> AAPL    F
    Formula NOW()  V        
QM_Stream_Last(F$10)    9.535   12:08:18 PM 209.43  9.535
Last(F$10)  9.575   12:08:18 PM 209.34  9.575
rt_Last(F$10)   9.535   12:08:18 PM 209.43  9.535
Volume(F10) 383492  12:08:18 PM 550755  383492
rt_Volume(F10)  15631750    12:08:18 PM 10626521    15631750
QM_Stream_AccumulatedVolume(F10)    15634708    12:08:19 PM 10695630    15634708

如何在运行VBA的情况下更新API库存值

0 个答案: