Elektronik Bauteile suchen
15.11.2016 21:57:24
stef26
ich lese gerne in diesem Forum und versuche durch die Beiträge so langsam in die VBA Welt zu gelangen.
Ich habe einen interessanten Beitrag gelesen, den ich aktuell in ähnlicher Weise selbst benötige.
Ich habe in meiner Tabelle eine Liste mit Namen elektronischer Bauteile.
Ich möchte diese in einer Webseite suchen und die Suchergebnisse (Zeile) dann zurückgeben lassen.
Diesen Code habe ich gefunden, weiß aber leider nicht, wie ich das anpassen muss..
Sub SplitURLsToCells()
Dim iLastRow As Long, i As Long
Dim IEApp As Object
Dim strURL As String
Set IEApp = CreateObject("InternetExplorer.Application")
iLastRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row
IEApp.Visible = True
IEApp.navigate "https://www.pcb-factory.de/"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.document.readyState = "complete"
For i = 2 To iLastRow
With IEApp.document.all
.searchValue.Value = Cells(i, 1)
.doSubmit(2).Click
Do: Loop Until IEApp.document.readyState = "complete"
strURL = IEApp.LocationURL
Cells(i, 2) = Right(strURL, Len(strURL) - InStrRev(strURL, "/"))
End With
Next
Set IEApp = Nothing
End Sub
Stefan