VBA Excel需要内部文本，但不需要它还包含的标记

我需要在span标签中获得“4499.00”，但不需要SEK部分

<span id="big-value" class=big-value"> <sup> SEK </sup> 4,499.00 </span>

但是当标记包含另一个标记时，它似乎不起作用。它得到了瑞典克朗和4499.00（它应该得到，但我不知道如何解决它）。你知道如何解决这个问题吗？

你需要使用标签信息或解析字符串来提取数字。下面的代码使用

Regexp

执行后面的操作

你的文字

试试这个4499.00

Recovered = ie.document.getElementsByTagName("span")(22).innertext

Sub Test()
MsgBox CleanStr("<span id=""big-value"" class=big-value""""> <sup> SEK </sup> 4,499.00 </span>")
End Sub

Function CleanStr(StrIn As String) As String
Dim objRegex As Object
Dim objRegexMC As Object
Set objRegex = CreateObject("vbscript.regexp")
With objRegex
     .Pattern = "[0-9,\.]+"
     If .Test(StrIn) Then
        Set objRegexMC = .Execute(StrIn)
        CleanStr = objRegexMC(0)
    Else
        CleanStr = "No Match"
    End If
End With
End Function