Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.05.2025 16:19:36
20.05.2025 15:34:36
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Internet Formular ausfüllen

Internet Formular ausfüllen
15.01.2009 11:43:23
Hans
Hallo
Ist es möglich per VBA das folgende Formular auszufüllen und die Schaltfläche "Suchen" zu betätigen, sodass das Ergebnis im Internetexplorer angezeigt wird.
URL: http://www.ictax.admin.ch/extern/faces/searchInstrument.xhtml?lang=de
Gibt es mit "SendKeys" eine sichere Möglichkeit?
Vielen Dank für die Hilfe
Hans
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Internet Formular ausfüllen
15.01.2009 13:40:48
Tino
Hallo,
geht es hiermit?

Sub WebausFuellen()
Dim appIE As Object
Set appIE = CreateObject("InternetExplorer.application")
'False ist unsichtbar    True ist Sichtbar
appIE.Visible = True
'Webseite?
appIE.Navigate "http://www.ictax.admin.ch/extern/faces/searchInstrument.xhtml?lang=de"
While Not appIE.ReadyState = 4 'Warte auf Webseite
DoEvents
Wend
'Jahr 0=2010; 1=2009; 2=2008; 3=2007 usw. bis 2001
appIE.Document.all.searchInstrumentBean_referenceDate.Value = "2"
'Valorennummer:
appIE.Document.all.instrumentSearchCriteriaBean_valorNumber.innerText = "1599"
'Gesellschaftsbezeichnung
appIE.Document.all.instrumentSearchCriteriaBean_name.innerText = "Hallo Test"
'Suchen
appIE.Document.all.DefaultButton.Click
''Webseite schliesen
'appIE.Quit
Set appIE = Nothing
End Sub


SendKeys würde ich vermeiden.
Gruß Tino

Anzeige
AW: Internet Formular ausfüllen
16.01.2009 08:55:00
Hans
Hallo Tino
Das funktioniert wunderbar, vielen Dank!
Gruss Hans

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige