Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1040to1044
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige