Felder im IE-Popup aus Excel befüllen
28.02.2020 12:24:01
Le
als Leihe habe ich es nach langem zusammensuchen aus verschieden Foren geschaft, folgendes hinzubekommen. Dabei handelt es sich um ein Lieferantenportal, in dem im täglich Projekte mit Daten befüllen möchte.
Aus Excel öffne ich den IE und navigiere zu dem Lieferantenportal, logge mich mit meinen Anmeldedaten ein und navigiere weiter zum Projekt.
Dort befülle ich sämmtliche Eingabefelder.
Hier starte ich ein Popup in einer neuen IE Registerkarte in dem eine Sucheingabe getätigt werden soll.
Hier komme ich nicht weiter, da ich es nicht schaffe das Suchfeld in der neuen Registerkarte zu befüllen. Ich freue mich über eure Hilfe!
Hier mein bisheriger Code:
Sub Übertragen()
Dim IEApp As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate "https://beispiel.php"
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
IEApp.Document.form1.elements("user").Value = Range("B35")
IEApp.Document.form1.elements("pass").Value = Range("B36")
IEApp.Document.form1.submit
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
IEApp.Navigate Range("B37")
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
IEApp.Document.projektform.elements("a").Value = Range("G23")
IEApp.Document.projektform.elements("b").Value = Range("G19")
IEApp.Document.projektform.elements("c").Value = Range("I23")
IEApp.Document.projektform.elements("d").Value = Range("I19")
IEApp.Document.projektform.elements("e").Value = Range("K23")
IEApp.Document.projektform.elements("f").Value = Range("K19")
IEApp.Document.projektform.elements("g").Value = Range("M23")
IEApp.Document.projektform.elements("h").Value = Range("M19")
IEApp.Document.projektform.elements("i").Value = Range("O23")
IEApp.Document.projektform.elements("j").Value = Range("O19")
IEApp.Document.projektform.elements("k").Value = Range("Q23")
IEApp.Document.projektform.elements("l").Value = Range("Q19")
IEApp.Document.projektform.elements("m").Value = Range("S23")
IEApp.Document.projektform.elements("n").Value = Range("S19")
IEApp.Document.projektform.elements("staffel_dauer1").Value = "1"
IEApp.Document.projektform.elements("staffel_dauer2").Value = "2"
IEApp.Document.projektform.elements("staffel_dauer3").Value = "3"
IEApp.Document.projektform.elements("staffel_dauer4").Value = "4"
IEApp.Document.projektform.elements("staffel_dauer5").Value = "5"
IEApp.Document.projektform.elements("staffel_dauer6").Value = "6"
IEApp.Document.projektform.elements("aa").Value = Range("B5")
IEApp.Document.projektform.elements("bb").Value = Range("B9")
IEApp.Document.parentwindow.execScript "popupWindow('popup_sc_beispiel_search.php?from=projekt& _
projekt=89602', 'Suche');", "javascript"
Do
Loop While ie.Busy
IEApp2.Document.form1.elements("search_name").Value = Range("B1")
IEApp2.Document.form1.submit
End Sub