請問抓yahoo網頁的股價速度問題

因為盤中有立即知道股價的需求
所以抓yahoo的



這是我目前的程式碼

為什麼只是抓一個yahoo的股價
速度要花30幾秒...求解





Private Sub CommandButton1_Click()


Rows("6:1052").Select
Selection.Delete Shift:=xlUp
Dim tm
tm = Timer

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://tw.stock.yahoo.com/q/q?s=2317", Destination:=Range("$A$8"))
.Name = "q?s=2317"
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingAll
.WebTables = "7"
.Refresh BackgroundQuery:=False

End With
MsgBox "讀取完成，費時：" & Timer - tm & "秒"
End Sub