如何通过vba将HTML span属性复制到excel

Question

I am trying to copy web span value to excel sheet by excel vba. I try copy from input box which same value with span but it's unable to copy / null value. This HTML to copy

<td nowrap class="iddisplay"><span style="font-size: 14px" tabIndex="0">IAR/19326/8JM3Z</span>
<input type="hidden" name="transactionId" id="transactionId" value="IAR193268JM3Z"></td>

so i want to copy value IAR/19326/8JM3Z from span or IAR193268JM3Z from transactionId value The excel vba code that i use

Set str_val12 = IE.document.getElementById("transactionId")

clip.SetText str_val12.innerText
'clip.SetText str_val12.value
clip.PutInClipboard
test.Cells(i + 2, 6).Select
test.Cells(i + 2, 6).PasteSpecial "Unicode Text"

Thanks

Answer 1

如果 css 类iddisplay仅用于该特定 td 标签：

Cells(i + 2, 6) = IE.document.getElementsByClassName("iddisplay")(0).FirstChild.innertext

Answer 2

I haven't tested this but something along the lines of:

Dim element as Variant

For Each element in IE.document.getElementsById("transactionId")
    If element.value = "IAR193268JM3Z" Then
        Set str_val12 = element.innerText
        test.cells(i + 2, 6).Value = str_val12
    End If
Next element

Let me know if this throws an error and on which line. I am unsure if .Value is a way to check the value="IAR193268JM3Z" embedded within the input tag, but let's see.