In Html Datei suchen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi oraculix,
ja, vielen Dank, du hattest eine HTML-Datei zur Verfügung gestellt - danke
Wie schon erwähnt, war ich im Thread verrutscht und hatte mit falschem Text an falscher Stelle geantwortet - sorry
Nun zu deiner Datei.
Leider ist es doch nicht so einfach, wie ich dachte, da in der HTML-Datei mit dem gesuchten Link in Unterverzeichnisse verzweigt wird, um die gewünschte HTML-ZIEL-Datei zu finden + zu öffnen.
Ich weiß leider auch nicht weiter und wünsch dir, dass sich wer anders besser auskennt als ich.
(Tipp von mir: zeig bitte bei jeder Erst-Frage von dir gleich eine Bsp-Datei; hätte zumindest ich die Bsp-Datei gleich zu Beginn gesehen, hätte ich sofort gewusst, dass ich nich helfen kann)
Ciao
Thorsten

Private Sub CommandButton8_Click() Dim Bereich As Range Set Bereich = Application.InputBox("Bitte wählen sie die zu kopierende Zelle aus !", _ "Bereichswahl", , , , , , 8) Bereich.Copy 'Öffnet Datei ActiveWorkbook.FollowHyperlink Address:="file:///D:/EMDB/HTML/index.html" 'Taste Strg+F Drücken Application.Dialogs(xlDialogFormulaFind).Show End Sub

Hallo oraculix,
wie Yal schon geschrieben hat, sieht es so aus, als wenn Dein Projektwunsch Deinen ProgrammierLvl zur Zeit übersteigt. Das ist jetzt zwar erstmal blöd, aber auch nicht wirklich schlimm. Kann man alles lernen und ich finde es auch gut, wenn Du solche Ideen umsetzen willst. Aber vermutlich ist es besser, erstmal kleinere Brötchen zu backen. Wenn ich etwas nennen müsste, womit ich mich in VBA ganz gut auskenne, dann ist das Web Scraping. Also genau die Disziplin, die Du hier anwenden möchtest. Deshalb maße ich mir an dieser Stelle an zu erläutern, was an Wissen notwendig ist, um Dein Ziel zu erreichen. Du kannst das danach nicht programmieren. Das gesamte Wissen dazu in einem Forenpost auch rüberzubringen ist leider nicht möglich.
Erstmal Dein Ansatz:
Du möchtest aus einer Tabelle in Spalte B beliebige Zell-Werte in die Zwischenablage kopieren, indem Du die rechte Maustaste klickst. Danach soll eine HTML-Datei geöffnet werden. (Ich nehme an automatisch, auch wenn Du das nicht so geschrieben hast.) In der geöffneten Datei soll der Begriff gesucht werden, der jetzt in der Zwischenablage ist. Wird er gefunden, soll der dahinter liegende Hyperlink geöffnet werden.
Warum das so nicht funktionieren wird (Oder nur von hinten durch die Brust ins Auge)
Deinen Grundgedanken finde ich erstmal ganz einleuchtend. Du willst das Programmieren, was Du auch manuell machen würdest, um genau das Ziel zu erreichen, das Du anstrebst. Die Sache beim Web Scraping (und vielen anderen Dingen auch) ist aber, bei der Programmierung solcher Lösungen wird anders vorgegangen, als ein Mensch es machen muss. Das ist glaube ich auch ein genereller Knackpunkt bei der Programmierung. Wir müssen als Menschen so denken, wie die Maschine es (möglichst) am besten verarbeiten kann. (Das ist übrigens ein Grund für den von vielen ungeliebten Matheunterricht. Neben dem mehr als gedacht benötigtem Wissen um Mathe, wird damit das Gehirn trainiert, um systematisch Lösungen erarbeiten zu können.)
Gehen wir Deinen Lösungsansatz Mal durch
Das Worksheet.BeforeDoubleClick-Event hast Du schon kennen gelernt, möchtest aber das Kopieren (und öffnen der HTML-Datei?) mit einem Klick machen. Es würde mit einem Linksklick klappen. Dieser löst das Worksheet.SelectionChange-Event aus. Ein Rechtsklick löst das Event auch aus, aber es wird dann auch jedesmal das Kontextmenü angezeigt.
Zum Ausprobieren folgendes Makro in das Modul einer Tabelle kopieren:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Reaktion auf Spalte B beschränken
If Not Intersect(Target, Range("B:B")) Is Nothing Then
'Zelladresse in der Adresse selbst ausgeben
Selection = Target.Address
End If
End Sub

Hier ein paar Links zu sonstigem, nötigen und nachgefragtem Wissen:
Worksheet.SelectionChange-Event: https://docs.microsoft.com/de-de/office/vba/api/excel.worksheet.selectionchange
Worksheet.BeforeDoubleClick-Event: https://docs.microsoft.com/de-de/office/vba/api/excel.worksheet.beforedoubleclick
Zugriff auf die Zwischenablage: https://www.online-excel.de/excel/singsel_vba.php?f=28
Du könntest also den angeklickten Wert in die Zwischenablage kopieren und auch eine Webseite öffnen. Dann möchtest Du den kopierten Begriff in dieser Webseite suchen. Mir fallen nur sehr unorthodoxe Möglichkeiten ein, das an diesem Punkt umzusetzen. Hier beginnt also der Teil, den ich oben in der Klammer mit "von hinten durch die Brust ins Auge" meine. Wie genau soll das denn vonstatten gehen?
Du öffnest ein weiteres Programm und auf dieses hast Du nur sehr eingeschränkten Zugriff, wenn überhaupt. Du kannst aus VBA heraus nicht einfach sagen "mach mal". Es würde wahrscheinlich mit Sendkeys() gehen, aber das würde ich nur im äußersten Notfall einsetzen.
Application.SendKeys-Methode: https://docs.microsoft.com/de-de/office/vba/api/excel.application.sendkeys
Der einzige Browser, den Du aus VBA heraus fernsteuern kannst, ist der Internet Explorer. Das liegt daran, dass er der einzige Browser ist, der eine COM-Schnittstelle mitbringt. Allerdings rate ich davon ab den IE noch zu verwenden (auch wenn Du lokale Dateien verarbeiten möchtest). Der IE wird im Juni 2022 endgültig ausgemustert und funktioniert heute schon mit vielen Seiten nicht mehr. Es lohnt sich einfach nicht mehr, sich in die Kontrolle des IE einzuarbeiten.
Infos zum COM: https://de.wikipedia.org/wiki/Component_Object_Model
Infos zum IE: https://docs.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/platform-apis/aa752084(v=vs.85)?redirectedfrom=MSDN
Angenommen, Du schaffst es in einem anderen Browser die Suche durchzuführen. Was wird dann gefunden? Du gibst "Rambo" als Beispiel für einen Suchbegriff an. In Deiner zur Verfügung gestellten HTML-Datei gibt es dazu aber 4 Treffer und ich bezweifle, dass Du den ersten willst, denn das ist das Poster. Wie entscheidest Du, ob der richtige Eintrag gefunden wurde? Der zweite ist übrigens auch das Poster. Das ist nämlich der gleiche Link.
Angenommen Du findest den richtigen Eintrag. Du könntest auch den wieder nur mit Sendkeys() auslösen (Enter übermitteln). Was passiert denn danach? Du möchtest sicher Informationen aus der aufgerufenen Seite holen. Wie markierst Du den Text, den Du kopieren willst? Willst Du überhaupt nur Text oder auch andere Informationen? Z.B. Hyperlinks oder Bilder.
Unterm Strich funktioniert Dein Ansatz also nicht oder nur extrem kompliziert. Sei deshalb nicht niedergeschlagen, Du hast Dir ja Gedanken dazu gemacht und allein das ist schon sehr viel wert.
Wie solche Aufgaben angegangen werden
Wie gesagt, ist der IE aus dem Rennen. Um andere Browser zu automatisieren, gibt es ein Framework namens Selenium. Dieses steht für verschiedene Programmiersprachen zur Verfügung. Da VBA jetzt nicht zu den weit verbreiteten Sprachen für Web Scraping gehört, gibt es für VBA vom Selenium-Projekt selbst keine Lösung für diese Sprache. Aber mit SeleniumBasic hat sich jemand dieser Problemetik angenommen.
Da Du "nur" lokal vorliegende HTML-Dateien verarbeiten willst, wird vermutlich gar kein Browser benötigt. Denn eine andere Möglichkeit auf Webseiten zuzugreifen ist xhr (XML HTTP Request). Damit wird direkt auf die auf einem Webserver hinterlegten Recourcen zugegeriffen, bzw. man kann damit unter anderem auch HTML-Dateien laden. Die müssen nochmal in ein htmlFile-Objekt umgebettet werden aber dann kann man mit dem DOM (Document Object Model) direkt auf die Struktur des Dokuments zugreifen.
So, ich nehme an, von den letzten beiden Absätzen hast Du genau Null verstanden. Das liegt nicht daran, dass Du zu blöd dafür bist, sondern daran, dass Du von all diesen Dingen schlicht und ergreifend noch nie etwas gehört hast. Ich kann auch nicht richtig Kochen, weil ich davon nämlich auch noch nicht so richtig viel gehört habe. Würde ich das wollen, könnte ich es aber lernen. So kannst Du Dich auch in die notwendigen Dinge einarbeiten.
Wovon Du für Web Scraping mit VBA zumindest etwas Ahnung haben musst, sind folgende Bereiche:
- VBA (Das ist hier natürlich die Grundlage) z.B. https://www.vba-tutorial.de/
- HTML (Unumgänglich, um den Aufbau von Webseiten zu verstehen) https://wiki.selfhtml.org/
- JavaScript (Extrem nützlich, weil es die Sprache des Web ist und so ziemlich alles zum DOM in JS erklärt wird) https://wiki.selfhtml.org/
- CSS - Cascading Style Sheets (Wissen darum ist untergeordnet, für Web Scraping sollte aber bekannt sein, was CSS ist) https://wiki.selfhtml.org/
- xhr - XML HTTP Request (Für Fortgeschrittene. Sehr flexiebel einsetzbar, schnell) https://developer.mozilla.org/de/docs/Web/API/XMLHttpRequest
- DOM - Document Object Model (Struktur einer HTML-Seite als Baum) https://developer.mozilla.org/de/docs/Web/API/Element
- SeleniumBasic (funktioniert ähnlich wie das DOM, die Befehle sehen nur etwas anders aus und es gibt weitere Möglichkeiten) [Mehr im 2. der folgenden Link]
Vor einiger Zeit habe ich zwei Forenbeiträge geschrieben, in denen ich etwas näher auf manches eingehe. Aber natürlich auch nicht erschöpfend:
https://www.herber.de/forum/cgi-bin/callthread.pl?index=1825794#1826500
https://www.herber.de/forum/cgi-bin/callthread.pl?index=1831729#1831851
Ob Dir das jetzt alles irgendwie weiterhilft weiß ich nicht. Aber Du solltest eine ungefähre Vorstellung davon haben, in welche Richtung Du gehen musst. Du kannst aber auch überlegen das Ganze mit Python und der Bibliothek Beautiful Soup umzusetzen:
https://pypi.org/project/beautifulsoup4/
Grundlage dafür ist aber natürlich wiederum Python ;-)
https://www.python-kurs.eu/python3_kurs.php
Viele Grüße,
Zwenn

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Reaktion auf Spalte B beschränken If Not Intersect(Target, Range("B:B")) Is Nothing Then 'Zelladresse in der Adresse selbst ausgeben Selection = Target.Address 'hier sollte kopiert werden in die zwischenablage End If ActiveWorkbook.FollowHyperlink Address:="file:///D:/EMDB/HTML/index.html" End Sub

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

262 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

In Html Datei suchen

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

262 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread