per VBA auf Website navigieren

Guten Tag miteinander
Ich stehe vor einem VBA Problem bei dem ich nicht mehr weiterkomme und auf Eure Hilfe hoffe.
Mittels folgendem Code hole ich mir eine bestimmte Seite aus unserem Firmen-Intranet auf die Userform:

Private Sub UserForm_initialize()
WebBrowser1.Navigate "http://intranet.testfirma.com.ch/forms/einsatzplan.asp"
End Sub

Nun wird mir schon mal die richtige Start-Seite (Einsatzplan) gelande und auf der UserForm angezeigt.
Mein Problem ist nun.
Auf dieser Seite müssen zuerst aus total 7 Dropdowns weitere Kriterien ausgewählt werden und anschliessend auf
eine Schaltfläche "Anzeigen" gedrückt werden, ehe der korrekte Einsatzplan angezeigt wird.
Wenn ich mir den Quellcode der Seite näher ansehe, so erkenne ich diese Dropdowns in der Art:
option value="1093" class="pcsDropColorGrauHell
-> Abteilung Werkstatt 1 option
(habe im obigen Code ein paar "grösser/kleiner" - Zeichen weglassen müssen, damit dies hier überhaupt angezeigt wird. un zwar steht ein Wusste leider nicht wie ich das hier reinschreibe, damit dies korrekt angezeigt wird.
Kann mir jemand verraten, wie ich nun diese Dropdowns so übergebe (in den Code einbaue) dass mir letztendlich der
Korrekte Einsatzplan des aktuellen Monats angezeigt wird ?
Bin Euch für jegliche Hilfe dankbar !

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Guten Abend lieber Arthur
vorab herzlichen Dank für Deinen Hinweis, im Bereich von "GetElementbyID" zu suchen. Ich habe mich da nun übers Wochen-Ende etwas schlau gemacht und nun folgenden Code zusammengebastelt, der mir auch wirklich den gewünschten Schichtenplan nun öffnet. :-)

Private Sub UserForm_initialize()
'Frm_Schichtplan.Caption = "Schichtplan"
'WebBrowser1.Navigate "http://einsatzplan.asp"
Dim IEApp As Object
Dim IEDocument As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = True
IEApp.Navigate "http://einsatzplan.asp"
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.Document
Do: Loop Until IEDocument.ReadyState = "complete"
IEDocument.getElementById("v_o").Value = "1094"
IEDocument.getElementById("v_alleanz").Value = "1"
IEDocument.getElementById("v_nurleiter").Value = "0"
IEDocument.getElementById("v_legendejn").Value = "Ja"
IEDocument.getElementById("v_team").Value = "Alle"
IEDocument.getElementById("v_monat").Value = "10"
IEDocument.getElementById("v_go").Click
End Sub

Der obige Code öffnet mir nun den Schichtenplan wie gewünscht. Allerdings möchte ich diesen nicht in einem Fenster des IE öffnen, sondern auf meiner Userform im WebBrowser1 - Element.
wie also kann ich meinen obigen Code so umbauen, dass mir das Resultat in meinem Webbrowser1 - Element auf der Userform und nicht in einem separaten Browserfenster angezeigt wird ?
Herzlichen dank für die Unterstützung
Grüsse: Selina

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

per VBA auf Website navigieren

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread