Webseiten-Inhalte per VBA in TextBox darstellen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox MsgBox
Bild

Betrifft: Webseiten-Inhalte per VBA in TextBox darstellen
von: blueprint
Geschrieben am: 27.10.2015 21:02:39

Liebe Community Mitglieder,
ich möchte gerne per VBA Inhalte einer HTML Webseite in einer TextBox darstellen.
Das aufrufen der Website funktioniert bereits.
Leider schaffe ich es aber nicht die Informationen von der Webseite in der TextBox darzustellen.
Beispiel HTML Code
https://www.herber.de/bbs/user/101083.txt
der Beispiel HTML-Code sollte wie folgt in der TextBox dargestellt werden.
Max Mustermann
Musterstraße
City 80000
Deutschland
Wäre super, wenn mir jemand weiterhelfen könnte.
Schon einmal Danke im Voraus.
VG Blueprint

Bild

Betrifft: AW: Webseiten-Inhalte per VBA in TextBox darstellen
von: Michael
Geschrieben am: 28.10.2015 17:07:18
Hi Blueprint,
ich habe die Funktionalität in eine Function verpackt, die hier im Beispiel mit dem Text aufgerufen wird, der in B2 steht.

Option Explicit
Function auswerten(ByVal svon As String) As String
Dim snach$, i&
Dim a As Variant, b As Variant
svon = Range("B2").Value
a = Split(svon, "")
With CreateObject("htmlfile")
    .Open
    For i = LBound(a) + 1 To UBound(a)
      b = Split(a(i), "")
      .write b(0) & "!!"
    Next
    .Close
    snach = .body.outerText
End With
a = Split(snach, "!!")
snach = ""
For i = LBound(a) To UBound(a)
   svon = Trim(LTrim(a(i)))
   If Len(svon) > 0 Then snach = snach & svon & vbLf
Next
auswerten = snach
End Function
Sub aufrufen()
  MsgBox auswerten(Range("b2").Value)
End Sub
Die Übernahme in eine Textbox kannst Du dann selbst vornehmen, ebenso die Entfernung des "," nach City.
Happy Exceling,
Michael

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Webseiten-Inhalte per VBA in TextBox darstellen"