Microsoft Excel

Herbers Excel/VBA-Archiv

Suchfeld Website mit VBA befüllen


Betrifft: Suchfeld Website mit VBA befüllen von: Michael
Geschrieben am: 08.01.2018 15:10:43

Hi, ich möchte mit dem angehängten Code die Website octopart.com öffnen, einen Eintrag in das Suchfeld machen und dann den "Suchen" Button betätigen. Der Code bleibt bei der Stelle "Set searchtxt = .document.getelementbyid("q")" hängen. Mit Google.com bekomme ich es hin. Weiß jemand wo das Problem liegen könnte? Viele Grüße

  • 
    Sub PreisermittlungIE()
    
    Dim ie As Object
    
    Set ie = CreateObject("internetexplorer.application")
    
    With ie
        .Visible = True
        .navigate "https://www.octopart.com"
    
    Do While .busy
        DoEvents
    Loop
    
    Do While .readystate <> 4
        DoEvents
    Loop
    
    Application.Wait (Now + TimeValue("00:00:10"))
    
    Set searchtxt = .document.getelementbyid("q")
    
    searchtxt.Value = "123456"
    
    .document.forms(0).submit
    
    Do While .busy
        DoEvents
    Loop
    
    Do While .readystate <> 4
        DoEvents
    Loop
    
        .Quit
    
    End With
    
    End Sub

  •   

    Betrifft: doppelt.. von: UweD
    Geschrieben am: 08.01.2018 15:13:27




      

    Betrifft: Doppelt owT von: SF
    Geschrieben am: 08.01.2018 15:13:32