用Selenium 抓上市行情即時資料 ??? - Excel程式區

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 »

發表於 2022-10-20 00:14 | 顯示全部帖子

回復 2# joey0415

讚

分享一下檔案

seleniumdownload.zip (25.6 KB)

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2022-10-20 10:09 | 顯示全部帖子

本帖最後由 singo1232001 於 2022-10-20 10:13 編輯

回復 5# t8899

修正陣列位置不足與資料判斷錯誤

seleniumdownload v2.zip (29.03 KB)

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2022-10-20 10:40 | 顯示全部帖子

回復 6# singo1232001

新增股票自適應

seleniumdownload v3.zip (30.2 KB)

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2022-10-20 12:43 | 顯示全部帖子

本帖最後由 singo1232001 於 2022-10-20 12:45 編輯

回復 8# t8899

盤中有(31欄) 盤後有(36欄) 欄位數量不同盤後的還會多出5~6列

程序會自動適應多出的欄位

我是直接設定上限50欄所以都夠用

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

5^#

發表於 2022-10-20 17:01 | 顯示全部帖子

回復 11# t8899

因為資料是一次性全部出來
就算用程序篩選也不會快多少
建議直接把不要的欄位隱藏就好了

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

6^#

發表於 2022-10-21 14:13 | 顯示全部帖子

回復 14# t8899

是的這段我忘了加上去了感謝告知!

若這段沒寫打開兩個excel以上時因為計時程序還在背景繼續

就會再次把excel打開繼續執行

所以如同你說的方式處理

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

7^#

發表於 2022-10-21 14:45 | 顯示全部帖子

本帖最後由 singo1232001 於 2022-10-21 14:46 編輯

回復 16# singo1232001

關於這份檔案改動方向盡可能避免雙開excel時出現異常(但還是有點小缺陷,並沒有完美避開)
1.第一次開啟檔案時自動停止
2.關檔時自動停止背景計時
3.程式碼都加上自身工作簿範圍set tbk (避免不同檔案名稱卻有相同名稱sub 造成程序誤判執行)

其他意外驚喜不小心錄製巨集時錄到了 ontime的完整名稱路徑程式碼
方便在不同檔案同時執行時產生衝突提供了一條新的設定方法
不過有許多變數也需要增加範圍,重新設定

seleniumdownload v4.zip (31.98 KB)

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

8^#

發表於 2022-10-23 13:22 | 顯示全部帖子

回復 21# t8899

Sub test56()

Set driver = CreateObject("Selenium.ChromeDriver")

driver.get "https://mis.twse.com.tw/stock/group.jsp?ex=tse&currPage=0&ind=TIDX&bp=0&type=fixed"

Set tbls = driver.findelementsbytag("table")

tbls(5).astable.toexcel Cells(1, 1)

tbls(6).astable.toexcel Cells(1, 10)
End Sub

TOP

singo1232001