如何每10分钟发送一次数据到Excel中的单独工作表？

Question

我有一个工作表,其中包含相对于美元的货币值的实时数据,该数据在单元格e2中每10分钟更新一次,而单元格d2中的实时时钟更新.我想在另一个工作表中每10分钟记录这两个值,因此我记录了该值的每日波动率.做这个的最好方式是什么？

感谢您的帮助.

Answer 1

这会将Sheet1上D2和E2的值复制到Sheet2上的D2和E2,每次复制行时在Sheet2上添加一个新行.

它将每10分钟自动运行一次.

Sub CopyValues()
Dim RowNo As Long
RowNo = Sheets(2).Cells(Rows.Count, 4).End(xlUp).Row + 1

    Sheets(2).Cells(RowNo, 4) = Sheets(1).Cells(2, 4)
    Sheets(2).Cells(RowNo, 5) = Sheets(1).Cells(2, 5)

Application.OnTime Now + TimeValue("00:10:00"), "CopyValues"

End Sub