Option Explicit
Sub Anmeldung_Bei_Microsoft()
Dim IEApp As Object, frage As String
Dim i As Integer, IEDoc As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate "www.bing.de"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Document.ReadyState = "complete"
IEApp.Visible = True
IEApp.Document.getelementbyid("sb_form_q").Value = Range("B4").Value
Set IEDoc = IEApp.Document
Do: Loop Until IEDoc.ReadyState = "complete"
For i = 0 To IEDoc.all.Length - 1
Debug.Print i & vbTab & IEDoc.all.Item(i).innertext & vbTab _
& IEDoc.all.Item(i).nodeName
Next i
Set IEApp = Nothing
End Sub
Link: http://www.formws.onlex.de/javascript-ecke/formularueberpruefung.html
|