大家好
小弟想從網頁上的下載連結
下載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
想請問這個情形有辦法解決嗎?
感謝各位高手!!