返回列表下一主題上一主題發帖

[發問] vba下載歷年股票資料，如何關掉IE"檢視下載"提醒視窗

mattlee1111

小學生 Rank: 1

帖子: 6
主題: 2
精華: 0
積分: 8
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 10
性別: 男
註冊時間: 2017-5-20
最後登錄: 2017-10-31

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2017-5-20 10:03 | 只看該作者

[發問] vba下載歷年股票資料，如何關掉IE"檢視下載"提醒視窗

本帖最後由 mattlee1111 於 2017-5-20 10:06 編輯

寫了一個vba想下載yahoo finance歷年股票資料，但IE每次都會跳出"檢視下載"

網上有人說設定Application.DisplayAlerts = False就會關掉提醒視窗，但試了很久還是關不掉，請教高手們要如何修改?

1.JPG (147.42 KB)

mattlee1111

小學生 Rank: 1

帖子: 6
主題: 2
精華: 0
積分: 8
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 10
性別: 男
註冊時間: 2017-5-20
最後登錄: 2017-10-31

2^#

發表於 2017-5-20 10:35 | 只看該作者

補充程式碼

程式碼.zip (393 Bytes)

TOP

go2hk

小學生 Rank: 1

帖子: 18
主題: 5
精華: 0
積分: 28
點名: 0
作業系統: WIN8
軟體版本: office2010
閱讀權限: 10
性別: 男
註冊時間: 2012-3-27
最後登錄: 2019-10-14

3^#

發表於 2017-5-20 19:09 | 只看該作者

幾天前 yahoo finance 的 historical data 下載網址與檔案格式有異動
請參考如下討論

(不好意思權限不夠所以無法貼網址.請google如下三個主題.各有相關討論)

1.yahoo-finance-url-not-working

2.1005785-yahoo-finance-api-stock-quotes-changed

3.yahoo-historical-data-did-they-change-the-url-recently

可能是這個關係
所以yahoo finance網頁當中
如果按Download Data按鈕可以下載股價指數的csv
而將擷取的網址(query1開頭)直接貼到網址列中也可以成功下載股價指數的csv檔
但是將上述擷取下來的網址寫在vba程式碼中
卻會在執行時顯示無法讀取該網頁

請問該如何處理
才能像過去一樣用vba下載csv

是cookie的問題嗎(因為有人提到是crumb的關係)
謝謝

TOP

mattlee1111

小學生 Rank: 1

帖子: 6
主題: 2
精華: 0
積分: 8
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 10
性別: 男
註冊時間: 2017-5-20
最後登錄: 2017-10-31

4^#

發表於 2017-5-23 15:41 | 只看該作者

回復 3# go2hk

後來在網上找到答案，程式碼如下請參考

程式碼2.zip (614 Bytes)
Sub testname()
stock_name = "hnp"
downprice (stock_name)
End Sub
Function downprice(stock_name)
'下載檔案
Filename = Application.ActiveWorkbook.Name
Dim myURL As String
myURL = "yahoo finance網址, 權限不足請參考程式碼"

Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False
WinHttpReq.send

myURL = WinHttpReq.responseBody
If WinHttpReq.Status = 200 Then
      Set oStream = CreateObject("ADODB.Stream")
      oStream.Open
      oStream.Type = 1
      oStream.Write WinHttpReq.responseBody
      oStream.SaveToFile ("D:\" & stock_name & ".csv")
      oStream.Close
End If

End Function

TOP

mattlee1111