(不定期更新)使用VBA解決 excel web 查詢無法匯入、匯入太慢的股市資料

g80860 wrote:
我要可以寫讀取一年的...歷史股價的VBA
我卡在時間如何選設一年時間[如下圖],謝謝
https://invest.cnyes.com/twstock/TWS/9937/history

'一、get只需一次，不用取key
'二、url 結束日期在前(日期要多加一天)，開始在後，UnixTime計算同274樓
'三、decodejson物件名稱(c、h、l、o、t、v、vwap)，名稱請自行修改，分類寫法同274樓


(點我看大圖，這行urL是圖片，請手動輸入)


    
    Set Xmlhttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    With Xmlhttp
       .Open "GET", Url, False
       .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
       .send
        
        Set DecodeJson = Jsondata.JsonParse(.responsetext)

        

cji3cj6xu6 wrote:
但今天常用的永豐金改網址，不曉得改到哪了

momolittle wrote:
我觀看了456樓的寫法
簡單想抓取所有基金的淨值
都無法完成~~

網址如下：
https://www.sitca.org.tw/ROC/Industry/IN2106.aspx?pid=IN2213_02

'請用456樓範例修改
'debug 那幾行刪掉，變數名稱請自行修改，沒用的變數可刪可不刪
'修改5個地方，其它程式碼不變
'受益憑證代號 基金統編(d、e欄)，需另外轉成純文字格式，不然0會不見
'簡單一點的就是在數字前面加個 "'" & "00123456"


url = "https://www.sitca.org.tw/ROC/Industry/IN2106.aspx?pid=IN2213_02"

'……
'……
'……

'日期是8碼數字格式
StartDay = "20211118"

url_a = "&__VIEWSTATE=" & UrlEncode(vs) & _
            "&__VIEWSTATEGENERATOR=" & vg & _
            "&__EVENTVALIDATION=" & UrlEncode(ev) & _
            "&ctl00%24ContentPlaceHolder1%24txtQ_Date=" & StartDay & _
            "&ctl00%24ContentPlaceHolder1%24ddlQ_Comid=" & _
            "&ctl00%24ContentPlaceHolder1%24BtnQuery=%E6%9F%A5%E8%A9%A2"

'……
'……
'……

Set Table = HtmlSourcecode.all.tags("table")(3).Rows


'……
'……
'……

temparray(I, j) = IIf(j = 3 Or j = 4, "'", "") & Table(I).Cells(j).innertext

snare wrote:
不錯喔，您有看文章…(恕刪)

momolittle wrote:
不過我在另一台電腦上執行
卻發生 "安全通道支援發生錯誤"
我查了一下可能是要改用改用MSXML2.XmlHttp
嘗試修改...
Set Xmlhttp = Server.CreateObject("MSXML2.XMLHTTP.6.0")