Option Explicit
Sub TEST()
Dim URL As String
Dim myISBN As String
myISBN = "3825859438"
URL = "https://www.eurobuch.com/buch/isbn/" & myISBN & ".html?doAbeDe=1&doAchtungBuecher=1&doAlibris=1&doAmazon=1&doAmazonCom=1&doAmazonEs=1&doAmazonFr=1&doAmazonIt=1&doAmazonUk=1&doAudiobooks=0&doBbBuch=1&doBetterworld=1&doBiblio=1&doBooklooker=1&doBuchfreund=1&doEBay=1&doEbooks=0&doGoogle=1&doHugendubel=1&doJokers=1&doKobo=1&doLehmanns=1&doMedimops=1&doProlibri=1&doRebuy=1&doThriftbooks=1&doZVAB=1&doZweitausendeins=1&fromDateDays=7&isbn=" & myISBN & "&mediatype=0&mediatypeSelect=0&noBids=1&noReprint=0&pageLen=20&proSearch=1&sCountry=DE&search_submit=suchen&updatePresets=1&updateProState=1&usedState=2"
Dim sText As String
sText = URL_Load(URL)
Dim minPrice As String, maxPrice As String, avgPrice As String
minPrice = GetPrice(Text:=sText, pattern:="<span id=""results_min_price"">(.*?)</span>")
maxPrice = GetPrice(Text:=sText, pattern:="<span id=""results_max_price"">(.*?)</span>")
avgPrice = GetPrice(Text:=sText, pattern:="<span id=""results_avg_price"">(.*?)</span>")
End Sub
Private Function URL_Load(ByVal sURL As String) As String
Dim appIE As Object
Dim sTxt As String
Set appIE = CreateObject("InternetExplorer.Application")
appIE.navigate sURL
Do: Loop Until appIE.Busy = False
Do: Loop Until appIE.Busy = False
sTxt = appIE.document.DocumentElement.outerHTML
Set appIE = Nothing
Close
URL_Load = sTxt
End Function
Function GetPrice(Text As String, pattern As String) As String
Dim Regex As New VBScript_RegExp_55.RegExp
Dim sOut As String
With Regex
.pattern = pattern
.IgnoreCase = True
If .TEST(Text) Then
Dim mc As VBScript_RegExp_55.MatchCollection
Set mc = .Execute(Text)
If Not mc Is Nothing Then
If mc.Count = 1 Then
sOut = mc.Item(0).SubMatches(0)
End If
End If
End If
End With
GetPrice = sOut
End Function