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

Question

我有一个工作表，其中包含单元格 e2 中每 10 分钟更新一次的相对于美元的货币值(value)的实时数据，以及单元格 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