isbn

[Peter404]

Hallo allemaal

Ik heb een excel-lijst met isbn-nummers. Nu wil ik daar graag de titel en de auteur bijzoeken.
Op internet kan ik deze info opzoeken via bol.com

Kan ik voor zoiets een macro schrijven?

Groeten
Peter

 

[OctaFish]

Met een beetje knutselen kun je de zoekstring wel terugvinden in de bron. En als je die aanpast, kom je een heel eind.

Private Sub IE_Automation()
Dim IE As Object
Dim sHTML As String, ISBN As String
sHTML = "http://www.bol.com/nl/s/algemeen/zoekresultaten/Ntt/"
ISBN = InputBox("Typ het isbn nummer:", "ISBN nummer invoeren", "9789039524022")
sHTML = sHTML & ISBN & "/sc/media_all/index.html"

    ' Create InternetExplorer Object
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate sHTML
    Do While IE.Busy
        IE.Wait DateAdd("s", 1, Now)
    Loop
    IE.Quit
    Set IE = Nothing
    
End Sub