VBA-Lösung zum Auslesen von URL's gesucht

Hi,
ich benötige für Excel 2007 eine VBA-Lösung, mit der ich aus Internet-Websites enthaltene URL's extrahieren und z.B. in ein textfile schreiben kann.
Sodaß ich z.B. aus dem Quelltext der jeweiligen Website die tatsächliche URL-Adresse und nicht lediglich den Hyperlink herauslesen kann.
Wenn ich z.B. im Internet-Explorer die Hyperlinks markiere und kopiere, erhalte ich nur den Hyperlink, nicht die URL-Adresse. Erst wenn ich die Eigenschaften des Hyperlinks aufrufe, kann ich die URL-Adresse sehen. Bei vielen Hyperlinks auf der Seite ist das recht mühsam, ich denke das müsste man doch automatisieren können, oder ?
Leider habe ich nichts gefunden, was mich weiterbringt, könnte mir jemand Tipps geben, wie ich vorgehen könnte ?

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

HAllo
Was gesscheiteres ist mir jetzt nicht dazu eingefallen.
Eine Webabfrage auf die Seite in ein Temporäres Blatt einfügen.
Die Hyperlinks auslesen und in die Textdatei schreiben.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub Machs()
Dim TMP As Worksheet
Dim Hl
Dim Log_datei
Dim Arr
Dim FSO
Dim L As Long
Set FSO = CreateObject("Scripting.filesystemobject")
Set Log_datei = FSO.CreateTextFile("c:\test.txt", True)

Set TMP = Worksheets.Add
With TMP.QueryTables.Add(Connection:= _
        "URL;http://www.Deine_Webseite/body.html", Destination:=Range("A1"))
    .Name = "body"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = False
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlEntirePage
    .WebFormatting = xlWebFormattingAll
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = False
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
End With
Set Hl = TMP.Hyperlinks
Redim Arr(Hl.Count)
For L = 1 To Hl.Count
    Arr(L - 1) = Hl(L).Address
Next
With Log_datei
    .Write Join(Arr, vbCrLf)
    .Close
End With
Application.DisplayAlerts = False
TMP.Delete
Application.DisplayAlerts = True
End Sub

ransi

Beliebteste Forumthreads (12 Monate)

VBA-Lösung zum Auslesen von URL's gesucht

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread