請問如何以VBA擷取網站上的資料？ - Excel程式區

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 »

發表於 2017-9-12 10:51 | 顯示全部帖子

回復 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

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2017-9-12 11:08 | 顯示全部帖子

回復 5# GBKEE

GBKEE大大，我原本想用這幾天問你的，抓Crumb位置來下載csv檔案，但沒有成功，所以想換下面那個網址試試，但抓出的資料不完整，如果可以抓取完整就太好了
https://finance.yahoo.com/quote/AAPL/history?period1=1473638400&period2=1505174400&interval=1d&filter=history&frequency=1d
紅框下面是要抓的資料:

javascript:;

Data 1.PNG (52.44 KB)

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2017-9-13 20:02 | 顯示全部帖子

回復 11# oobird

來問一下 oobird 大大，
oobird大大問你喔，我用下面這個程式抓出的100筆資料，你知道怎樣讓他抓完整嗎？

原始網站: 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

帖子: 73
主題: 11
精華: 0
積分: 100
點名: 0
作業系統: Win 8
軟體版本: 2007
閱讀權限: 20
性別: 女
註冊時間: 2013-5-11
最後登錄: 2018-7-25

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2017-9-14 16:27 | 顯示全部帖子

回復 22# Scott090

原始網站: https://finance.yahoo.com/quote/AAPL/history?period1=1473638400&period2=1505174400&interval=1d&filter=history&frequency=1d
會自動會轉成，規則不清楚，目前用VBA抓只能抓到100筆