checkout88

回復 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

checkout88

回復 11# t8899

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

下載 (297.68 KB)

2022-10-15 16:25

t8899

回復  t8899


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

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

t8899

回復  t8899

F8逐步測試

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

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

下載 (116.86 KB)

2022-10-15 20:15

singo1232001

回復 24# t8899

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


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

singo1232001

補充說明一下

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

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

改用
dim driver as object
dim w1,w2

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

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

t8899

回復  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個不行?

singo1232001

回復 27# t8899


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

可能是沒有CLOSE掉八

或者需求說一下

t8899

回復  t8899


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

可能是沒有CLOSE掉八

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

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

t8899

回復 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 ?

下載 (217.21 KB)

2022-10-18 20:30