摘要:我需要使用 DDE 在 Excel 中存储/分析进入 1 个单元格的实时时间序列。
问题:由于它是 1 个不断变化的单元格,我不知道如何获取更新值的每个实例,以便我可以在其他公式、绘图等中使用它。所以它在 Excel 电子表格中的 1 个单元格每改变一次毫秒,我想获得实际的时间序列(t、t-1、t-2、t-3 等)。我不知道如何存储为时间序列。
详细信息:我正在使用 MetaTrader 4 (MT4) 进行一些分析。导入实时价格的代码如下所示:
=MT4|BID!EURUSD
=MT4|ASK!EURUSD
=MT4|HIGH!EURUSD
=MT4|LOW!EURUSD
=MT4|TIME!EURUSD
我希望能够在各种公式中使用时间序列来实时计算和更新绘图。如果我可以将实时数据发送到 MATLAB,那也会有帮助。但这一切都必须是实时分析中的实时数据。
如果你对 VBA 解决方案持开放态度,则可以使用该Workbook.SetLinkOnData
方法在传入数据更改时调用 Sub。
我建议只响应TIME
主题的变化,并一次性复制所有相关数据
基于此数据布局
在 Open 事件上设置监视器(将其放在ThisWorkbook
模块中)
Sub Workbook_Open()
Dim wb As Workbook
Dim Links As Variant
Dim i As Long
Set wb = ThisWorkbook
Links = wb.LinkSources(xlOLELinks)
For i = LBound(Links) To UBound(Links)
If Left$(Links(i), 8) = "MT4|TIME" Then
wb.SetLinkOnData Links(i), "MT4_OnUpdate"
End If
Next
End Sub
并在普通模块中编码你的数据处理程序
Sub MT4_OnUpdate()
' DDE Updated TIME, copy data
Dim ws As Worksheet
Dim Source As Range
Dim Dest As Range
Set ws = Worksheets("Your DDE Data Sheet")
With ws
Set Source = ws.Range("A2:E2")
Set Dest = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(1, Source.Columns.Count)
End With
Dest.Value = Source.Value
End Sub
这会将单元格复制A2:E2
到历史数据列表的底部,每次A2
(来自 MT4 的时间戳)更改。
注意:你在 OP 中说要每毫秒更新一次。这不可能发生,因为MT4|TIME
返回的是一个分辨率为 1 秒的 DateTime 序列。即使它可能发生,Excel 也无法处理太多的数据
这真的很有帮助。我有一段时间没有使用 VBA,但我会试一试,看看我是怎么做的。真的很感谢详细的回复。
您愿意为此付费吗?我无法正常工作。
我认为你现在应该坚持 SO。发布另一个问题,一定要遵循指导方针,特别是发布您尝试过的代码并解释它如何不做您想要的。包括一个显示输入和输出样本数据的样本数据集。如果可以,我会帮忙。