Clever-Excel-Forum

Guten Tag zusammen
Ich möchte gerne aus einem WebBrowser1-Elemente in einer UserForm (Excel) die Formelemente (Text, Input usw.) auslesen. Wie könnte das funktionieren. Bis jetzt habe ich folgendes, was nicht richtig funktioniert.
Vielen Dank für Eure geschätzten Hinweise.
LG Stefan1

Code:
Public Sub procElementeAnzeigen()

    On Error Resume Next

    Dim doc As Object

    Dim docI As Object

    Dim AnzahlForm As Long

    Dim i As Integer

    Dim AnzahlElemente As Integer

    Dim y As Integer

    Dim Element As String

    Dim name As String

    Dim typ As String

    Dim val As String

    Dim chec As String

    Dim oncl As String

    Me.txtSteuerElemente.Value = ""

Set doc = WebBrowser1.Document

Set docI = doc.forms.Item(0)

    AnzahlForm = docI.length

    For i = 1 To AnzahlForm

      With docI.Item(i)

        name = .name

        typ = .typ

        chec = .Checked

        oncl = .OnClick

        val = .Value

            Element = "Name: " & name & _

              "; Typ: " & typ & _

              "; Value: " & val & _

              "; Checked: " & Checked & _

              "; onClick: " & oncl

          Me.txtSteuerElemente.Value = Me.txtSteuerElemente.Value & (vbCrLf & Element)

      End With

    Next i

Set doc = Nothing

Set docI = Nothing

  End Sub

Hallo Stefan,

was heißt denn "... nicht richtig ..." ? Was geht, und was nicht? Bleibt der Code irgendwo hängen, gibt es Fehlermeldungen, kommen nicht die richtigen Ergebnisse ...?

Was ist Me.txtSteuerElemente?
Wo nimmst Du WebBrowser1 her?
... ?

Stefan1

schauan