作者yutang918 (高級牛奶糖)
看板Visual_Basic
標題[VBA ] 網路下載csv檔請教
時間Wed Jan 23 18:08:14 2019
大家好
小弟想從網頁上的下載連結
下載csv檔
再將資料貼到excel上
以下是VBA程式碼:
Sub get_csv()
Workbooks("stock.xlsm").Worksheets("data").Activate
Dim myURL As String
myURL = "
https://query1.finance.yahoo.com/v7/finance/download/CGN.SI?period1=1388505600&period2=1515081600&interval=1d&events=history&crumb=wdEbtptikGY"
Dim HttpReq As Object
Set HttpReq = CreateObject("MSXML2.XMLHTTP.3.0")
HttpReq.Open "GET", myURL, False
HttpReq.send
Range("a1") = HttpReq.responseText
End Sub
但在執行後
A1儲存格會出現以下訊息:
{
"finance": {
"error": {
"code": "Unauthorized",
"description": "Invalid cookie"
}
}
}
手動去瀏覽器輸入以上網址可以成功下載資料
但用巨集執就會失敗QQ
想請問這個情形有辦法解決嗎?
感謝各位高手!!
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 137.132.183.1
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Visual_Basic/M.1548238097.A.3E5.html
※ 編輯: yutang918 (137.132.183.1), 01/23/2019 18:09:42