XMLHTTP - ResponseText aktualisieren
08.12.2022 15:07:24
Speedy
ich erzeuge mittels MSXML2.XMLHTTP und responseText ein htmlDocument, da ich administrativ kein Internet Explorer Application öffnen kann.
Das klassische und auch ehemals funktionierende:
Set ieApp = CreateObject("InternetExplorer.Application")
Die alternative Lösung war das html-Dokument über die Funktion:
Function DataRead(Optional Link As String = "", _
Optional ByRef XMLReqAnfrage As MSXML2.XMLHTTP60)
Dim XMLReq As MSXML2.XMLHTTP60
Dim htmlDoc As New MSHTML.htmlDocument
Dim HTMLLinks As MSHTML.IHTMLElementCollection
Dim HTMLLink As MSHTML.IHTMLElement
Dim Hy As Hyperlink
If UCase(TypeName(XMLReqAnfrage)) = "NOTHING" And Link "" Then
Set XMLReq = New MSXML2.XMLHTTP60
XMLReq.Open "Get", Link, False
Set XMLReqAnfrage = XMLReq
XMLReq.send
ElseIf Link = "" Then
Set DataRead = Nothing
Exit Function
Else
Set XMLReq = aktXMLReq
End If
Do Until XMLReq.Status = 200
Sleep 100
Loop
htmlDoc.body.innerHTML = XMLReq.responseText
Set DataRead = htmlDoc
End Function
Jetzt habe ich aber festgestellt, dass die Seite noch in Englisch angezeigt wird...
Hier kann ich über eine Schleife nach dem entsprechenden "HTMLSelectElement" suchen und es mittels
For Each Element In my_Elements.all
If InStr(1, UCase(Element.outerText), "DEUTSCH") 0 And _
Element.Selected = False and _
TypeName(Element) = "HTMLSelectElement" Then
Element.Selected = True
End If
Next Element
Gibt es eine Möglichkeit dies:
1. im Vorfeld schon auf Deutsch umzustellen oder
2. das htmlDocument über das Event "onchange" zu aktualisieren oder
3. das MSXML2.XMLHTTP60 als globale Variable nach der Aktualisierung (die Frage wäre hier wie ich dieses aktualisiere) neu einzulesen
- Senden von Parameteren mittels MSXML2.XMLHTTP60.Open "POST", ...
Hier komme ich einfach nicht weiter ... :-(