Wie klicken Sie auf einen hyperlink auf einer web-Seite mit vba-excel?

Ich bin neu in der excel vba Programmierung. Ich habe versucht, Sie zum klicken auf einen hyperlink auf einer web-Seite mit excel-vba von fast 3 Tage jetzt. Bitte helfen Sie mir. Da bin ich neu hier ich hätte eine Menge Fehler. Verzeihen Sie mir.

Ist das Szenario :
Eine bestimmte web-Seite hat eine Tabelle mit der ersten Spalte als icon, zweite Spalte ist ein hyperlink und ein paar mehr Spalten mit einer Beschreibung über den hyperlink.

Jetzt, ich möchten, klicken Sie auf den hyperlink in der ersten Zeile (zweite Spalte).
Wenn wir den Mauszeiger über das Symbol in der gleichen Zeile(in der ersten Spalte) die gleichen hyperlink angezeigt werden soll.

Diese Webseite ist dynamisch, daher die Tabelle ändert sich ständig. Eigentlich die Tabelle ist ein Ergebnis einer eingegebenen Suchkriterien.

Ich geschrieben habe, eine Menge von codes von drei Tagen.
Dies ist das Letzte, das nicht funktioniert:

'Bekommen element-id für die Zeile

With elementid = ieApp.document.all.Item("abcrow1")
   'checking for details with tagname as "a"
   Set tagname = ieApp.document.getElementByTagName("a")

   For Each tag In tagname
     'Get value of the href
     hrefvalue = tag.href.value
   If Not IsNull(hrefvalue) Then
     If hrefvalue <> "javascript:void(0);" Then  'this href is usedto describe the icon
        hrefvalue = ieApp.document.href.value

        hrefvalue = "https://www.secur.com" & hrefvalue
        ieApp.Navigate hrefvalue
        Exit For
     End If
   End IF
Next tag
End With

Den HTML-Skript ist wie folgt:

 <tr id = "abcrow1" class="e1">
   <td class = "icon"></td>
   <td><ul class="xyz" id="link">
       <li><a href = "javascript:void(0);"><img src="/nnn.gif" border = 0 alt = "info"         </a>
       <ul>
       <li><a onclick ="return cursorWait(this);" href = "/xyz/lmo">DetailOfRow1</a></li></ul></td>
   <td style = "text-align:left"><aonclick="return cursorWait(this);" href = "/xyz/lmo">DetailOfRow1</a></td></tr>

Bitte helfen Sie mir. Danke.

InformationsquelleAutor user3174245 | 2014-01-08
  1. 0

    Funktioniert das? Wenn nicht, was tun hrefvalue_1 und hrefvalue_2 auswerten? 

    Set Tagname = ieApp.document.getElementsByTagName("a")
For Each Tag In Tagname
    If InStr(1, Tag.innertext, "DetailOfRow1", vbTextCompare) > 0 Then
        hrefvalue_1 = Tag     ' tag may contain "about:", if so remove it
        hrefvalue_2 = Replace(Tag, "about:", "", 1, -1, vbTextCompare)
        hrefvalue_3 = "https://www.secur.com" & hrefvalue_2
        ieApp.Navigate hrefvalue
        Exit For
    End If
Next Tag

    Es ist ein wenig schwer zu finalisieren, ohne Zugang zu der url, aber etwas in diese Richtung sollte funktionieren...

    With elementid = ieApp.document.all.Item("abcrow1")
 'checking for details with tagname as "a"
 Set tagname = ieApp.document.getElementByTagName("a")

 For Each tag In tagname
   'Get value of the href
  If InStr(1, tag.getAttribute("href"), "javascript:void(0);", vbTextCompare) = 0 Then       
     hrefvalue = tag
     hrefvalue = "https://www.secur.com" & hrefvalue
     ieApp.Navigate hrefvalue
     Exit For
  End If
 Next tag
End With
    • Danke. Eine Menge meiner Probleme gelöst nach der Integrierung Ihren Vorschlag. Aber ich bin noch nicht in der Lage zu navigieren, um den link erwähnt, in der letzten Zeile des html-Codes. `
    • Wie bekomme ich das Attribut "style"? Ist das richtig, weil es scheint nicht zu funktionieren: If Instr(1,tag.getAttribute("Style"),"tex-align:left",vbTextCompare)<>0 Then navigieren Sie zum link in href.
    InformationsquelleAutor ron
Schreibe einen Kommentar