Excel电子表格，每1到15分钟通过查询更新一次财务数据，然后复制到另一张表格中，当数据发生变化时，该表格将整理这些数据

我非常感谢您对我希望启动的项目的帮助，我有一个工作表，它使用一个查询，每1到15分钟从金融工具价格网站更新一次。一旦这个查询每1到15分钟更新一次，我希望数据自动保存到另一个工作表中，每次都在一个新的列中进行整理，以便维护每次更新的记录

我很乐意提供已经设置好的查询表

我试着在网上找到一些关于这个问题的信息，但是看起来虽然这个请求中有一些是存在的，但是这个问题没有答案~

提前感谢将是一个真正的救命恩人

---

Jamie

假设这是一个将其结果输出到正常Excel范围而不是“格式化为表”的范围的Web查询，假设查询位于“Sheet1”上且表名为“Table1”，假设副本必须转到Sheet2的a列。 将此代码粘贴到此工作簿中：

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

---

你找不到一个单一的资源来满足你的所有需求，你必须把不同的部分组合在一起。所以，你有一个查询，它会按设定的时间间隔更新，你想把数据复制到新列的另一张工作表中吗？我不介意看一下你的工作表，你能给我一个链接吗？如果方便的话，我很乐意发送一份电子表格的副本？谢谢上面的内容，正如我所提到的，查询更新是每15分钟更新一次，正如你所查询的，这是一个表格，然后我希望每个更新都使用时间戳保存，因此每个查询更新都将是第+1列。我已经提到了上述原因，让我使用你给我的，我会让你知道它是否有效！！提前谢谢！！我真的不具备你的专业水平，能把电子表格寄给你吗在我的个人资料中查找我的网站url。我的电子邮件地址列在我的网页底部。很好，现在就可以了，谢谢