@ Piet, Makro, das Links von Internetseiten auflistet

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

For Each objLink In objLinks lngCount = lngCount + 1 lshTab2.Cells(lngCount, 2) = objLink.href lshTab2.Cells(lngCount, 3) = "'" & objLink.outertext Next

For Each objLink In objLinks if lngCount=0 then lngCount =2 lshTab2.Cells(1, lngCount) = objLink.href lshTab2.Cells(2, lngCount,) = "'" & objLink.outertext lngCount = lngCount + 2 Next

Hallo zusammen,

ich nehme an, was gesucht ist, ist das hier:
(Ich habe den Code etwas entschlackt und die Variablen mit sprechenden Namen versehen.)



Sub LinksFromPages()

    Dim linksAll As Object

    Dim linkOne As Object

    Dim linkRow As Long

    Dim dataRow As Long

    Dim dataCol As Long

    Dim ws As Worksheet

    

    dataRow = 1

    dataCol = 2

    Set ws = ActiveWorkbook.ActiveSheet

    

    For linkRow = 1 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

        With CreateObject("InternetExplorer.Application")

            .Visible = False

            .navigate ws.Cells(linkRow, 1)

            Do While .busy: DoEvents: Loop

            

            Set linksAll = .document.getElementsByTagName("a")

            For Each linkOne In linksAll

                ws.Cells(dataRow, dataCol) = linkOne.href

                ws.Cells(dataRow, dataCol + 1) = "'" & linkOne.outertext

                dataRow = dataRow + 1

            Next linkOne

            

            dataRow = 1

            dataCol = dataCol + 2

            .Quit

        End With

    Next linkRow

End Sub

Das Problem dabei ist jedoch, dass der IE komplett veraltet ist. Deshalb funktioniert das Ganze bereits nicht mehr mit den Hotel-URLs aus der Beispielmappe. Der IE führt den enthaltenen JS Cade nämlich nicht aus, weshalb die Seite bis auf sehr wenige Elemente gar nicht aufgebaut wird. Einfach mal visible = True setzen und .Quit auskommentieren. Das dürfte mit vielen Seiten so sein, da der IE, wie gesagt, komplett veraltet ist.

Alternativ könnte xhr verwendet werden, wobei sich allerdings am Ende das gleiche Problem ergibt. Mit xhr wird genau ein Dokument vom WebServer abgerufen, welches dann genau in der ausgelieferten Form zur Verfügung steht. Es wird kein JS ausgeführt. Für beliebige Seiten ist das also auch unbrauchbar.

Die Lösung wäre vermutlich SeleniumBasic, um Chrome oder Edge zu automatisieren. Das muss aber installiert werden. Zusätzlich muss der WebDriver zum gewählten Browser installiert und aktuell gehalten werden. Letzteres lässt sich wohl auch automatisieren. SeleniumBasic kommt aber nur in Frage, wenn auf dem Rechner, auf dem gearbeitet wird, entsprechende Rechte bestehen. In Unternehmen bestehen diese Rechte regelmäßig nicht.

Es gibt auch einen Edge "Hack". Für diesen muss aber die Regestry manipuliert werden, was in Unternehmen ungefähr so gern gesehen ist, wie ein Weißer Hai beim Tauchen ;-) Ich habe diese Möglichkeit Edge direkt aus VBA zu steuern allerdings bisher selbst noch nicht ausprobiert.

Viele Grüße,

Zwenn

Beliebteste Forumthreads (12 Monate)

@ Piet, Makro, das Links von Internetseiten auflistet

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

@ Piet, Makro, das Links von Internetseiten auflistet

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread