点击网站上的所有复选框

Question

我有一个（在 Excel、VBA 中）将导航到此网页的子：

http://www.nordea.dk/wemapp/currency/dk/valutaKurser

并复制报价。但是，我想删除所有费率，只添加我的子需要的费率。

为此，我需要检查所有框（在表的左侧），但框的数量不是恒定的 - 所以我不能硬编码框名。

我想一种方法是提取整个 html，确定行数，然后循环。但这似乎很不方便。当然有一些更聪明的方法，它需要更少的代码和更少的存储空间？

Answer 1

您可以通过vbNewLineSplit() 表格并在集合的每一行中搜索货币（注意标题）。
由于输入的名称类似于 table:body:rows:2:cells:1:cell:check，因此您可以将货币与复选框进行匹配。
在实践中，它看起来像（直到获取元素名称）：

Function FirstRow(myArray() As String, Optional curr As String) As Long
If curr = "" Then
    curr = "*[A-Z][A-Z][A-Z]/[A-Z][A-Z][A-Z]*"
Else
    curr = "*" & curr & "*"
End If

For i = LBound(myArray) To UBound(myArray)
    If myArray(i) Like curr Then 'FX denoted as "XXX/XXX"
        FirstRow = i
        Exit Function
    End If
Next i
End Function
Sub ert()
Dim myArray() As String, URLStr As String
URLStr = "http://www.nordea.dk/wemapp/currency/dk/valutaKurser"

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = False
ie.Navigate URLStr

Do Until (ie.readyState = 4 And Not ie.Busy)
    DoEvents
Loop

On Error GoTo Err:
Data = ie.Document.body.innerHTML 'innerText

If False Then
Err:
    Data = ie.Document.body.innerHTML
End If

myArray = Split(Data, "<tr>") 'vbNewLine) 'vbCrLf)

'For i = LBound(myArray) To UBound(myArray)
'    Cells(i + 1, 1).Value2 = myArray(i)
'Next

Dim curr() As String
ReDim curr(2)
    curr(0) = "DKK/NOK"
    curr(1) = "EUR/SEK"
    curr(2) = "USD/CHF"
For i = LBound(curr) To UBound(curr)
    x = FirstRow(myArray, curr(i)) - FirstRow(myArray) + 1
    MsgBox "table:body:rows:" & x & ":cells:1:cell:check"
Next i
ie.Quit
Set ie = Nothing
End Sub

很抱歉，vbNewLine 这次不会删了，我的错。此外，检查一个命名元素应该不会那么难，如果你提供了检查所有框的snipplet，我什至会试一试。