excel-vba-DH Klick auf eine Schaltfläche

Durch Excel und VBA, ich bin die Eröffnung eines Seite.

Ich möchten, klicken Sie auf die Schaltfläche 'Erweitern' über vba, aber ich erhalte eine Fehlermeldung.

Ich habe versucht, mit beiden VBA-Befehle nachfolgend

Doc.getElementsByClassName("dhl-btn-main collapse-btn-expand-all")(0).Click
Doc.getElementsByClassName("dhl-btn-main collapse-btn-expand-all").Click

Den Fehler, den ich bekomme, ist
Run-time error '438': Objekt unterstützt diese Eigenschaft oder Methode nicht.

  • Ich hatte IE8 , wenn ich ein Upgrade auf IE10 es gelöst das Problem
InformationsquelleAutor user2543622 | 2014-03-26
  1. 2

    Davon aus, dass "Doc" ist Ihr Verweis auf IE versuchen Sie dies:

     Set ElementCol = Doc.document.getElementsByClassName("dhl-btn-main collapse-btn-expand-all")

 For Each btnInput In ElementCol
    btnInput.Click
 Next btnInput

    Beispiel Arbeiten:

    Private Sub IE_Expand()
    Dim i As Long
    Dim IE As Object
    Dim objElement As Object
    Dim objCollection As Object

    ' Create InternetExplorer Object
    Set IE = CreateObject("InternetExplorer.Application")

    'IE.Visible = False

    IE.Navigate "https://dhli.dhl.com/dhli-client/shipmentair;jsessionid=q3tzTzyLcL7JkxkNQ4nv7Jtrpzk1glylCyJ7vJzT27h2xBG5zXSm!599496067?0&shipmentId=151218573&accountGroup"

    ' Wait while IE loading...
    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop

    IE.Visible = True

    Set ElementCol = IE.document.getElementsByClassName("dhl-btn-main collapse-btn-expand-all")

    ElementCol.Item(0).Click

    ' Clean up
    Set IE = Nothing
    Set objElement = Nothing
    Set objCollection = Nothing

    Application.StatusBar = ""
End Sub
    InformationsquelleAutor Portland Runner
Schreibe einen Kommentar