VBA selenium 要素の取得について

XPathを取得する方法は理解しておりますが、デベロッパーツールで取得した情報のうち、tr[n]のnが毎回変わってしまいます。

であれば、取得したXPathをここに正確に貼り付けてください。

そこで、特定のテキストを含む要素を取得したいので、 contains(text(), を使用しているのですが、どうにもうまくいかず悩んでおります。

contains() text()はVBAの関数でしょうか？
"で囲んでいるので、文字列になっていませんか？

VBAのコードもここに貼ってください。

XPath
　　//*[@id="FlowTransferSelect"]/div[2]/div/div/div/table/tbody/tr[33]/td[2]
XfullPAth
　　/html/body/section/div/div/div/div[2]/div/div/div/table/tbody/tr[33]/td[2]

tr[33]の33が毎回変わります。

VBAの該当部分です
　　Dim Driver As New Selenium.WebDriver
　　SafeOpen Driver, Chrome
　　　With Driver
　　　　.Get "https://----------.html"

　　msgbox .FindElementByXPath("//td[contains(text(), "承諾願書-2023-104110-010")].text　　　'場所の確認ができたら削除

　　　　.FindElementByXPath("//td[contains(text(), "承諾願書-2023-104110-010")]/preceding-sibling::td[1]").Click
　　　End With

msgboxの時点で、質問文における状況になります。

確認です。

XPath
　　//*[@id="FlowTransferSelect"]/div[2]/div/div/div/table/tbody/tr[33]/td[2]
XfullPAth
　　/html/body/section/div/div/div/div[2]/div/div/div/table/tbody/tr[33]/td[2]

tr[33]の33が毎回変わります。

テキスト部「承諾願書-2023-104110-010」がtr[33]/td[2]で、「選択」ボタンがtr[33]/td[1]でしょうか？

上の質問がYesの場合、以下のコードでどうでしょうか？

    Dim Driver As New Selenium.WebDriver
    SafeOpen Driver, Chrome
    With Driver
        .Get "https://----------.html"
        Dim n As Long
        For n = 1 To 1000
            Dim xpath As String, elm
            xpath = "/html/body/section/div/div/div/div[2]/div/div/div/table/tbody/tr[" & n & "]/"
            elm = .FindElementByXPath(xpath & "td[2]")
            If Not IsNull(elm) Then
                If InStr(elm.Text, 1, "承諾願書-2023-104110-010") > 0 Then
                    .FindElementByXPath(xpath & "td[1]").Click
                    Exit For
                End If
            End If
        Next
    End With

質問はYesです。

折角、頂いたコードですが、
　　elm = .FindElementByXPath(xpath & "td[2]")
の部分で
　　実行時エラー'438':
　　オブジェクトは、このプロパティまたはメソッドをサポートしていません。
というエラーになってしまいます。

Setが必要かも。

    Dim Driver As New Selenium.WebDriver
    SafeOpen Driver, Chrome
    With Driver
        .Get "https://----------.html"
        Dim n As Long
        For n = 1 To 1000
            Dim xpath As String, elm As WebElement '⭐️
            xpath = "/html/body/section/div/div/div/div[2]/div/div/div/table/tbody/tr[" & n & "]/"
            Set elm = .FindElementByXPath(xpath & "td[2]") '⭐️
            Driver.FindElementByXPath
            If Not IsNull(elm) Then
                If InStr(elm.Text, 1, "承諾願書-2023-104110-010") > 0 Then
                    .FindElementByXPath(xpath & "td[1]").Click
                    Exit For
                End If
            End If
        Next
    End With

おかげ様で
　If InStr(elm.Text, 1, "承諾願書-2023-104110-010") > 0 Then
を
　If InStr(elm.Text, "承諾願書-2023-104110-010") > 0 Then
に、
　Set elmの後の Driver.FindElementByXPath　を削除
した結果、対象のtd[1]をクリックすることができました！！！！！

何度もご回答いただきまして、ありがとうございました。

ミスがありましたか。失礼しました。

当初の目的は達成できたのでしかね。
もし、解決でよろしければ、当Q&Aをクローズしていただければと思います。

@totqkke さん、コメントありがとうございます。
実際には、変数に格納して使用しているので、""の必要性までは確認しませんでした。