- 帖子
- 73
- 主題
- 11
- 精華
- 0
- 積分
- 100
- 點名
- 0
- 作業系統
- Win 8
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2013-5-11
- 最後登錄
- 2018-7-25
 
|
回復 5# GBKEE
大大請問一下，我用下面這個程式抓出的資料跟原始網站的資料比較下，下面有一段沒有抓不到，是不是有參數沒設好? 要wait嗎?因為下面有顯示Loading more data...但是我不知道怎樣讓他跑完
原始網站: https://finance.yahoo.com/quote/AAPL/history?period1=1473638400&period2=1505174400&interval=1d&filter=history&frequency=1d
Sub QueryTable()
Const xlURL As String = "https://finance.yahoo.com/quote/AAPL/history?period1=1473638400&period2=1505174400&interval=1d&filter=history&frequency=1d"
With ActiveSheet.QueryTables.Add("URL;" & xlURL, Destination:=Range("$A$1"))
.WebFormatting = xlWebFormattingNone
.TablesOnlyFromHTML = False
.RefreshStyle = xlOverwriteCells
.SaveData = True
.Refresh 0
End With
End Sub |
|
發表於 2017-9-12 10:51
| 
