☰

VBA - IBAN 验证不起作用

tag-icon • tag-icon microsoft-excel worksheet-function vba power-query screen-scraping
VBA - IBAN 验证不起作用

我在 Excel 中有一个 IBAN 列表，并希望通过从此网站通过 VBA 抓取数据来验证它们：https://www.iban.com/iban-checker。在 A 列（单元格 A2:A3000）中，我有 IBAN，在 BI 列中，我想根据 IBAN Checker 网站查看它们是否有效。

提取/验证另一列中的 BIC 代码可能也是值得的。因此，很高兴听到您对此的看法。

我现在有以下用于 IBAN 验证的 VBA 代码，但不幸的是它不起作用：

伊班语()

Application.ScreenUpdating = False

Dim XMLPage As New MSXML2.XMLHTTP60
Dim htmldoc As New MSHTML.HTMLDocument
Dim htmlim As MSHTML.IHTMLElement
Dim htmlims As MSHTML.IHTMLElementCollection
Dim Sh As Worksheet
Dim URL As String
Dim sBody As String

Dim Iban As String

Set Sh = ThisWorkbook.Sheets("Sheet1")

uf = Range("F" & Rows.Count).End(xlUp).Row

' Sh.Range ("f2:F" & uf).ClearContents

URL = "https://es.iban.com/iban-checker"

For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
    
    Iban = Sh.Cells(x, 1).Value
    
    sBody = "iban=" & Iban
    
    XMLPage.Open "Post", URL, False
    XMLPage.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    XMLPage.setRequestHeader "X-Requested-With", "XMLHttpRequest"
    
    XMLPage.send sBody
    
    htmldoc.body.innerHTML = XMLPage.responseText
    
    Set htmlims = htmldoc.getElementsByTagName("strong")
    For Each htmlim In htmlims
        If htmlim.innerText = "VÁLIDO" Then
                Sh.Cells(x, 2).Value = 100
        End If
        If htmlim.innerText = "Invalid IBAN check digit!" Then
                Sh.Cells(x, 2).Value = 52323432
        End If
    Next htmlim

下一页 htmlim 下一页

子目录结束

你能帮我吗？提前谢谢您。

答案1

是的，我也遇到了同样的问题。我使用了上述代码，但无法验证 Excel 表中的 IBAN。我该怎么做？我是 VBA 新手

相关内容