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抓取上櫃交易明細的方法來下載。
沒有留言:
張貼留言