Excel spreadsheet 每 1 到 15 分钟通过查询更新一次财务数据，然后复制到另一个 sheet，后者在数据发生变化时整理这些数据

Question

对于我希望开始的这个项目，我真的很感激能得到一些帮助，我有一个工作sheet，它使用一个查询，该查询每 1 到 15 分钟从金融工具价格网站更新一次每 1 到 15 分钟更新一次，我希望数据自动保存到另一个 sheet，每次都在新列中整理，以便维护每次更新的记录。

我很高兴为 sheet 提供已经设置好的查询。

我试图在网上找到一些关于这个的东西，但似乎尽管存在这个请求的片段，但似乎没有所有问题的答案~!!!

提前致谢将是真正的救星！！

杰米

Answer 1

假设这是一个将结果输出到正常 Excel 范围而不是 "formatted as table" 范围的网络查询，假设查询在 "Sheet1" 和 table 被命名为 "Table1"，假设副本必须转到 Sheet2 的 A 列。将此代码粘贴到 ThisWorkbook 中：

Option Explicit

Private WithEvents moQ As QueryTable

Private Sub moQ_AfterRefresh(ByVal Success As Boolean)
    If Success Then
        moQ.Destination.CurrentRegion.Copy
        With ThisWorkbook.Worksheets("Sheet2")
            .Range("A" & .Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValuesAndNumberFormats
        End With
    End If
End Sub

Private Sub Workbook_Open()
    Dim olo As ListObject
    Set moQ = ThisWorkbook.Worksheets("Sheet1").QueryTables(1)
End Sub

Excel spreadsheet 每 1 到 15 分钟通过查询更新一次财务数据，然后复制到另一个 sheet，后者在数据发生变化时整理这些数据

Excel spreadsheet that updates financial data via a query every 1 to 15 mins then copies to another sheet which collates this data when it changes

excel

vba

excel-2007

excel-formula

excel-2010