每天只要5秒的當沖選股程式，功能如影片所示，只需要投資自已10分鐘看完這個影片，就可以學會用Excel VBA做出，一鍵選出明日當沖股票的金融爬蟲程式，就算是不會Excel VBA的人，也可以輕鬆做出自已的選股程式，市場上有一位手機當沖達人，分享了他如何利用手機挑選隔日當沖股票的方法，但用他的方法，我還是覺得非常麻煩，因為我是一個非常懶惰的人，所以我希望任何每天重復的動作，都可以做成一鍵就可以完成的程式來使用，前幾支影片，主題圍繞在Excel VBA和XQ全球贏家DDE的應用，如果對這方面有興趣的人，可以由上方資訊欄前去觀看，在今天的影片裡，將使用10分鐘，教會你如何利用網路爬蟲製作自已的選股程式，影片最後會附上檔案的下載方式，記得要把影片看到最後哦。
HI!歡迎來到Excel 金融分析，從零打造量化交易
系統的頻道，我是豐島(Excel股票分析的站長)
如果你也喜歡這樣的內容，記得訂閱我的頻道，打開旁邊的小鈴鐺，這樣子你就不會錯過任何新影片通知了
Excel VBA網路爬蟲，有很多種方式，比較常見的有XMLHTTP，雖然在爬取資料的速度上是最快的，但這個方式需要解析網路，要學習的技術比較多，對於一般沒有程式基礎的人來說，學習的效率比較慢，如果想多了解一些Excel VBA網路爬蟲的差別，可以在下方留言”爬蟲”，我會找機會多介紹一些不同的網路爬程技術，今天要介紹的方法是，使用Excel內建錄製巨集的方式，雖然速度比不上XMLHTTP，但我們並不是要取得大量的數據，所以跟本不會感覺到速度的問題，重點是對於沒有程式基礎的人來說，開發一個新的自動選股程式是完全沒有難度的，那我們就開始今天的內容吧
。
現在有很多券商都有提供線上選股的功能，不過大部份都是由XQ全球贏家的開發商”嘉實資訊”所提供給各券商使用的，我們先打開瀏覽器，搜尋”選股大師”，這裡可以看到有很多不同券商的網頁可以選擇，有的可以自行設定條件，有的有排行榜，我們今天要做的程式是選出排行榜內符合條件的股票，所以就選排行榜的網頁，如果想要自行設定條件的金融爬蟲，可以先到Excel 股票分析的網站看，未來有機會我會再拍一集影片來分享。
那位手機當沖達人的選股條件分別是以下點。
1、
漲幅排行
2、
跌幅排行
3、
週轉排行
4、
量1萬張以上
5、
200元以下
6、
近期熱門股
我們先打開漲幅排行，這裡提供了上市漲幅前50檔的股票排名，我們先看上方的網址，無法看出任何的參數，而且也沒有上櫃的股票，點擊下拉選單，選上櫃股票漲幅1日排行，一樣也是提供上櫃漲幅前50檔的股票排名，這時我們就可以看到上方網址的後面出現了參數，我們再把下拉選單切換回上市股票1日排行，就可以看到後面的參數”zg_A_1_1”變成”zg_A_0_1”了，先把網址按[Ctrl]+[C]復製下來。
操作說明
打開Excel，開發人員，錄製巨集，
資料=>從WEB=>輸入URL=>確定，
找出資料放在那一個Table=>載入旁邊的下拉選單=>載入至=>目前工作表的儲存格=>選擇[AA1]=>確定=>停止錄製=>把連線刪除。
打開VBA=>模組內的Module1，在這裡就可以找到剛剛錄製的巨集了，
這裡直接按執行的話，會出現名稱重復的錯誤訊息，所以我們先處理一下程式碼。
先把原本的程式碼全部註解掉，加入這一行程式碼，指定網址及放置資料的位置，下面再加入另一行程式碼，指定我們是要捉那一個Table的資料，這裡要注意的是，程式語言內，所有的計數是從0開始，不是從1，所以剛剛Table0是第2個，這時就要指定為1，並把有用的程式碼取消註解，這樣子網路爬蟲就可以正常執行了，接下來另外建立一個程序，把沒被註解的程式碼復制過來，再執行一次，會發現剛剛的資料被擠到右邊了，我們再加上一行程式碼，.ResultRange.Clear，這樣子QueryTables就會在執行完成時把資料刪掉，打開公式=>名稱管理員，可以看到有二個名稱，我們再執行一次，可以看到這次沒有再把舊資料往後移了，但名稱多了一個，先把這三個名稱刪掉，再加入一行程式碼，.Delete，這樣子在QueryTables執行完就會自動幫我們把名稱刪掉了，這個動作非常的重要，因為名稱太多的話， Excel就需要大量的記憶體來儲存名稱，到最後會造成程式執行越來越慢，所以要養成習慣把沒用到的名稱刪掉。
現在我們就可以加入判斷式來判斷選股條件，先在最上面加入一個endRow的變數，用迴圈來判斷排行內的股票是否符合選股條件，因為每一個排行榜的格式都是固定的，
後面請看影片
檔案下載連結:
https://drive.google.com/file/d/145gOukWpN1RwX_OibNWK8yr3eGzOcUZ-/view?usp=sharing
張貼留言