Text an gelbe Seiten schicken

Option Explicit Sub Test() Dim IEApp As Object Dim IEDocument As Object Dim Text As String Set IEApp = CreateObject("InternetExplorer.Application") 'IEApp.Visible = False IEApp.Navigate <a href=""http://www.gelbeseiten.de"">"http://www.gelbeseiten.de"</a> Do: Loop Until IEApp.Busy = False Do: Loop Until IEApp.Busy = False 'IEApp.Activate 'IEApp.SendKeys "abc" SendKeys "abc" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub tt() myUrl = <a href=""http://www.gelbeseiten.de"">"http://www.gelbeseiten.de"</a> Set IEApp = CreateObject("InternetExplorer.Application") IEApp.Navigate myUrl Do: Loop Until IEApp.Busy = False Do: Loop Until IEApp.Busy = False IEApp.Visible = True IEApp.Document.all.Subject.Value = "Galenzo" & Chr(9) & "Stadtname" 'SendKeys "{Tab}" 'SendKeys "Frankfurt mam Main" 'SendKeys "{Enter}" 'IEApp.Quit 'Set IEApp = Nothing End Sub

IEApp.Document.all.Subject.Value gibt's auch so direkt nicht.
das ist nur die Anweisung, auf der Internetseite dem Feld "Subject" einen Wert zuzuweisen.
(IEApp ist der Internet Explorer, Document die Seite, All ist alles auf dieser Seite, Subject ist der name des ersten Eingabefeldes da) Das ist so ähnlich wie die Objekthierarchie in Excel - Excel.Workbooks.Sheets.cells...
Das das Feld "Subject" heißt, habe ich im Quelltext der Internetseite bzw. in der Adressleiste des Internetexplorers bei einer Suche lesen können. Das andere Feld heißt demnach "location". und der Button heißt "execute"
dem Object "location" kannst du genauso einen Werte zuweisen. Und den Button "Suche starten" kannst du auch "klicken lassen":
IEApp.Document.all.Subject.Value = "Galenzo"
IEApp.Document.all.Location.Value = "Braunschweig"
IEApp.Document.all.Execute.Click
Viel Erfolg!

Hallo Galenzo,
danke für die Infos über all usw., wieder was gelernt.
tt klappt super, bei tt2 kommt eine Seite von mywebsearch, ich nehme an wegen der fehlenden sessId wird die Seite nicht gefunden und mein Brwoser hüpft dann zu mywebsearch o.ä.
Gruß
Reinhard


Sub tt()
myUrl = <a href=""http://www.gelbeseiten.de"">"http://www.gelbeseiten.de"</a>
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Navigate myUrl
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
IEApp.Visible = True
IEApp.Document.all.Subject.Value = "Müller"
IEApp.Document.all.Location.Value = "Braunschweig"
IEApp.Document.all.Execute.Click
'IEApp.Quit
'Set IEApp = Nothing
End Sub
Sub tt2()
FIRMA = "Müller"
STADT = "Braunschweig"
myUrl = "h ttp://www.gelbeseiten.de/yp/quickSearch.yp;jsessionid=?subject=" & _
FIRMA & "&location=" & STADT & "execute=Suche+starten"
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Navigate myUrl
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
IEApp.Visible = True
'IEApp.Quit
'Set IEApp = Nothing
End Sub

Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread