轉換ie物件語法為Selenium(chrome) ? - Excel程式區

帖子: 10
主題: 2
精華: 0
積分: 62
點名: 2
作業系統: Win10
軟體版本: 2016
閱讀權限: 20
註冊時間: 2021-7-23
最後登錄: 2024-4-27

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

中學生 Rank: 2

帖子: 10
主題: 2
精華: 0
積分: 62
點名: 2
作業系統: Win10
軟體版本: 2016
閱讀權限: 20
註冊時間: 2021-7-23
最後登錄: 2024-4-27

22^#

發表於 2022-10-15 16:25 | 只看該作者

回復 11# t8899

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

TOP

t8899

大學生 Rank: 4

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-12-28

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

大學生 Rank: 4

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-12-28

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

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

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

25^#

發表於 2022-10-16 02:16 | 只看該作者

回復 24# t8899

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

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

TOP

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

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

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

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

大學生 Rank: 4

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-12-28

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

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

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

28^#

發表於 2022-10-16 07:42 | 只看該作者

回復 27# t8899

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

可能是沒有CLOSE掉八

或者需求說一下

TOP

t8899

大學生 Rank: 4

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-12-28

29^#

發表於 2022-10-16 09:29 | 只看該作者

回復 t8899

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

可能是沒有CLOSE掉八

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

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

TOP

t8899

大學生 Rank: 4

帖子: 760
主題: 250
精華: 0
積分: 1023
點名: 0
作業系統: windows 11
軟體版本: OFFICE2021
閱讀權限: 50
性別: 男
註冊時間: 2011-5-30
最後登錄: 2024-12-28

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

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]