Hallo,
zur Zeit schreibe ich ein Programm in VBA um eine Webseite anzusteuern. Es soll folgendes tun:
1.) Ein Textfeld ausfüllen.
2.) Der Cursor soll auf das Textfeld gesetzt werden.
3.) Die Enter Taste wird gedrückt.
Bei dem Feld in HTML handelt es sich um einen Tag mit javascript. Sieht so aus:
TextText<BR><INPUT style="WIDTH: 140px" onkeydown="if(window.event.keyCode == 13){location.replace('DispatchEmailLink.aspx?AnfoNr='+document.getElementById('theanfono').value);return false;}" id=theanfono size=5 type=text>
Ich bin mit meinem VBA Code soweit, dass ich das Textfeld bereits ausfüllen kann (letzte Zeile im Code):
Dim IEApp As Object, frage As String
Dim i As Integer, IEDoc As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate "http://seite.aspx"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.document.readyState = "complete"
IEApp.Visible = True
Set IEDoc = IEApp.document
IEApp.document.getelementbyid("theanfono").Value = 11111
Wie geht es weiter? Ich vermute ich muss in der IEApp.document javascript ansteuern geht das vielleicht so?
execScript("???", "JavaScript")
Kann mir da jemand helfen?
|