返回列表 上一主題 發帖

[發問] 如何快速將網頁資料抓到excel裡

[發問] 如何快速將網頁資料抓到excel裡

http://www.twse.com.tw/zh/page/trading/exchange/STOCK_DAY_AVG.html
如何快速將網頁資料抓到excel裡
AB欄位分別是日期跟收盤價
證交所的網址如上
必須一個月一個月去入查詢完後貼到EXCEL裡
請問有什麼方法可以快速得到左邊的結果

日期        收盤價
106/01/03        84.3
106/01/04        84.2
106/01/05        84
106/01/06        83.8
106/01/09        83.5
106/01/10        84
106/01/11        84.2
106/01/12        84.3



Download Page Link
https://www.sendspace.com/file/09cahu

回復 3# GBKEE


GBKEE大,可以了,萬分感謝,您真的是太強了

另外想問一下怎樣用QueryTable來抓取網頁資料
GOOGLE找到一題,您之前回答過的問題
http://forum.twbts.com/viewthread.php?tid=3218
可是好像無法執行,不知道那邊出了問題
奇摩網址問題?
如果用證交所的可以嗎

TOP

回復 2# Scott090


Scott090大,
您的這份巨集好像不行,
畫面出現
       
        106年01月 2330 台積電 日收盤價及月平均收盤價
        日期
        106/01/03
        106/01/04
        106/01/05
        106/01/06
        106/01/09
        106/01/10
        106/01/11
        106/01/12
        106/01/13
        106/01/16
        106/01/17
        106/01/18
        106/01/19
        106/01/20
        106/01/23
        106/01/24

TOP

回復 7# Scott090


Scott090大,可以了,謝謝。
可是我將裡面代碼作小修正,卻又不行了,
您可以再幫我看一下嗎?

     ' stock = "2330"          '設定代號
     ' yYear = "2017"          '設定年度
     ' mMonth = "01"           '設定月份
     
     stock = Range("A1")
     yYear = Range("B1")
     mMonth = Range("C1")

TOP

回復 6# Scott090


Scott090大,
剛剛發現是Cells.Clear這段的問題,這樣應該是沒有問題了,謝謝您。

TOP

回復 7# Scott090


Scott090大,
剛剛才發現您的方法只能下載單月份的,我要的應該是GBKEE大的那份答案結果,可以好幾個月合併的。

TOP

        靜思自在 : 有心就有福,有願就有力,自造福田,自得福緣。
返回列表 上一主題