使用Excel中的数据连接动态填充单元格

Question

我目前正在尝试处理Excel中的数据连接，并且我想在数据周期性更改时动态填充某些单元格。

更确切地说，我有一个Excel工作表，每8分钟通过一个互联网数据连接 - 股票市场更新，每3分钟更新一次。每隔3分钟一个单元格的内容（十进制数），例如B1被更新。

我想知道是否有可能在我的工作表的一列中，在整个8小时内“记录”每个数字B1。 8 * 60/3 = 160，因此我想动态填充单元格B1内容的160个单元格。

如果有可能，那么我想从这160个单元中取出最大值（使用MAX（，）函数），在另一列中记录该数字并绘制B1值演化图超过8小时的时间窗口。我们的想法是每天都这样做，以便在一周或一个月后，我可以查看工作表并评估市场趋势。

以下的答案和评论，我试图写一些VBA子程序，但我努力让他们实际工作。这里是我的代码：

Dim RunTime As Date 
Dim j As Integer 

Sub CopyCell() 
Sheets("test").Cells(j, 3) = Sheets("test").Range("B1").Value 
j = j + 1 
'If Time >= TimeSerial(20, 0, 0) Then' 
    Application.OnTime RunTime, "CopyCell()", , False 
End If 
End Sub 

Sub Main() 
MsgBox "Starting Macro" 
j = 0 
RunTime = Now + TimeValue("00:03:00") 
Application.OnTime RunTime, "CopyCell()" 
End Sub 

对于与此同时，我触发的Main（）子自己，希望让它停在20：0：0（晚上8点）。当我触发Main（）子程序时，我收到消息“CopyCell（）在本工作簿中不可用”，但我确实已将上述代码复制到VBA编辑器的ThisWorkbook选项卡中，并且已启用所有宏。请注意，如果我单独运行CopyCell（）子，则将单元格B1的内容复制到单元格C1。

你能帮我弄清楚我的代码有什么问题吗？

感谢， -David

Answer 1

没有你的代码是很难给你如何做到这一点正是代码，但在基本的术语，你可以做到这一点很容易地。无论何时刷新刷新，只需要VBA将数据写入单独的工作表或数据库（最好是像Access这样的数据库，因为它可以和Excel一起工作，而且不需要保存Excel工作簿）