mit folgendem Code lade ich mir den Inhalt von Webseiten herunter und speichere ihn in einer Exceltabelle:
Sub auslesen()
Dim htm As Object
Set htm = CreateObject("HTMLfile")
URL = "https://www.insolvenzbekanntmachungen.de/cgi-bin/bl_aufruf.pl?PHPSESSID= _
8ecbeb942c887974468b9010531fc7ab&datei=gerichte/nw/agkoeln/16/0071_IN00181_16/2016_06_10__11_53_26_Anordnung_Sicherungsmassnahmen.htm"
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", URL, False
.send
htm.body.innerHTML = .responseText
Cells(1, 1) = .responseText
End With
Beschreibung = htm.getElementsByTagName("body")(0).innerText
Cells(1, 2) = Beschreibung
End Sub
In Zelle A1 steht nun der Quelltext der Website und in Zelle B1 der "Klartext" des Body. Nun muss ich noch aus Zelle A1 den Inahlt von auslesen.
Mit dem nachfolgenden Code funktioniert das, wenn mann die Seite zunächst mit dem Internet Explorer öffnet, was ich aber nicht möchte.
Sub GetData() Dim ie As New InternetExplorer Dim str As String Dim wk As Worksheet Dim webpage _
As New HTMLDocument Dim item As HTMLHtmlElement
Set wk = Worksheets(1)
str = "https://www.insolvenzbekanntmachungen.de/cgi-bin/bl_aufruf.pl?PHPSESSID= _
8ecbeb942c887974468b9010531fc7ab&datei=gerichte/nw/agkoeln/16/0071_IN00181_16/2016_06_10__11_53_26_Anordnung_Sicherungsmassnahmen.htm"
ie.Visible = True
ie.navigate str
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
'Find the proper meta element --------------
Const META_TAG As String = "META"
Const META_NAME As String = "keywords"
Dim Doc As HTMLDocument
Dim metaElements As Object
Dim element As Object
Dim kwd As String
Set Doc = ie.Document
Set metaElements = Doc.all.tags(META_TAG)
For Each element In metaElements
If element.Name = META_NAME Then
kwd = element.Content
End If
Next
MsgBox kwd
End Sub
Ich habe versucht, die Zeile
Set Doc = ie.Document
anzupassen, z.B.
Set Doc = cells(1,1,)
oder
Set Doc = htm
ohne Erfolg.
Kann mir da jemand weiterhelfen?
Gruß
Martin