InternetExplorer geht auf
Seite wird geladen
input1 wird beschrieben
aber:
textarea1 wird nicht beschrieben.
Der Code läuft durch und wirft keinen Fehler aus. Kann mir jemand sagen was ich falsch mache?
Zur Info eigentlich will die kopierte Range später in das textarea Feld einfügen. Das schreiben des Values ist nur der erste Test. Wenn also jemand einen alternativen Weg zum Copy und Paste in das Feld kennt, dann bringt mich das auch ans Ziel. Ich hatte es schon mit der Navigation über Sendkeys und Tab probiert, damit komme ich ins Feld, allerdings weiß ich dann nicht wie ich einen Paste Befehl übergebe.
Anbei zunächst der HTML-Code der beiden Felder:
input1: input type='text' id='input1' value='' style='width:66px;' class='dropdownHost' autocomplete='off' tabindex='0'
texarea1: textarea id='textarea1' name='Description' style='width:200px; height:100px; resize:none;' tabindex='0'
Und jetzt der Code:
Private Sub CommandButton2_Click()
Dim IEApp As Object
Range("A2:F17").Select
Selection.Copy
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate "https://beispielseite.beispiel.net"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
With IEApp.Document
Do: Loop Until .readystate = "complete"
.getelementbyid("textarea1").Value = "test"
.getelementbyid("input1").Value = "Prio 1"
End With
Set IEApp = Nothing
End Sub