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:
Ich bin mit meinem VBA Code soweit, dass ich das Textfeld bereits ausfüllen kann (letzte Zeile im Code):
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?
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:
HTML Code:
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>
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
execScript("???", "JavaScript")
Kann mir da jemand helfen?
Comment