vbaで文字列から数字のみを抽出する方法を知りたい

VBAについて、

以下のコードで取得したヤフオクの価格「○○円」から「円」を取り除き、数字のみ抽出するコードを追加していただけないでしょうか？

VBA
1driver.Get "https://page.auctions.yahoo.co.jp/jp/auction/n1002661605"
2
3Dim now_price As String
4now_price = driver.FindElementByCss("#l-sub > div.ProductInformation > ul > li.ProductInformation__item.js-stickyNavigation-start > div > div.Price__borderBox > dl > dd.Price__value").Text

以下のページを見てみたのですが、自分のコードへの応用がわかりませんでした。

https://nkmrdai.com/%E3%80%90%E8%A7%A3%E8%AA%AC%E4%BB%98%E3%80%91excel-vba%E3%81%A7%E6%96%87%E5%AD%97%E5%88%97%E3%81%8B%E3%82%89%E6%95%B0%E5%AD%97%E3%81%AE%E3%81%BF%E3%82%92%E6%8A%BD%E5%87%BA%E3%81%99%E3%82%8B%E6%96%B9/

ChromeをVBAのSeleniumでスクレイピングしています。

よろしくお願いいたします。

行動規範の内容に同意します

回答1件

ベストアンサー

標準モジュールに渡された文字列から数字のみを抽出する関数を作成しておけばいい

以下を標準モジュールに定義

Public Function FuncRetNum(ByVal strInput As String) As String
Dim lngLoop As Long
Dim strReturn As String

strInputWork = StrConv(strInput, vbNarrow)

For lngLoop = 1 To Len(strInputWork)
If IsNumeric(Mid(strInputWork, lngLoop, 1)) Then
strReturn = strReturn & Mid(strInputWork, lngLoop, 1)
End If
Next lngLoop

FuncRetNum = strReturn
End Function

あとは以下のように呼び出す

dim strText as String
strText = FuncRetNum("対象の果物は1,000円")

strTextに入る文字列の値は　1000

投稿2021/09/02 16:09