VBA - Zoeken op internet en acties verrichten

[Roeland035]

Beste Forumleden,

Is het mogelijk om doormiddel van VBA (macro) te zoeken op het internet?
In mijn geval moet hij uit een tabelletje artikelnummers halen en die vervolgens op zoeken op een lokale website.
De stappen zijn als volgt:

1. Open weblink (dit is niet moeilijk te coderen)
2. Vul username en password in. (dit zijn twee tekstvelden onder elkaar)
3. Klik op enter.
5. Klik rechtsboven op de inputbox (hier kan je zoeken)
6. Vul artikelnummer in vanuit het tabelletje in excel en klik op enter.
7. Dubbelklik de eerste regel aan.
8. Dubbelklik op een cel in het geopende venster. (deze cel bevat de verkoopprijs).
9. Kopiëer 4e inputbox.
10. Print hem in Excel.

Dus nogmaals de vraag.
Is dit mogelijk en redelijk simpel te realiseren?
Indien dit mogelijk is zou dat heel veel tijd besparen!

 

[edmoor]

Kijk eens naar dit filmpje:
https://www.youtube.com/watch?v=q7aa76YFFW8

 

[Roeland035]

Kijk eens naar dit filmpje:
https://www.youtube.com/watch?v=q7aa76YFFW8

Ziet er goed uit!
Ik laat nog van mij horen!

 

[edmoor]

Met wt creativiteit moet je daar voldoende aan hebben lijkt me

 

[Roeland035]

Met wt creativiteit moet je daar voldoende aan hebben lijkt me

Haha inderdaad.

Ik kan al automatisch inloggen op de webpagina, maar loop nu een beetje vast om de inputbox van het zoekveld te selecteren.
Nog even goed kijken dus

 

[Roeland035]

Hij geeft een fout bij de 4e regel van de objIE.

Sub Search_Web()
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Top = 0
    objIE.Left = 0
    objIE.Width = 800
    objIE.Height = 600
    objIE.AddressBar = 0
    objIE.StatusBar = 0
    objIE.Toolbar = 0
    objIE.Visible = True 'We will see the window navigation
    
    objIE.Navigate ("http://nijhof.logictrade.nl/Article/Overview.aspx?WindowInstance=3&WindowRoot=True")
    Do
    DoEvents
    Loop Until objIE.ReadyState = 4
    
            pageSource = objIE.Document.body.Outerhtml
            
                objIE.Document.GetElementByID("btbUserName").Value = "helaas"
                objIE.Document.GetElementByID("btbPassword").Value = "bijnagekraakt"
                objIE.Document.GetElementByID("bbtnLogin").Click
                [COLOR="#FF0000"]objIE.Document.GetElementByID("ctl00_cphMaster_btbKeyword").Value = "A001506403"[/COLOR]
                
    Do
    DoEvents
    Loop Until objIE.ReadyState = 4
    MsgBox "Done!"
                
End Sub

Hij geeft de volgende fout:
"Objectvariabele of blokvariabele With is niet ingesteld.

Dit zegt hij over de rood gekleurde regel.

Enig idee waarom?

 

[edmoor]

Ik heb het nog nooit gebruikt dus ook geen idee. Het lijkt erop dat ctl00_cphMaster_btbKeyword niet juist is.

 

[Roeland035]

Ik heb het nog nooit gebruikt dus ook geen idee. Het lijkt erop dat ctl00_cphMaster_btbKeyword niet juist is.

Mja zou best kunnen. In de sourcecode kan ik namelijk dat zoekveld niet vinden. Het ID dat ik er nu neer heb gezet is gevonden door het element te inspecteren.

 

[Roeland035]

<input name="ctl00$cphMaster$btbKeyword" type="text" value="<- Filter ->" id="ctl00_cphMaster_btbKeyword" class="NormalTextBox NormalTextBoxNoInputEntered" onfocus="textbox_Focus('ctl00_cphMaster_btbKeyword');" onblur="textbox_Blur('ctl00_cphMaster_btbKeyword');" onkeydown="textbox_KeyDown('ctl00_cphMaster_btbKeyword', event)" noinputenteredtext="<- Filter ->" defaultclassname="NormalTextBox" style="width:125px;">

Dit zijn de resultaten uit het element inspecteren.

 

[edmoor]

Zoals ik al zei, ik heb daar nog nooit iets mee gedaan, maar ik zou dit proberen: ctl00$cphMaster$btbKeyword

 

[Roeland035]

Zoals ik al zei, ik heb daar nog nooit iets mee gedaan, maar ik zou dit proberen: ctl00$cphMaster$btbKeyword

Ja ik snap het
Maar ik gooi alle informatie in dit topic dat ik heb, voor het geval er iemand ander is die er meer gespecialiseerd in is.

Momenteel kan ik het niet testen aangezien ik niet meer op het werk ben en het een lokale website is.
Morgen weer een dag!

 

[edmoor]

Snap ik ook. Wellicht dat er iemand meeleest die er meer van weet. Maar ik ben wel benieuwd wat er gebeurd als je die gebruikt. Fijne avond

 

[Roeland035]

Snap ik ook. Wellicht dat er iemand meeleest die er meer van weet. Maar ik ben wel benieuwd wat er gebeurd als je die gebruikt. Fijne avond

Helaas, zelfde foutmelding

Op het web lees ik dingen over master pages en dat die een andere werking vereisen, maar wordt er niet veel wijzer van.

 

[pixcel]

Probeer het eerst eens voor elkaar te krijgen op een openbare pagina, dan kunnen helpers meekijken. Probeer bijv eens een zoekopdracht uit te voeren op http://www.logictrade.nl/