如何从 Excel 工作簿中的 DDE 提要创建图表答案

【问题标题】：How do I create a graph from a DDE feed in excel workbook如何从 Excel 工作簿中的 DDE 提要创建图表
【发布时间】：2018-01-15 13:39:58
【问题描述】：

我一直在尝试从 API 创建图表。我在 Excel 工作表中设置了与 API 的连接，它显示了交易所中 BTCUSD 的移动价格。该值会按照 excel 数据选项卡中的连接属性以设定的时间间隔更改。我用各种方法尝试了很多次。

Worksheet_Change(ByVal Target As Range) 这不起作用，因为当 API 数据单元格中的值更改不了解原因时，Worksheet_Change 不会触发。
一个链接到数据单元格的 ActiveX 文本框，这会触发 textbox_change() 事件，但是我遇到了另一个问题，错误 1004 无法获取范围类的 CurrentRegion 属性。您的帮助将不胜感激。这是代码。
```
Public Sub TextBox1_Change()
With ThisWorkbook.Names("DDEList").RefersToRange.CurrentRegion
With .Offset(.Rows.Count, 0).Resize(1, 1)
        .Value = Now
     .Offset(0, 1).Value = TextBox1.Value
End With
End With

End Sub
```

工作簿表中有一个名为 DDEList 的命名单元格，ActiveX 文本框和单元格 A1 引用了 API 创建的表数据。我知道如何从单元格中的数据创建图表，单元格数据的创建是问题所在。

【问题讨论】：

您是否尝试过使用事件 Workbook.SheetPivotTableUpdate？
谢谢 Foxfire 和 Burns and Burns the Sheet Pivot Table Update 成功了。

标签： vba excel

【解决方案1】：

好的，Workbook.SheetPivotTableUpdate 成功了。

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim X As Double
Dim Y As Double

X = Sheets("DDE").Range("C2").Value
Y = Sheets("DDE").Range("A16").Value
Z = Y - X
P = Z / X

  With ThisWorkbook.Names("DDEList").RefersToRange.CurrentRegion
    With .Offset(.Rows.Count, 0).Resize(1, 1)
        .Value = Now
        .Offset(0, 1).Value = Y
        .Offset(0, 2).Value = X
        .Offset(0, 3).Value = Z
        .Offset(0, 4).Value = P
    End With
  End With

End Sub

我现在在我的工作表上有一张图表，它根据不同交易所的百分比差异列表告诉我买卖比特币的最佳时间和交易所。

【讨论】：