ich versuche seit 3 Stunden aus einem geöffneten Internet Explorer den Inhalt einer bestimmten Element ID zu kopieren und in Excel einzufügen. Folgenden Code habe ich dazu gefuunden:
Sub b()
Dim objShell As Object, neu As Worksheet
Dim win As Object, IEDoc As Object
Set objShell = CreateObject("Shell.Application")
For Each win In objShell.Windows
If InStr(1, UCase(win.FullName), "IEXPLORE.EXE") 0 Then
If win.Document.Title = "Test" Then 'Test anpassen
AppActivate win.Document.Title
Set IEDoc = win.Document
'''' bis hier gehts jedoch keine der 4 nachfolgenden Varianten geht: ''''
userid = IEDoc.getElementById("userLogin").innerText
userid = IEDoc.Document.All("userLogin").innerText
userid = IEDoc.getElementById("userLogin").value
userid = IEDoc.Document.All("userLogin").value
Range("D4") = userid
End If
End If
Next
Set objShell = Nothing
End
Sub
Ich würde mich wahnsinnig freuen, wenn mir einer sagen kann, wie ich den Wert der o.g. ID _
auslesen und in Excel einfügen kann. Der Name der ID ist richtig, das hab ich mehrfach geprüft.
Vielen Dank im Voraus.
Thomas