1234
返回列表 上一主題 發帖

[分享] 轉換ie物件語法為Selenium(chrome) ?

t8899

帖子
764 
主題
254 
精華
0 
積分
1031 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2025-2-20 
4# 跳轉到 »
發表於 2022-9-23 20:56 | 只看該作者
本帖最後由 t8899 於 2022-9-23 21:01 編輯

回復 2# singo1232001
上面的問題已找到答案

1.我如果只要 tb("6") 的第三欄第三列這個儲存的值(圖中黃色)的語法是?
2.執行時 隱藏chrome視窗的語法 ??

TOP

t8899

帖子
764 
主題
254 
精華
0 
積分
1031 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2025-2-20 
3#
發表於 2022-9-23 20:15 | 只看該作者
本帖最後由 t8899 於 2022-9-23 20:17 編輯

回復 2# singo1232001
謝謝指導，最後面需不需要 tb.quit ?? (像ie.quit)
如果只要table 3 , 語法是?

TOP

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

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

論壇榮譽勳章論壇贊助勳章
2#
發表於 2022-9-23 18:32 | 只看該作者
回復 1# t8899


Sub test()
Set driver = CreateObject("Selenium.ChromeDriver")
driver.get "https://mis.twse.com.tw/stock/group.jsp?type=fixed&ex=tse&ind=TIDX#STATISTICS"  '如果卡在這裡 瀏覽器沒開成 要注意chromedriver版本是否更新
Set tb = driver.findelementsbytag("table")
Cells.ClearContents
For Each Z In tb
r = Cells(Rows.Count, 1).End(3).Row + 3
Z.astable.toexcel Cells(r, 1)
Next
End Sub

TOP

        靜思自在 : 站在半路，比走到目標更辛苦。
1234
返回列表 上一主題