如何处理在Excel中同时刷新多个外部数据源？

所以我有一个有四个外部数据源的Excel表，数据是来自我的经纪商网站的实时股票报价和其他信息。

问题是我的经纪商网站只允许每个观察名单增加最多50只股票，但是我有超过150只股票来跟踪，所以我做了4个这样的观察名单，但问题是现在需要更多的时间，当数据每分钟刷新（我也将这些数据存储在Excel中），处理不够stream畅。

修改公式或进行任何编辑也是非常麻烦的，因为我必须等到刷新结束。

有没有办法让excel中的所有四个观察列表同时刷新，以便处理更快？

Answer 1

Excel真的不是分析超过150种股票的正确工具。 但是，如果您确实想要快速获得大量价格，请运行下面的脚本。

注意，第一个股票从第七行开始。

Sub GetData() Application.DisplayAlerts = False Dim yahoourl As String Dim QuerySheet As Worksheet Dim DataSheet As Worksheet Dim qurl As String Dim i As Integer Set DataSheet = ActiveSheet i = 7 yahoourl = "http://quote.yahoo.com/d/quotes.csv?s=" + Cells(i, 1) i = i + 1 While Cells(i, 1) <> "" yahoourl = yahoourl + "+" + Cells(i, 1) i = i + 1 Wend yahoourl = yahoourl + "&f=" + "l1" Columns("C:C").Select Range("C2").Activate On Error Resume Next Selection.QueryTable.Delete Selection.ClearContents QueryQuote: With ActiveSheet.QueryTables.Add(Connection:="URL;" & yahoourl, Destination:=DataSheet.Range("C7")) .BackgroundQuery = True .TablesOnlyFromHTML = False .Refresh BackgroundQuery:=False .SaveData = True End With Application.Calculation = xlCalculationAutomatic Application.DisplayAlerts = True Columns("C:C").ColumnWidth = 28# Cells(2, 3).Select Application.DisplayAlerts = True End Sub