VBAでIE操作に役立つ文字列から数字だけ抽出「numExtract」

VBAのIE(InternetExplorer)制御に便利なサブルーチンを紹介しています。

「numExtractサブルーチン」の詳しい説明は以下よりご確認ください。
文字列から数字だけ抽出「numExtract」の解説
Function numExtract(strValue As String) As String

　Dim i As Integer

　For i = 1 To Len(strValue)

　　oneTxt = Mid(strValue, i, 1)
    
　　If oneTxt Like "[0-9]" Then: numExtract = numExtract & oneTxt

　Next i

End Function
引数名データ型内容値の事例初期値省略
strValueStringチェックする文字列"A商品の価格は4,521円"×
numExtract("チェックする文字列")

「strValue」は必須項目です。
数字だけを抽出する対象の文字列を指定してください。