Ga terug   Computer Idee Forum > Computer Idee > Vraag het de redactie - (geen technische vragen)

Antwoord
 
Discussietools Weergave
Oud 17 June 2013, 20:17   #1
anoniem31258
Guest
 
Berichten: n/a
Standaard BoekZoeker werkt niet meer

Ik gebruik het programma BoekZoeker van deze site.
Het probleem is dat telkens de www.titelbank.nl verandert van hoe inhoud op de website het is mij telkens gelukt om dit zelf aantepassen. Maar nu lukt mij niet meer de isbn nummer komt terecht bij auteur. kun jullie mij helpen. hieronder de macro die ik gebruik van jullie en aangepast heb.

Sub BoekZoeker()
Dim website As String
Dim ISBN As String
Dim ie As Object
If [L1] = 2 Then 'andere browsers
ThisWorkbook.FollowHyperlink Address:="https://www.titelbank.nl/pls/apextvp/f?p=103:4010:4373868353174361:::::", NewWindow:=True
Else: 'Internet Explorer
Opnieuw:
On Error GoTo Stoppen 'Stop bij Annuleren
Application.InputBox("Klik op de cel met het ISBN waarvan u het boek wilt opzoeken.", Type:=8, Title:="ISBN zoeker", Default:=ActiveCell.Address).Select
If Selection.Value <> "" And IsNumeric(Selection.Value) Then
ISBN = Selection.Value
website = "https://www.titelbank.nl/pls/apextvp/f?p=103:4010:4373868353174361:::::"
Set ie = CreateObject("internetexplorer.Application")
With ie
.Visible = True
.navigate website
Do While .Busy: DoEvents: Loop
Do While .ReadyState <> 4: DoEvents: Loop
.document.forms(0).Item(10).Value = ISBN
End With
Else: Antwoord = MsgBox("U hebt geen geldige waarde ingevoerd." & vbCrLf & "Nog eens proberen?", vbYesNo)
If Antwoord = vbYes Then GoTo Opnieuw
End If
Set ie = Nothing
End If
Stoppen:
ActiveSheet.Shapes("AutoShape 20").Select 'Zet de pijltoetsen weer in werking
ActiveCell.Select
End Sub



Alvast bedankt
  Met citaat antwoorden
Oud 22 June 2013, 11:03   #2
anoniem13291
Guest
 
Berichten: n/a
Standaard

Plaats je code eens in een codetag zodat de juiste inspringpunten ook zichtbaar zijn.
Op deze manier is het erg vervelend lezen en kan ik me voorstellen dat niemand er aan begint.
Een voorbeeld van je document erbij zou ook handig zodat informatie in door de code gebruikte cellen ook zichtbaar is.

Laatst gewijzigd door Edmoor : 22 June 2013 om 11:07
  Met citaat antwoorden
Oud 22 July 2013, 12:06   #3
anoniem54341
Guest
 
Berichten: n/a
Standaard

Dag Novan,
Wim de Groot heeft een nieuwe versie gemaakt van zijn BoekZoeker. Via deze link kun je die rechtstreeks van de site van Computer IDee downloaden: http://www.computeridee.nl/sites/com...sbn-zoeker.xls
Mvg

Redactie Computer Idee
  Met citaat antwoorden
Antwoord

Discussietools
Weergave

Regels voor berichten
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Aan
Smileys zijn Aan
[IMG]-code is Aan
HTML-code is Uit

Forumnavigatie


Alle tijden zijn GMT +1. Het is nu 00:32.


Powered by vBulletin Version 3.8.6
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.