1234
返回列表 上一主題 發帖

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

checkout88

帖子
10 
主題
2 
精華
0 
積分
62 
點名
1  
作業系統
Win10 
軟體版本
2016 
閱讀權限
20 
註冊時間
2021-7-23 
最後登錄
2024-2-28 
21# 跳轉到 »
發表於 2022-10-15 16:12 | 只看該作者
回復 14# t8899


Sub test2()
    Set driver = CreateObject("Selenium.ChromeDriver")
    driver.Get "https://mis.taifex.com.tw/futures/disclaimer/"
    driver.findelementbyxpath("//*[@id=""content""]/main/div[2]/div[2]/button[1]").Click
End Sub

TOP

checkout88

帖子
10 
主題
2 
精華
0 
積分
62 
點名
1  
作業系統
Win10 
軟體版本
2016 
閱讀權限
20 
註冊時間
2021-7-23 
最後登錄
2024-2-28 
22#
發表於 2022-10-15 16:25 | 只看該作者
回復 11# t8899

xpath 可以直接 copy, 不用一個一個找.

TOP

t8899

帖子
746 
主題
243 
精華
0 
積分
1002 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-4-26 
23#
發表於 2022-10-15 19:51 | 只看該作者
本帖最後由 t8899 於 2022-10-15 19:52 編輯
回復  t8899


Sub test2()
    Set driver = CreateObject("Selenium.ChromeDriver")
    driver.Ge ...
checkout88 發表於 2022-10-15 16:12

謝謝指導，用這個速度快多了

TOP

t8899

帖子
746 
主題
243 
精華
0 
積分
1002 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-4-26 
24#
發表於 2022-10-15 20:15 | 只看該作者
本帖最後由 t8899 於 2022-10-15 20:38 編輯
回復  t8899

F8逐步測試

Sub test()
Set driver = CreateObject("Selenium.ChromeDriver")
driver ...
singo1232001 發表於 2022-10-13 20:07


driver.SwitchToNextWindow
這個我想跳到另一個程序繼續延用，會失敗 ??
程序之前有用 Public DRIVER As Object

TOP

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

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

論壇榮譽勳章論壇贊助勳章
25#
發表於 2022-10-16 02:16 | 只看該作者
回復 24# t8899

最上面除了
publice driver as object
多加一行
public w1,w2


w1 跟w2 沒跟過去
目前看來是 ""

TOP

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

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

論壇榮譽勳章論壇贊助勳章
26#
發表於 2022-10-16 06:26 | 只看該作者
本帖最後由 singo1232001 於 2022-10-16 06:29 編輯

補充說明一下

用public 是全部的模組module 包括表單userform 都會吃到喔
   
如果其他模組也有用到 就用public

如果不想給其他模組Module 表單userform用的話

改用
dim driver as object
dim w1,w2

用dim 的話 同模組內的所有sub都能用 其他模組內的用不了

因為怕在其他模組的sub也有用到w1,w2 到時候衝突

TOP

t8899

帖子
746 
主題
243 
精華
0 
積分
1002 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-4-26 
27#
發表於 2022-10-16 07:35 | 只看該作者
回復  t8899

最上面除了
publice driver as object
多加一行
public w1,w2


w1 跟w2 沒跟過去
...
singo1232001 發表於 2022-10-16 02:16


試的結果 只能用 DRIVER.SwitchToPreviousWindow    ?
DRIVER.SwitchToWindowByTitle w1 '第一個交易所
DRIVER.SwitchToWindowByTitle w2 '第二個期交所
DRIVER.SwitchToNextWindow
這3個不行?

TOP

singo1232001
　暱稱: 熱狗慶

中學生Rank: 2

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

論壇榮譽勳章論壇贊助勳章
28#
發表於 2022-10-16 07:42 | 只看該作者
回復 27# t8899


建議你把程式碼貼出來好了

可能是沒有CLOSE掉八

或者需求說一下

TOP

t8899

帖子
746 
主題
243 
精華
0 
積分
1002 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-4-26 
29#
發表於 2022-10-16 09:29 | 只看該作者
回復  t8899


建議你把程式碼貼出來好了

可能是沒有CLOSE掉八

或者需求說一下
singo1232001 發表於 2022-10-16 07:42


解決了
我用public w1 , 又用 DIM w1 , 把dim w1 拿掉就好了
謝謝!

TOP

t8899

帖子
746 
主題
243 
精華
0 
積分
1002 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-4-26 
30#
發表於 2022-10-18 20:30 | 只看該作者
本帖最後由 t8899 於 2022-10-18 20:36 編輯

回復 28# singo1232001

Sub test()
Set DRIVER = CreateObject("Selenium.ChromeDriver")
DRIVER.Get "https://tw.stock.yahoo.com/quote/1101.TW"
Set td = DRIVER.FindElementByXPath("//*[@id=""qsp-overview-realtime-info""]/div[2]/div[2]/div/ul")
Cells.ClearContents
' td.AsTable.ToExcel Cells(1, 1)
End Sub
圖中框起來的灰色框框不是一個table ??
要如何以table方式匯入excel ?

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
1234
返回列表 上一主題