[閒聊] 分享用VBA寫的台銀匯率爬蟲 (發錢

看板Finance (金融業)作者noworneverev (小朋友)時間8年前 (2017/12/10 20:22)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串1/2 (看更多)

台灣銀行匯率爬蟲程式下載： 1. 即時牌價查詢增益集(xlam)：https://goo.gl/kLQRyL 2. 單一幣別匯率查詢(xlam)：https://goo.gl/5vTCF5 單一幣別查詢Demo(xlsm)：https://goo.gl/as7oJn 3. 全部幣別匯率查詢(xlam)：https://goo.gl/Bh1XZj 全部幣別查詢Demo(xlsm)：https://goo.gl/HKtJyk 4. 全部幣別匯率查詢_對話方塊顯示增益集(xlam)：https://goo.gl/wdpqYu 全部幣別匯率查詢_對話方塊Demo(xlsm)：https://goo.gl/L4wf1R 5. 每月匯率表產生器(xlsm)(有密碼)：https://goo.gl/LXSQ8o 台銀匯率爬蟲Demo影片：https://youtu.be/efMJ1QwSmVc

增益集使用方法：https://youtu.be/_8ez9G_QCUU

網頁爬蟲雖然現在首推Python，但用Excel VBA來寫可能較親民一點，上列幾支程式大部分會將指定的資料直接抓到Excel中，VBA也有分幾種爬蟲方式，我主要是爬取網頁的元素，雖然是相對原始的方法，不過速度還算快，另請自行衡量是否要加載這些增益集至Excel中，單一幣別匯率查詢為了功能的完整寫了1000多行。雖然看Demo影片應該可以很清楚理解這幾個增益集的作用，下面稍做介紹： 1. 即時牌價匯率查詢：此功能會抓取此台銀匯率頁面 (http://rate.bot.com.tw/xrt?Lang=zh-TW)的資料，並將資料載入Excel中。 2. 單一幣別匯率查詢：此功能抓取台銀單一幣別的歷史匯率 (http://rate.bot.com.tw/xrt/history/)左邊的地方，並畫出走勢圖，雖然該網頁只能選取最近兩年度，不過其實更早以前的資料也是找得到的，在增益集跳出的那個表單更改年度即可。 3. 全部幣別匯率查詢：此功能爬取上面網址右邊的部分，若輸入的日期沒有資料會跳出對話方塊提醒。 4. 全部幣別匯率_對話方塊：上面三個功能都會新增工作表來放查詢的資料，而這個功能僅會跳出對話方塊顯示查詢到的匯率資料。 5. 每月匯率表：這個匯率表是寫最久的，因為還有用別種爬蟲語法爬中國的匯率，可產出任一月份所有幣別每一天的匯率表，我是以平常上班每月收到的匯率表為原形來寫，所以有鎖密碼，如果你是某個要搬家的事務所的同事歡迎寄信跟我拿密碼。每一推100P~ -- An Excel Add-in for audiors and accountants http://tickmark.tw/ -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 112.104.25.126 ※ 文章網址: https://www.ptt.cc/bbs/Finance/M.1512908546.A.50B.html 推 kisha024: 熱心給推 12/10 22:07 推 jumbotest: PUSH 12/10 22:41 推 cyf0531: 推 12/11 00:40 推 forgreen: 推 12/11 11:00 推 only0307: 推熱心 12/11 14:44 推 seysem: 好厲害 12/11 16:35 推 lay911225: 推 12/11 17:03 推 iamlukeli: 推 12/11 21:13 ※ 編輯: noworneverev (112.104.94.156), 12/11/2017 21:58:41 推 bighaed: 推 12/11 22:16 推 summerla: 熱心推！！ 12/11 22:37 推 hinagiku0531: 推 12/11 22:56 推 dannykk: 推 12/11 23:21 推 jasonpower: 推 12/11 23:28 推 k123yoo: 推 12/11 23:51 推 wiwi8031588: 推 12/11 23:52 推 oneshoe: 推！ 12/12 00:54 推 eric117023: 推 12/12 00:59 推 Jyunyang: 推 12/12 02:04 推 hu321: 推 12/12 02:16 推 scanf: 用心推 12/12 03:45 推 xfrank04: 推 12/12 12:20 推 redonejay: 推! 12/12 12:20 推 callmehunt55: 推～ 12/12 12:48 推 jesusQQ: 推推 12/12 13:21 推 LIZ402: 推推！ 12/12 16:40 推 amberkuofrui: 推 12/12 16:42 ＠以上紅底標記26位，每人100P(稅前)發送完成! by AutoGiveP 2.08 ※ 編輯: noworneverev (112.104.93.10), 12/12/2017 19:40:59 推 hoho827: 退 12/12 19:50 推 owensampo: 公司財務淚推！ 12/12 20:00 推 poeplew: 推 12/12 21:42 推 novetin: 推 12/12 22:55 推 homewhs: 推 12/12 23:22 推 CMD: 推 12/12 23:23 推 b9039011: 熱心推~ 12/12 23:26 推 angel50732: 推 12/13 02:47 推 tracyb860627: 熱心推～ 12/13 07:14 推 maimss: 推 12/13 08:47 推 mcdonnell: 推 12/13 09:53 推 daydreamer7: 推 12/13 10:54 推 eddie810107: 推 12/13 10:55 推 DDDCCCc: 熱心推 12/13 11:58 推 blueivy: 推! 12/13 14:37 推 seohyunfans: 太神啦 12/13 16:34 ＠以上紅底標記16位，每人100P(稅前)發送完成! by AutoGiveP 2.08 ※ 編輯: noworneverev (112.104.109.169), 12/13/2017 19:28:27 推 yolly1022: 哇，感覺很好用!謝謝分享~ 12/13 21:01 推 y3xu6ye08: 又強又熱心！！推～ 12/14 03:01 推 fiegger: 推 12/14 12:40 推 Roderick: 推 12/14 14:48 ＠以上紅底標記4位，每人100P(稅前)發送完成! by AutoGiveP 2.08 ※ 編輯: noworneverev (112.104.92.145), 12/14/2017 19:41:33 推 lk2986706we: 推厲害 12/14 21:43 推 pulator259: 推推 12/15 11:56 推 jotxup: 推~ 12/15 19:46 推 sallybird: 推 12/15 23:10 ＠以上紅底標記4位，每人100P(稅前)發送完成! by AutoGiveP 2.08 ※ 編輯: noworneverev (112.104.94.231), 12/15/2017 23:34:03 推 brianliu0104: 推推 12/16 00:51 推 a5170040: 還不錯 12/16 00:59 推 winhong61: 推推！ 12/16 10:22 推 ray27513: 推 12/16 15:48 推 ch1213518: 推推！！ 12/16 16:16 ＠以上紅底標記5位，每人100P(稅前)發送完成! by AutoGiveP 2.08 ※ 編輯: noworneverev (112.104.93.34), 12/16/2017 20:40:30 推 love113w: 推 12/16 22:10 推 ykap0969: 推 12/17 10:11 推 utetsu: 推 12/18 09:47 推 mury1414: 推 12/18 15:13 推 rubyjay: 推 12/19 09:35 推 garhorng: 熱心推 12/19 19:01 推 Roderick: 推 12/19 23:46 推 zodiak: 推 12/22 13:23 推 lip99: 推太強 12/25 23:22 推 Dennishao: 推 12/26 15:51 推 clse4139: 推 12/28 07:23 ＠以上紅底標記11位，每人100P(稅前)發送完成! by AutoGiveP 2.08 ※ 編輯: noworneverev (112.104.24.197), 01/04/2018 20:57:22