Import aus Internet in Word oder Excel

Ernst_Kessler · 9. November 2019 um 00:17

Hallo W-W-W,

für mailings kopiere ich mir gerade aus den „Gelben Seiten“ Adressen heraus in Word. Nicht einzelne sondern Seite für Seite.

(Im Internet die ganze Seite markieren, rechte Maustaste KOPIEREN - dann in Word und EINFÜGEN.)

Meine Frage:
Gibts eine schnellere oder überhaupt die Möglichkeit in Office-Programmen (Word oder Excel), die Daten so zu übernehmen, damit ich diese ohne erneute Eingabe oder „Bastelei“ für Serienbriefe weiterverwenden kann?

Vielen Dank
Ernst

Reinhard_fb8cb7 · 9. November 2019 um 00:18

Hi Ernst,
was meinst du genau mit mailings?
Ich kapier das so, du gehst auf gelbeSeiten, gibst Suchbegriff ein, erhälst antworten und willst dann jedem der dort genannt wird per email was schicken?
Ist das so?
Wenn ja, müßte das per excel-vba lösbar sein. (müßte=k.A.*g)
Kannst ja mal mehr Infos geben.
Gruß
Reinhard

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Ernst_Kessler · 9. November 2019 um 00:18

was meinst du genau mit mailings?

Werbebriefe - Serienbriefe

Ich kapier das so, du gehst auf gelbeSeiten, gibst Suchbegriff
ein, erhälst antworten und willst dann jedem der dort genannt
wird per email was schicken?
Ist das so?

Nein. Ich will die ausgewählten Adressen in Word oder Excel speichern um diese dann (ohne viel Basteln zu müssen) mit der Serienbrieffunktion weiterzuverarbeiten.

Wenn ja, müßte das per excel-vba lösbar sein. (müßte=k.A.*g)

Ja? Deswegen stellte ich diese Frage in www, weil ich eben keine Ahnung habe!

Vielleicht doch Hilfe?

Danke

Franz_e6478d · 9. November 2019 um 00:19

Hallo Ernst

Ich kapier das so, du gehst auf gelbeSeiten, gibst Suchbegriff
ein, erhälst antworten und willst dann jedem der dort genannt
wird per email was schicken?
Ist das so?

Nein. Ich will die ausgewählten Adressen in Word oder Excel
speichern um diese dann (ohne viel Basteln zu müssen) mit der
Serienbrieffunktion weiterzuverarbeiten.

Ich hab mir das mal mit den Adressen auf www.gelbeseiten.de angesehen.

Es wird nicht ganz einfach das Auslesen der Adressen zu automatisieren und ganz ohne manuelle Nacharbeit wird es nicht gehen.

Folgende Probleme müssen umschift werden:

Der Firmenname (bei Firmen mit Zusatztext) steht mal in der 1 Zeile separat, meistens zusammen mit Strasse, PLZ und Ort in einer Zeile

Bei Personengesellschaften stehen die Namen in der Reihefolge Nachname Vorname ohne Trennzeichen,zusammen mit Strasse, PLZ und Ort in einer Zeile

Mal sind Zusatzinformationen eingetragen, mal nicht

Der Lösungsansatz, den ich zum Auslesen von anderen Inhalten von Internetseiten schon erfolgreich angewendet hab, ist folgender:

Der Block mit den Anschriften (bevorzugt) oder die gesamte Seite wird auf der Webseite markiert und kopiert.
In EXCEL wird der Inhalt in einer leeren Tabelle als Unicode-Text eingefügt.
Als HTML-Text ist das ganze praktisch nicht auswertbar wegen des sehr ungleichmäßigen Tabellenaufbaus, der beim Einfügen ensteht.
Per VBA-Makro werden die einzelnen Zeilen ausgelesen und in Firmenname, Name+Vormae, Straße, PLZ, Ort und Telefonnr. zerlegt und in einer zweiten Tabelle in separate Spalten eingefügt.
Die so ermittelten Anschriften müßen noch gekennzeichnet werden ob Name und Vorname ermittelt werden sollen. Das kann dann wieder per Formel umgesetzt werden.
Die ermittelten Adressen müssen noch komplett in Text umgesetzt werden und sollten mit einem Kennwort versehen werden damit die Adressen für Serienbriefe selekterbar sind.

6 Zum Schluß sollten die Adressen noch einem Gesamtverzeichnis zugefügt werden.

Die Erstellung eines entsprechenden Makros erfordert schon ein wenig Aufwand, besonders um die Sonderfälle zu erfassen, die bei der Schreibweise der Adressen auftreten können.

Das zu erwartende Ergebnis ist aber schon so, dass die manuelle Nacharbeit minimal wird.

Mit Ausnahme von Schritt 1 können alle weiteren Schritte per Makro automatisiert werden.
Leider liefern die Browser MS Internet-Explorer und Mozilla/Firefox beim Einfügen in Excel leicht unterschiedliche Ergebnisse. Deshalb sollte man sich auf einen Browser festlegen, mit dem man die Daten übernimmt, um das Makro nicht für beide Browservarianten vorbereiten zu müssen.

Gruß
Franz

Ernst_Kessler · 9. November 2019 um 00:19

Hallo Franz,

Der Block mit den Anschriften (bevorzugt) oder die gesamte
Seite wird auf der Webseite markiert und kopiert.

In EXCEL wird der Inhalt in einer leeren Tabelle als
Unicode-Text eingefügt.
Als HTML-Text ist das ganze praktisch nicht auswertbar wegen
des sehr ungleichmäßigen Tabellenaufbaus, der beim Einfügen
ensteht.

Hab’ ich ausprobiert und funktioniert mit Unicode-Text einzufügen. Jetzt stehen die Adressen im Excel. Und ab hier stehe ich dann im Tal der Unwissenden! Schade (

Danke!
Gruß
Ernst

Franz_e6478d · 9. November 2019 um 00:20

Hallo Ernst,

Hab’ ich ausprobiert und funktioniert mit Unicode-Text
einzufügen. Jetzt stehen die Adressen im Excel. Und ab hier
stehe ich dann im Tal der Unwissenden! Schade (

Ich werde dir morgen mal eine EXCEL-Datei schicken mit einem Auswerte-Makro.
evtl. kommst du damit dann weiter.

Gruß
Franz

Reinhard_fb8cb7 · 9. November 2019 um 00:21

Es wird nicht ganz einfach das Auslesen der Adressen zu
automatisieren und ganz ohne manuelle Nacharbeit wird es nicht
gehen.

Hallo Franz,
ich mag nichts manuelles, muss alles das Makro machen, deshalb schreibe ich es ja

Ich sehe die Makroaufgaben so:

Eingabe von Suchnamen und Stadt
Aufruf von www.gelbeseiten.de
Übertragung von Name, Stadt und Suche starten
Ermitlung der Sess-ID aus der Adresszeile, ggfs auch dieser taoid
Zusammensetzen der Url und Auslesen der gefundenen Seiten
In der enstandenen Tabelle die Infos herausziehen, oder ggfs noch auf die in der Tabelle sichtbaren UnterUrls gehen und dies dort tun
kein Thema
kein thema *glaub* kriegs aber grad nicht hin, nicht mal das IE-Fenster erscheint, auch bei ieapp.visible=true nicht
siehe 2)
ich hatte mal den Code dafür im Internet gefunden, geht mit API, leider nach Festplattencrash ist Code weg
kein Problem, siehe nachfolgenden Code
kein Problem

Gruß
Reinhard

In der Url steht am Ende die Zahl der Seite, 0=erste Seite, 1 = zweite Seite usw.
man müßte halt die zahl solange erhöhen bis ein Fehler auftritt um alle Seiten zu erhalten, evtl steht auch die Seitenanzahl irgendwo auf der ersten Seite.

Sub Test3()
Dim IEApp As Object
Dim IEDocument As Object
Dim Text As String
 zei = 1
 Set IEApp = CreateObject("InternetExplorer.Application")
 IEApp.Visible = False
 '...gelbeseiten.de/yp/pageAction.yp;jsessionid= **702CB34F4EAE3EFED3669806124401BF**.gelb06TomcatNode2?taoid=00030030000000005080511403355881000003&subject= **m%FCller** &location= **frankfurt+am+main** &tradeLookupID=1038001&subscriberLookupID=1038004&page=1
 IEApp.Navigate "http://www.gelbeseiten.de/yp/pageAction.yp;jsessionid=702CB34F4EAE3EFED3669806124401BF.gelb06TomcatNode2?taoid=00030030000000005080511403355881000003&subject=m%FCller&location=frankfurt+am+main&tradeLookupID=1038001&subscriberLookupID=1038004&page=1"
 Do: Loop Until IEApp.Busy = False
 Do: Loop Until IEApp.Busy = False
 Set IEDocument = IEApp.Document
 Text = IEDocument.Body.InnerHTML
 Set IEDocument = Nothing
 For n = 1 To Len(Text)
 If Asc(Mid(Text, n, 1)) \>= 32 Then
 Satz = Satz + Mid(Text, n, 1)
 Else
 Cells(zei, 1) = Satz
 zei = zei + 1
 'End If
 Satz = ""
 n = n + 1
 End If
 Next n
End Sub

Reinhard_fb8cb7 · 9. November 2019 um 00:23

zu 2) & 3)

Ich sehe die Makroaufgaben so:

Eingabe von Suchnamen und Stadt

Aufruf von www.gelbeseiten.de

Übertragung von Name, Stadt und Suche starten

Ermitlung der Sess-ID aus der Adresszeile, ggfs auch dieser
taoid

Zusammensetzen der Url und Auslesen der gefundenen Seiten

In der enstandenen Tabelle die Infos herausziehen, oder
ggfs noch auf die in der Tabelle sichtbaren UnterUrls gehen
und dies dort tun

kein Thema

kein thema *glaub* kriegs aber grad nicht hin, nicht mal
das IE-Fenster erscheint, auch bei ieapp.visible=true nicht

-(

siehe 2)

ich hatte mal den Code dafür im Internet gefunden, geht mit
API, leider nach Festplattencrash ist Code weg

kein Problem, siehe nachfolgenden Code

kein Problem

Hallo,
ich habe woanderst nachgefragt, so geht es:

Sub tt()
myUrl = "http://www.gelbeseiten.de"
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

Gruß
Reinhard

Franz_e6478d · 9. November 2019 um 00:27

Hallo Rheinhard,

Es wird nicht ganz einfach das Auslesen der Adressen zu
automatisieren und ganz ohne manuelle Nacharbeit wird es nicht
gehen.

[…]

ich mag nichts manuelles, muss alles das Makro machen, deshalb
schreibe ich es ja

Wenn es um stipides umsetzen und Abarbeiten von Daten geht, dann geht bei mir auch nichts über ein ausgefeiltes Makro

Ich sehe die Makroaufgaben so:

Eingabe von Suchnamen und Stadt

Aufruf von www.gelbeseiten.de

Übertragung von Name, Stadt und Suche starten

Ermitlung der Sess-ID aus der Adresszeile, ggfs auch dieser
taoid

Zusammensetzen der Url und Auslesen der gefundenen Seiten

In der enstandenen Tabelle die Infos herausziehen, oder
ggfs noch auf die in der Tabelle sichtbaren UnterUrls gehen
und dies dort tun

Der Wunsch von Ernst war etwas anders. Er hat auf GelbeSeiten.de eine Suche mit seinen Suchbegriffen abgeschickt und nun die Liste der gefundenen Adressen vor sich. Diese Liste möchte er jetzt möglichst einfach in ein EXCEL oder Word-Dokument übernehmen als Basis für Serienbriefe.

Dafür habe ich ihm inzwischen eine EXCEL-Datei zugeschickt, die die Informationen der gefundenen Adressen Seitenweise so aufbereitet, dass am Schluß spaltenweise die Informationen
Name/Vorname/Firmenzusatz/Straße/PLZ/Ort/Telefon/Telefax
in einer Tabelle stehen.

Die Handarbeit besteht jetzt darin, jeweils die Seite im Browser zu kopieren und bei nicht eindeutig interpretierbaren Adressangaben zu editieren. Außerdem ist bei dem Datensatzaufbau der Vorname nicht eindeutig zu isolieren. Im Nachlauf müssen dann noch alle Datensätze markiert werden, bei den der Vorname extrhiert werden soll.
Die notwendigen Makros sprengen etwas den Rahmen des Forum, schicke ich aber auf Wunsch gerne zu.

kein Thema

kein thema *glaub* kriegs aber grad nicht hin, nicht mal
das IE-Fenster erscheint, auch bei ieapp.visible=true nicht

-(

siehe 2)

ich hatte mal den Code dafür im Internet gefunden, geht mit
API, leider nach Festplattencrash ist Code weg

kein Problem, siehe nachfolgenden Code

kein Problem

Die Ideal-Lösung die du Vorschlägst ist schon Super In EXCEL ein kleines Userform in dem man die Suchkriterien für GelbeSeiten.de eingibt und dann aus EXCEL heraus den IE starten und die Daten an die Webseite schicken. Dann die Antwortseiten wieder in Excel einlesen und Auswerten.

In der Url steht am Ende die Zahl der Seite, 0=erste Seite, 1
= zweite Seite usw.
man müßte halt die zahl solange erhöhen bis ein Fehler
auftritt um alle Seiten zu erhalten, evtl steht auch die
Seitenanzahl irgendwo auf der ersten Seite.

Sub Test3()
Dim IEApp As Object
Dim IEDocument As Object
Dim Text As String
zei = 1
Set IEApp = CreateObject(„InternetExplorer.Application“)

Beim Versuch deinen Vorschlag umzusetzen scheiter ich im Moment schon an diser Stelle:
Fehlermeldung:
…Laufzeitfehler ‚429‘
…Objekterstellung durck ActiveX-Komponente nicht möglich
Jetzt versuche ich mich erst einmal durch die MS-Hinweise zu diesem Fehler durchzukämpfen.

Gruß
Franz

Reinhard_fb8cb7 · 9. November 2019 um 00:45

Sorry, irgednwie Artikel überlesen:frowning:
Hallo franz,
ich mutmaße du musst da einen Verweis setzen, welche hast du den gesetzt? Dann schau ich bei mir XL9.0 welche ich habe, falls es daran liegt.
Gruß
Reinhard

Sub Test3()
Dim IEApp As Object
Dim IEDocument As Object
Dim Text As String
zei = 1
Set IEApp = CreateObject(„InternetExplorer.Application“)

Beim Versuch deinen Vorschlag umzusetzen scheiter ich im
Moment schon an diser Stelle:
Fehlermeldung:
…Laufzeitfehler ‚429‘
…Objekterstellung durck ActiveX-Komponente nicht möglich
Jetzt versuche ich mich erst einmal durch die MS-Hinweise zu
diesem Fehler durchzukämpfen.

Gruß
Franz

Reinhard_fb8cb7 · 9. November 2019 um 00:45

Hallo Franz,
schau mal hier
http://groups.google.de/groups?q=internet.explorer+429
Gruß
Reinhard