AW: BookmarkS.html auslesen
05.11.2006 21:50:57
Oberschlumpf
Hi Reinhard Hi Ronny - wer nun? oder 2 Namen = 1 Person?
Versuch es mal hiermit:
Sub html()
Dim lstrZeile As String, liAnfZ As Integer, liKB1 As Integer, liKB2 As Integer, liZeile As Integer, lstrHL As String
On Error GoTo Fehler:
liZeile = 1
Open "C:\DeineBookmarks.htm" For Input As #1 'Pfad anpassen!
Do While Not EOF(1)
Line Input #1, lstrZeile
If InStr(1, lstrZeile, "<A HREF=") > 0 And InStr(1, lstrZeile, "javascript") = 0 Then
liKB1 = InStr(1, lstrZeile, Chr(34) & ">") + 2
liKB2 = InStr(1, lstrZeile, "</")
Range("A" & liZeile).Value = Mid(lstrZeile, liKB1, liKB2 - liKB1)
lstrHL = Mid(lstrZeile, InStr(1, lstrZeile, "<A HREF=") + 9, liKB1 - InStr(1, lstrZeile, "<A HREF=") - 10)
Range("B" & liZeile).Select
lstrHL = lstrHL & "1"
Range("B" & liZeile).Hyperlinks.Add Anchor:=Selection, Address:=lstrHL, TextToDisplay:=lstrHL
liZeile = liZeile + 1
End If
Loop
Close
Exit Sub
Fehler:
If Err.Number = 1004 Then
Range("B" & liZeile).Value = lstrHL
Resume Next
End If
End Sub
Ich konnte nicht alle Links "auflösen". Entweder sind es zu viele Parameter, oder ich krieg es nicht hin.
Wenn Link nicht auflösbar, habe ich den Link als Nur-Text in Spalte B geschrieben.
Konnte ich helfen?
Ciao
Thorsten