QueryTable抓上櫃交易明細

這次透過QueryTable來抓取上櫃交易明細，資料在抓下進Excel後，需要再做資料剖析實在不是很方便，不過這也是最快的方法了，有需要全部上櫃明細，請自行修改。

Sub QueryTable抓上櫃交易明細()
    Const xlURL As String = "http://www.gretai.org.tw/ch/stock/aftertrading/broker_trading/download_ALLCSV.php"
    With ActiveSheet.QueryTables.Add("URL;" & xlURL, Destination:=Range("$A$1"))
        .WebFormatting = xlWebFormattingNone
        .PostText = "stk_date=1020320&curstk=5349"
        .TablesOnlyFromHTML = False
        .RefreshStyle = xlOverwriteCells
        .SaveData = True
        .Refresh 0
    End With
End Sub

如下圖為下載資料後需要做資料解析的內容

該範例重點在05行PostText的屬性，使用QueryTable來下載檔案又遇到需以Post參數傳遞的網頁時，需要添加該屬性，如果不想這樣使用也可以參考網站中的Excel VBA抓取上櫃交易明細的方法來下載。