Umstellung von Suchabfrage
11.06.2006 18:03:38
Suchabfrage
immer noch auf der Suche nach einer Abfragemöglichkeit in der Datenbank der Arbeitsagentur.de habe ich meine EXCEL-CD von Herrn Herber durchstöbert und bin auch auf untenstehenden Code gestossen. Wie könnte der Code angepaßt werden, um anstatt in Fireball die Suchabfrage unter http://www.arbeitsagentur.de zu starten. Ich habe einmal die Webpage in WORD geladen und folgende Eigenschaften für das Feld Suchen und für die Schaltfläche Suchen ausfindig zu machen. Es gelingt mir aber einfach nicht, den Code anzupassen. Kann mir da vielleicht jemand behilflich sein? - Ich wäre sehr dankbar !!
Herzliche Grüße - Wolfgang
Hier zunächst die Eigenschaften der Felder in der Website:
Name des Suchfeldes:
DefaultOcxName9
HTMLName: keywordeinfach
Name der Schaltfläche "Suche starten"
DefaultOcxName10
Action: /vam/vamController/Contentsuche/
HTMLName: cmd#einfacheSuche
Encoding: application/x-www-form-urlencoded
Method: get
und hier der Code von der CD von Herrn Herber:
Sub WebSuche() Dim SuchString$ Application.ScreenUpdating = False SuchString = <a href=""http://www.fireball.de/query-fireball.fcg?"">"http://www.fireball.de/query-fireball.fcg?"</a> SuchString = SuchString & "action=query&pg=express&q=%22" SuchString = SuchString & ActiveCell & "%22&what=german_web&fmt=d" ActiveCell = SuchString With ActiveCell .Hyperlinks.Add ActiveCell, SuchString .Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True .Hyperlinks(1).Delete .ClearContents End With End Sub