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

[發問] 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

mattlee1111

小學生 Rank: 1

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

3^#

發表於 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