VBA Selenium通過文本查找行號

我使用以下代碼來查找包含文本的表格行。VBA Selenium通過文本查找行號

TabName = (driver.findElementByXPath("//div[@id='instrument_quote_source']/div/div/table/tbody/tr[3]/td[1]/span").Text)

結果是FOREX。

如果我嘗試通過名稱FOREX檢測行並且不起作用。我試試這個：

TabName = driver.findElementByXPath("//div[@id='instrument_quote_source']/div/div/table/tbody/tr[td[contains(text(),'FOREX')]]/td[1]/span").Text

我們如何通過只使用名稱來識別表中的相同位置。謝謝。我已經試過許多種組合:(

下面是宏：

Sub Test() 
    Dim PageTimeoutms As Long 
    Dim ProcessOk As Boolean 
    Dim TabName As String 

    PageTimeoutms = 20000 
    driver.Start "firefox", "http://www.godmode-trader.de/rohstoffe/gold-preis,133979" 
    driver.Timeouts.ImplicitWait = 3000 
    driver.Timeouts.Server = PageTimeoutms 
    ProcessOk = driver.get("http://www.godmode-trader.de/rohstoffe/gold-preis,133979", PageTimeoutms) 
    driver.findElementByLinkText("alle Börsenplätze anzeigen", PageTimeoutms).Click 

    'TabName = (driver.findElementByXPath("//div[@id='instrument_quote_source']/div/div/table/tbody/tr[3]/td[1]/span").Text) 
    TabName = driver.findElementByXPath("//div[@id='instrument_quote_source']/div/div/table/tbody/tr[td[contains(text(),'FOREX')]]/td[1]/span").Text 
End Sub

來源

2016-01-06 INN

爲了讓細胞形成目標行：

Private Assert As New Assert 

Sub Script1() 
    Dim driver As New FirefoxDriver 
    driver.Get "http://www.godmode-trader.de/rohstoffe/gold-preis,133979" 
    driver.FindElementByLinkText("alle Börsenplätze anzeigen").Click 

    Set row_forex = driver.FindElementsByXPath("//div[@id='instrument_quote_source']//tr[contains(.,'FOREX')]/td") 
    Debug.Print row_forex(1).Text ' > FOREX 
    Debug.Print row_forex(2).Text ' > $/Unze 
    Debug.Print row_forex(3).Text ' > 1.103,64 
    driver.Quit 
End Sub

另一種解決辦法是將返回所有的價值觀和然後使用所需的行：

Sub Script2() 
    Dim driver As New FirefoxDriver 
    driver.Get "http://www.godmode-trader.de/rohstoffe/gold-preis,133979" 
    driver.FindElementByLinkText("alle Börsenplätze anzeigen").Click 

    Dim values() 
    values = driver.FindElementByCss("#instrument_quote_source table").AsTable.Data() 
    For r = 1 To UBound(values) 
     If values(r, 1) Like "FOREX" Then 
     Debug.Print values(r, 1) ' > FOREX 
     Debug.Print values(r, 2) ' > $/Unze 
     Debug.Print values(r, 3) ' > 1.103,64 
     Exit For 
     End If 
    Next 
    driver.Quit 
End Sub

來源

2016-01-07 14:09:42

VBA Selenium通過文本查找行號

回答

相關問題